Інформатика
.pdf
12
ЗАВДАННЯ № 11
Написати текст програми на мові програмування високого рівня, яка забезпечує виконання таких операцій:
1.Ввід значень n елементів масиву дійсних чисел x[i].
2.Розрахувати значення y за формулою:
1 n 1
y x i x n i 1
n i 0
3. Вивести значення y та значення всіх введених елементів масиву x[i].
Текст програми може бути написаний на мовах Pascal, C++ або C# без використання підпрограм, з використання підпрограм або з використанням класів та об’єктів. У програмі допускається наявність або відсутність перевірок вхідних даних та проміжних результатів, а також коментарів.
|
|
|
Відповідь: |
Program MainProgram; |
|||
Const |
CM = 100 ; |
|
|
Type |
T1 = array [0 .. CM-1] of double ; |
||
|
x : T1 ; |
|
|
|
i, n : integer ; |
||
|
y,f |
: double ; |
|
Begin |
|
|
|
Write(‘ n = ‘) ; |
// Ввід значення n |
||
Readln(n) |
; |
|
|
For i:=0 to n-1 do |
// Ввід значень елементів масиву x[i] |
||
Begin |
|
|
|
|
write(' x[',i,'] = ') ; |
||
|
readln(x[i]) |
; |
|
End ; |
|
|
|
y:=0.0 |
; |
|
// Розрахунок у |
For i:=0 to n-1 do |
|
||
|
y:=y+x[i]*x[n-i-1] ; |
||
y:=y/n |
; |
|
|
writeln(' y = ', y) ; |
// Вивід значення у |
||
For i:=0 to n-1 do // Вивід елементів масиву x[i] writeln(' x[',i,'] = ',x[i]) ;
End.
13
ЗАВДАННЯ № 12
Написати текст програми на мові програмування високого рівня, яка забезпечує виконання таких операцій:
1.Ввід значень n елементів масиву дійсних чисел x[i].
2.Розрахувати значення y за формулою:
|
1 |
n 1 |
|
2 |
|
||||
y |
|
|
x i |
|
|
||||
n |
i 0 |
|
|
|
3. Вивести значення y та значення всіх введених елементів масиву x[i].
Текст програми може бути написаний на мовах Pascal, C++ або C# без використання підпрограм, з використання підпрограм або з використанням класів та об’єктів. У програмі допускається наявність або відсутність перевірок вхідних даних та проміжних результатів, а також коментарів.
|
|
|
Відповідь: |
Program MainProgram; |
|||
Const |
CM = 10000 ; |
||
Var |
x : array [0 .. CM-1] of double ; |
||
|
i, n : integer ; |
||
|
y,f |
: double ; |
|
Begin |
|
|
|
Write(‘ n = ‘) ; |
// Ввід значення n |
||
Readln(n) |
; |
|
|
For i:=0 to n-1 do |
// Ввід значень елементів масиву x[i] |
||
Begin |
|
|
|
|
write(' x[',i,'] = ') ; |
||
|
readln(x[i]) |
; |
|
End ; |
|
|
|
y:=0.0 |
; |
|
// Розрахунок у |
For i:=0 to n-1 do |
|
||
|
y:=y+sqrt(x[i]) ; |
||
y:=sqr(y/n) |
; |
|
|
writeln(' y = ', y) ; |
// Вивід значення у |
||
For i:=0 to n-1 do |
// Вивід елементів масиву x[i] |
||
|
writeln(' x[',i,'] = ',x[i]) ; |
||
End. |
|
|
|
14
ЗАВДАННЯ № 13
Написати текст програми на мові програмування високого рівня, яка забезпечує виконання таких операцій:
1.Ввід значень n елементів масиву дійсних чисел x[i].
2.Розрахувати значення y за формулою:
|
N |
y |
x i |
|
i 0 |
3. Вивести значення y та значення всіх введених елементів масиву x[i].
Текст програми може бути написаний на мовах Pascal, C++ або C# без використання підпрограм, з використання підпрограм або з використанням класів та об’єктів. У програмі допускається наявність або відсутність перевірок вхідних даних та проміжних результатів, а також коментарів.
|
|
|
Відповідь: |
Program MainProgram; |
|||
Const |
CM = 100 ; |
|
|
Type |
T1 = array [0 .. CM-1] of double ; |
||
|
x : T1 ; |
|
|
|
i, n : integer ; |
||
|
y |
: double ; |
|
Begin |
|
|
|
Write(‘ n = ‘) ; |
// Ввід значення n |
||
Readln(n) |
; |
|
|
For i:=0 to n-1 do |
// Ввід значень елементів масиву x[i] |
||
Begin |
|
|
|
|
write(' x[',i,'] = ') ; |
||
|
readln(x[i]) |
; |
|
End ; |
|
|
|
y:=1.0 |
; |
|
// Розрахунок у |
For i:=0 to n-1 do |
|
||
|
y:=y*x[i] |
; |
|
y:=sqr(y) |
; |
|
|
writeln(' y = ', y) ; |
// Вивід значення у |
||
For i:=0 to n-1 do // Вивід елементів масиву x[i] writeln(' x[',i,'] = ',x[i]) ;
End.
15
ЗАВДАННЯ № 14
Написати текст програми на мові програмування високого рівня, яка забезпечує виконання таких операцій:
1.Ввід значень n елементів масиву дійсних чисел x[i].
2.Розрахувати значення y за формулою:
1 |
N |
1 |
|
|
|
|
|
|
|||
y |
|
|
|
|
|
n |
1 x2 |
i |
|||
|
|
i 0 |
|
|
|
3. Вивести значення y та значення всіх введених елементів масиву x[i].
Текст програми може бути написаний на мовах Pascal, C++ або C# без використання підпрограм, з використання підпрограм або з використанням класів та об’єктів. У програмі допускається наявність або відсутність перевірок вхідних даних та проміжних результатів, а також коментарів.
|
|
|
|
Відповідь: |
Program MainProgram; |
||||
Const |
CM = 10000 ; |
|||
Var |
x : array [0 .. CM-1] of double ; |
|||
|
i, n : integer ; |
|||
|
y |
: double ; |
||
Begin |
|
|
|
|
Write(‘ n = ‘) ; |
// Ввід значення n |
|||
Readln(n) |
; |
|
||
For i:=0 to n-1 do |
// Ввід значень елементів масиву x[i] |
|||
Begin |
|
|
||
|
write(' |
x[',i,'] = ') ; |
||
|
readln(x[i]) |
; |
||
End ; |
|
|
||
y:=1.0 |
; |
|
|
// Розрахунок у |
For i:=0 to n-1 do |
|
|||
|
|
y:=y*/(1.0+sqr(x[i])) ; |
||
y:=y/n |
|
; |
|
|
writeln(' |
y = ', y) ; |
// Вивід значення у |
||
For i:=0 to n-1 do |
// Вивід елементів масиву x[i] |
|||
|
writeln(' x[',i,'] = ',x[i]) ; |
|||
End. |
|
|
|
|
16
ЗАВДАННЯ № 15
Написати текст програми на мові програмування високого рівня, яка забезпечує виконання таких операцій:
1.Ввід значень n елементів масиву дійсних чисел x[i].
2.Розрахувати значення y за формулою:
N
y n cos 2 x i
i 0
3. Вивести значення y та значення всіх введених елементів масиву x[i].
Текст програми може бути написаний на мовах Pascal, C++ або C# без використання підпрограм, з використання підпрограм або з використанням класів та об’єктів. У програмі допускається наявність або відсутність перевірок вхідних даних та проміжних результатів, а також коментарів.
|
|
|
Відповідь: |
Program MainProgram; |
|||
Const |
CM = 256 ; |
|
|
Type |
T1 = array [0 .. CM-1] of double ; |
||
|
x : T1 ; |
|
|
|
i, n : integer ; |
||
|
y, |
: double ; |
|
Begin |
|
|
|
Write(‘ n = ‘) ; |
// Ввід значення n |
||
Readln(n) |
; |
|
|
For i:=0 to n-1 do |
// Ввід значень елементів масиву x[i] |
||
Begin
write(' x[',i,'] = ') ;
readln(x[i]) |
; |
|
End ; |
|
|
y:=1.0 |
; |
// Розрахунок у |
f:=2.0*Pi ; |
|
|
For i:=0 to n-1 do |
|
|
|
y:=y*cos(f*x[i]) ; |
|
y:=y*n |
; |
|
writeln(' |
y = ', y) ; |
// Вивід значення у |
For i:=0 to n-1 do |
// Вивід елементів масиву x[i] |
|
writeln(' x[',i,'] = ',x[i]) ;
End.
17
ЗАВДАННЯ № 16
Написати текст програми на мові програмування високого рівня, яка забезпечує виконання таких операцій:
1.Ввід значень n елементів масиву дійсних чисел x[i].
2.Розрахувати значення y за формулою:
|
|
|
|
|||
y |
N |
1 |
x2 i |
|||
|
|
|
|
|
||
1 |
x 2 i |
|||||
|
||||||
|
i 0 |
|
|
|
|
|
3. Вивести значення y та значення всіх введених елементів масиву x[i].
Текст програми може бути написаний на мовах Pascal, C++ або C# без використання підпрограм, з використання підпрограм або з використанням класів та об’єктів. У програмі допускається наявність або відсутність перевірок вхідних даних та проміжних результатів, а також коментарів.
|
|
|
Відповідь: |
Program MainProgram; |
|||
Const |
CM = 100 ; |
|
|
Type |
T1 = array [0 .. CM-1] of double ; |
||
|
x : T1 ; |
|
|
|
i, n : integer ; |
||
|
y |
: double ; |
|
Begin |
|
|
|
Write(‘ n = ‘) ; |
// Ввід значення n |
||
Readln(n) |
; |
|
|
For i:=0 to n-1 do |
// Ввід значень елементів масиву x[i] |
||
Begin |
|
||
|
write(' x[',i,'] = ') ; |
||
|
readln(x[i]) |
; |
|
End ; |
|
|
|
y:=1.0 |
|
; |
// Розрахунок у |
For i:=0 to n-1 do |
|
||
|
y:=y*(1.0-sqr(x[i]))/ (1.0+sqr(x[i])) ; |
||
y:=sqrt(y) |
; |
|
|
writeln(' y = ', y) ; |
// Вивід значення у |
||
For i:=0 to n-1 do // Вивід елементів масиву x[i] writeln(' x[',i,'] = ',x[i]) ;
End.
18
ЗАВДАННЯ № 17
Написати текст програми на мові програмування високого рівня, яка забезпечує виконання таких операцій:
1.Ввід значень n елементів масиву дійсних чисел x[i].
2.Розрахувати кількість ненульових елементів масиву x[i] та записати її у змінну k.
3.Вивести значення k та значення всіх введених елементів масиву x[i].
Текст програми може бути написаний на мовах Pascal, C++ або C# без використання підпрограм, з використання підпрограм або з використанням класів та об’єктів. У програмі допускається наявність або відсутність перевірок вхідних даних та проміжних результатів, а також коментарів.
|
|
|
Відповідь: |
Program MainProgram; |
|||
Const |
CM = 100 ; |
|
|
Type |
T1 = array [0 .. CM-1] of double ; |
||
|
x : T1 ; |
|
|
|
i, n, k : integer ; |
||
Begin |
|
|
|
Write(‘ n = ‘) ; |
// Ввід значення n |
||
Readln(n) |
; |
|
|
For i:=0 to n-1 do |
// Ввід значень елементів масиву x[i] |
||
Begin |
|
|
|
|
write(' |
x[',i,'] = ') ; |
|
|
readln(x[i]) |
; |
|
End ; |
|
|
|
k:=0 |
; |
|
// Розрахунок у |
For i:=0 to n-1 do |
|
||
|
if x[i]<>0.0 then k:=k+1 ; |
||
writeln(' k = ', k) ; |
// Вивід значення k |
||
For i:=0 to n-1 do // Вивід елементів масиву x[i] writeln(' x[',i,'] = ',x[i]) ;
End.
19
ЗАВДАННЯ № 18
Написати текст програми на мові програмування високого рівня, яка забезпечує виконання таких операцій:
1.Ввід значень n елементів масиву дійсних чисел x[i].
2.Розрахувати кількість елементів масиву x[i] абсолютне значення яких більше одиниці та записати її у змінну k.
3.Вивести значення k та значення всіх введених елементів масиву x[i].
Текст програми може бути написаний на мовах Pascal, C++ або C# без використання підпрограм, з використання підпрограм або з використанням класів та об’єктів. У програмі допускається наявність або відсутність перевірок вхідних даних та проміжних результатів, а також коментарів.
|
|
|
Відповідь: |
Program MainProgram; |
|||
Const |
CM = 100 ; |
|
|
Type |
T1 = array [0 .. CM-1] of double ; |
||
|
x : T1 ; |
|
|
|
i, n, k : integer ; |
||
Begin |
|
|
|
Write(‘ n = ‘) ; |
// Ввід значення n |
||
Readln(n) |
; |
|
|
For i:=0 to n-1 do |
// Ввід значень елементів масиву x[i] |
||
Begin |
|
|
|
|
write(' |
x[',i,'] = ') ; |
|
|
readln(x[i]) |
; |
|
End ; |
|
|
|
k:=0 |
; |
|
// Розрахунок у |
For i:=0 to n-1 do |
|
||
|
if abs(x[i])>1.0 then k:=k+1 ; |
||
writeln(' k = ', k) ; |
// Вивід значення k |
||
For i:=0 to n-1 do // Вивід елементів масиву x[i] writeln(' x[',i,'] = ',x[i]) ;
End.
20
ЗАВДАННЯ № 19
Написати текст програми на мові програмування високого рівня, яка забезпечує виконання таких операцій:
1.Ввід значень n елементів масиву дійсних чисел x[i].
2.Розрахувати кількість елементів масиву x[i] значення яких
знаходиться у діапазоні [-1 .. 15 ] та записати її у змінну k.
3. Вивести значення k та значення всіх введених елементів масиву x[i].
Текст програми може бути написаний на мовах Pascal, C++ або C# без використання підпрограм, з використання підпрограм або з використанням класів та об’єктів. У програмі допускається наявність або відсутність перевірок вхідних даних та проміжних результатів, а також коментарів.
|
|
|
Відповідь: |
Program MainProgram; |
|||
Const |
CM = 100 ; |
|
|
Type |
T1 = array [0 .. CM-1] of double ; |
||
|
x : T1 ; |
|
|
|
i, n, k : integer ; |
||
Begin |
|
|
|
Write(‘ n = ‘) ; |
// Ввід значення n |
||
Readln(n) |
; |
|
|
For i:=0 to n-1 do |
// Ввід значень елементів масиву x[i] |
||
Begin |
|
|
|
|
write(' |
x[',i,'] = ') ; |
|
|
readln(x[i]) |
; |
|
End ; |
|
|
|
k:=0 |
; |
|
// Розрахунок у |
For i:=0 to n-1 do |
|
||
|
if (x[i]>-1.0) and (x[i]<=15.0) then k:=k+1 ; |
||
writeln(' k = ', k) ; |
// Вивід значення k |
||
For i:=0 to n-1 do // Вивід елементів масиву x[i] writeln(' x[',i,'] = ',x[i]) ;
End.
21
ЗАВДАННЯ № 20
Написати текст програми на мові програмування високого рівня, яка забезпечує виконання таких операцій:
1.Ввід значень n елементів масиву дійсних чисел x[i].
2.Розрахувати кількість елементів масиву x[i] значення яких знаходиться за межами діапазону [-31.. 32 ] та записати її у змінну k.
3.Вивести значення k та значення всіх введених елементів масиву x[i].
Текст програми може бути написаний на мовах Pascal, C++ або C# без використання підпрограм, з використання підпрограм або з використанням класів та об’єктів. У програмі допускається наявність або відсутність перевірок вхідних даних та проміжних результатів, а також коментарів.
|
|
|
Відповідь: |
Program MainProgram; |
|||
Const |
CM = 100 ; |
|
|
Type |
T1 = array [0 .. CM-1] of double ; |
||
|
x : T1 ; |
|
|
|
i, n, k : integer ; |
||
Begin |
|
|
|
Write(‘ n = ‘) ; |
// Ввід значення n |
||
Readln(n) |
; |
|
|
For i:=0 to n-1 do |
// Ввід значень елементів масиву x[i] |
||
Begin |
|
|
|
|
write(' |
x[',i,'] = ') ; |
|
|
readln(x[i]) |
; |
|
End ; |
|
|
|
k:=0 |
; |
|
// Розрахунок у |
For i:=0 to n-1 do |
|
||
|
if (x[i]<-31.0) or (x[i]>32.0) then k:=k+1; |
||
writeln(' k = ', k) ; |
// Вивід значення k |
||
For i:=0 to n-1 do |
// Вивід елементів масиву x[i] |
||
writeln(' x[',i,'] = ',x[i]) ;
End.