Інформатика
.pdf
22
ЗАВДАННЯ № 21
Написати текст програми на мові програмування високого рівня, яка забезпечує виконання таких операцій:
1.Ввід значень n елементів масиву дійсних чисел x[i].
2.Розрахувати кількість елементів масиву x[i] значення яких знаходиться у діапазоні [8 .. 64 ] та записати її у змінну 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]>=8.0) or (x[i]<=64.0) then k:=k+1 ; |
||
writeln(' k = ', k) ; |
// Вивід значення k |
||
For i:=0 to n-1 do // Вивід елементів масиву x[i] writeln(' x[',i,'] = ',x[i]) ;
End.
23
ЗАВДАННЯ № 22
Написати текст програми на мові програмування високого рівня, яка забезпечує виконання таких операцій:
1.Ввід значень n елементів масиву дійсних чисел x[i].
2.Розрахувати кількість елементів масиву x[i] значення яких знаходиться за межами діапазону [0.. 16 ] та записати її у змінну 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) or (x[i]>16.0) then k:=k+1 ; |
||
writeln(' k = ', k) ; |
// Вивід значення k |
||
For i:=0 to n-1 do // Вивід елементів масиву x[i] writeln(' x[',i,'] = ',x[i]) ;
End.
24
ЗАВДАННЯ № 23
Написати текст програми на мові програмування високого рівня, яка забезпечує виконання таких операцій:
1.Ввід значень n елементів масиву дійсних чисел x[i].
2.Розрахувати значення массиву y[i] за формулою:
y i cos2 2 x i 3
3. Вивести значення та значення всіх елементів масивів x[i] та y[i].
Текст програми може бути написаний на мовах Pascal, C++ або C# без використання підпрограм, з використання підпрограм або з використанням класів та об’єктів. У програмі допускається наявність або відсутність перевірок вхідних даних та проміжних результатів, а також коментарів.
|
|
|
|
Відповідь: |
Program MainProgram; |
|
|||
Const |
CM = 10000 ; |
|
||
Var |
x, y : array [0 .. CM-1] of double ; |
|||
|
i, n : integer ; |
|
||
|
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 ; |
|
|
|
|
f:=2.0*Pi |
; |
// Розрахунок у[i] |
||
For i:=0 to n-1 do |
|
|
||
|
y[i]:=sqr(cos(f*x[i] + 3.0)) |
; |
||
For i:=0 to n-1 do |
// Вивід елементів масивів x[i] та y[i] |
|||
|
writeln(' x[',i,'] = ',x[i],’ |
y[‘,i,’] = ‘,y[i]) ; |
||
End. |
|
|
|
|
25
ЗАВДАННЯ № 24
Написати текст програми на мові програмування високого рівня, яка забезпечує виконання таких операцій:
1.Ввід значень n елементів масиву дійсних чисел x[i].
2.Розрахувати значення массиву y[i] за формулою:
y i 
ni * x i
3. Вивести значення та значення всіх елементів масивів x[i] та y[i].
Текст програми може бути написаний на мовах Pascal, C++ або C# без використання підпрограм, з використання підпрограм або з використанням класів та об’єктів. У програмі допускається наявність або відсутність перевірок вхідних даних та проміжних результатів, а також коментарів.
|
|
|
|
Відповідь: |
Program MainProgram; |
|
|||
Const |
CM = 10000 ; |
|
||
Var |
x, y : array [0 .. CM-1] of double ; |
|||
|
i, n : integer ; |
|
||
Begin |
|
|
|
|
Write(‘ n = ‘) ; |
// Ввід значення n |
|||
Readln(n) |
; |
|
|
|
For i:=0 to n-1 do |
// Ввід значень елементів масиву x[i] |
|||
Begin |
|
|
|
|
|
write(' |
x[',i,'] = ') ; |
|
|
|
readln(x[i]) |
; |
|
|
End ; |
|
|
|
|
For i:=0 to n-1 do |
// Розрахунок у[i] |
|||
|
y[i]:=sqr(i*x[i]/n) ; |
|
||
For i:=0 to n-1 do |
// Вивід елементів масивів x[i] та y[i] |
|||
|
writeln(' x[',i,'] = ',x[i],’ |
y[‘,i,’] = ‘,y[i]) ; |
||
End. |
|
|
|
|
26
ЗАВДАННЯ № 25
Написати текст програми на мові програмування високого рівня, яка забезпечує виконання таких операцій:
1.Ввід значень n елементів масиву дійсних чисел x[i].
2.Розрахувати значення массиву y[i] за формулою:
y i cos 2 x i sin 6 x i
3. Вивести значення та значення всіх елементів масивів x[i] та y[i].
Текст програми може бути написаний на мовах Pascal, C++ або C# без використання підпрограм, з використання підпрограм або з використанням класів та об’єктів. У програмі допускається наявність або відсутність перевірок вхідних даних та проміжних результатів, а також коментарів.
|
|
|
Відповідь: |
Program MainProgram; |
|||
Const |
CM = 10000 ; |
||
Var |
x, y : array [0 .. CM-1] of double ; |
||
|
i, n : integer ; |
||
|
f,a |
: double ; |
|
Begin |
|
|
|
Write(‘ n = ‘) ; |
// Ввід значення n |
||
Readln(n) |
; |
|
|
For i:=0 to n-1 do |
// Ввід значень елементів масиву x[i] |
||
Begin |
|
|
|
|
write(' x[',i,'] = ') ; |
||
|
readln(x[i]) |
; |
|
End ; |
|
|
|
f:=2.0*Pi |
; |
// Розрахунок у[i] |
|
For i:=0 to n-1 do |
|
|
|
Begin |
|
|
|
a:=f* x[i] ; |
|
|
|
y[i]:=cos(a)+sin(3*a) ; |
|
||
End ; |
|
|
|
For i:=0 to n-1 do |
// Вивід елементів масивів x[i] та y[i] |
||
writeln(' x[',i,'] = ',x[i],’ |
y[‘,i,’] = ‘,y[i]) ; |
||
End.
27
ЗАВДАННЯ № 26
Написати текст програми на мові програмування високого рівня, яка забезпечує виконання таких операцій:
1.Ввід значень n елементів масиву дійсних чисел x[i].
2.Розрахувати значення массиву y[i] за формулою:
y i i 1 x2 i 1 x2 i
3. Вивести значення та значення всіх елементів масивів x[i] та y[i].
Текст програми може бути написаний на мовах Pascal, C++ або C# без використання підпрограм, з використання підпрограм або з використанням класів та об’єктів. У програмі допускається наявність або відсутність перевірок вхідних даних та проміжних результатів, а також коментарів.
|
|
|
Відповідь: |
Program MainProgram; |
|||
Const |
CM = 10000 ; |
||
Var |
x, y : array [0 .. CM-1] of double ; |
||
|
i, n : integer ; |
||
|
f,a |
: double ; |
|
Begin |
|
|
|
Write(‘ n = ‘) ; |
// Ввід значення n |
||
Readln(n) |
; |
|
|
For i:=0 to n-1 do |
// Ввід значень елементів масиву x[i] |
||
Begin |
|
|
|
|
write(' x[',i,'] = ') ; |
||
|
readln(x[i]) |
; |
|
End ; |
|
|
|
f:=2.0*Pi |
; |
// Розрахунок у[i] |
|
For i:=0 to n-1 do |
|
|
|
Begin |
|
|
|
a:=x[i]* x[i] ; |
|
||
y[i]:=n*(1.0-a)/(1.0+a) |
; |
||
End ; |
|
|
|
For i:=0 to n-1 do |
// Вивід елементів масивів x[i] та y[i] |
||
writeln(' x[',i,'] = ',x[i],’ |
y[‘,i,’] = ‘,y[i]) ; |
||
End.
28
ЗАВДАННЯ № 27
Написати текст програми на мові програмування високого рівня, яка забезпечує виконання таких операцій:
1.Ввід значень n елементів масиву дійсних чисел x[i].
2.Розрахувати значення массиву y[i] за формулою:
y i ni ln 1 x2 i
3. Вивести значення та значення всіх елементів масивів x[i] та y[i].
Текст програми може бути написаний на мовах Pascal, C++ або C# без використання підпрограм, з використання підпрограм або з використанням класів та об’єктів. У програмі допускається наявність або відсутність перевірок вхідних даних та проміжних результатів, а також коментарів.
|
|
|
|
Відповідь: |
Program MainProgram; |
|
|||
Const |
CM = 10000 ; |
|
||
Var |
x, y : array [0 .. CM-1] of double ; |
|||
|
i, n : integer ; |
|
||
Begin |
|
|
|
|
Write(‘ n = ‘) ; |
// Ввід значення n |
|||
Readln(n) |
; |
|
|
|
For i:=0 to n-1 do |
// Ввід значень елементів масиву x[i] |
|||
Begin |
|
|
|
|
|
write(' |
x[',i,'] = ') ; |
|
|
|
readln(x[i]) |
; |
|
|
End ; |
|
|
|
|
|
|
|
// Розрахунок у[i] |
|
For i:=0 to n-1 do |
|
|
||
|
y[i]:=i*ln(1.0+sqr(x[i]) )/n |
; |
||
For i:=0 to n-1 do |
// Вивід елементів масивів x[i] та y[i] |
|||
|
writeln(' x[',i,'] = ',x[i],’ |
y[‘,i,’] = ‘,y[i]) ; |
||
End. |
|
|
|
|
29
ЗАВДАННЯ № 28
Написати текст програми на мові програмування високого рівня, яка забезпечує виконання таких операцій:
1.Ввід значень n елементів масиву дійсних чисел x[i].
2.Розрахувати значення массиву y[i] за формулою:
y i e |
x2 i |
n2 |
3. Вивести значення та значення всіх елементів масивів x[i] та y[i].
Текст програми може бути написаний на мовах Pascal, C++ або C# без використання підпрограм, з використання підпрограм або з використанням класів та об’єктів. У програмі допускається наявність або відсутність перевірок вхідних даних та проміжних результатів, а також коментарів.
|
|
|
Відповідь: |
Program MainProgram; |
|||
Const |
CM = 10000 ; |
||
Var |
x, y : array [0 .. CM-1] of double ; |
||
|
i, n : integer ; |
||
|
f,a |
: double ; |
|
Begin |
|
|
|
Write(‘ n = ‘) ; |
// Ввід значення n |
||
Readln(n) |
; |
|
|
For i:=0 to n-1 do |
// Ввід значень елементів масиву x[i] |
||
Begin |
|
|
|
|
write(' x[',i,'] = ') ; |
||
|
readln(x[i]) |
; |
|
End ; |
|
|
|
f:=2.0*Pi |
; |
// Розрахунок у[i] |
|
For i:=0 to n-1 do |
|
|
|
Begin |
|
|
|
a:=x[i]/n ; |
|
|
|
y[i]:=exp(-a*a) ; |
|
||
End ; |
|
|
|
For i:=0 to n-1 do |
// Вивід елементів масивів x[i] та y[i] |
||
writeln(' x[',i,'] = ',x[i],’ |
y[‘,i,’] = ‘,y[i]) ; |
||
End.
30
ЗАВДАННЯ № 29
Написати текст програми на мові програмування високого рівня, яка забезпечує виконання таких операцій:
1.Ввід значень n елементів масиву дійсних чисел x[i].
2.Розрахувати значення массиву y[i] за формулою:
y i 
x i x n i 1
3. Вивести значення та значення всіх елементів масивів x[i] та y[i].
Текст програми може бути написаний на мовах Pascal, C++ або C# без використання підпрограм, з використання підпрограм або з використанням класів та об’єктів. У програмі допускається наявність або відсутність перевірок вхідних даних та проміжних результатів, а також коментарів.
|
|
|
|
Відповідь: |
Program MainProgram; |
|
|||
Const |
CM = 10000 ; |
|
||
Var |
x, y : array [0 .. CM-1] of double ; |
|||
|
i, n : integer ; |
|
||
Begin |
|
|
|
|
Write(‘ n = ‘) ; |
// Ввід значення n |
|||
Readln(n) |
; |
|
|
|
For i:=0 to n-1 do |
// Ввід значень елементів масиву x[i] |
|||
Begin |
|
|
|
|
|
write(' |
x[',i,'] = ') ; |
|
|
|
readln(x[i]) |
; |
|
|
End ; |
|
|
|
|
For i:=0 to n-1 do |
// Розрахунок у[i] |
|||
|
y[i]:=sqrt(x[i]*x[n-i-1]) ; |
|
||
For i:=0 to n-1 do |
// Вивід елементів масивів x[i] та y[i] |
|||
|
writeln(' x[',i,'] = ',x[i],’ |
y[‘,i,’] = ‘,y[i]) ; |
||
End. |
|
|
|
|
31
ЗАВДАННЯ № 30
Написати текст програми на мові програмування високого рівня, яка забезпечує виконання таких операцій:
1.Ввід значень n елементів масиву дійсних чисел x[i].
2.Розрахувати значення массиву y[i] за формулою:
y i cos 2 i x3 i
3. Вивести значення та значення всіх елементів масивів x[i] та y[i].
Текст програми може бути написаний на мовах Pascal, C++ або C# без використання підпрограм, з використання підпрограм або з використанням класів та об’єктів. У програмі допускається наявність або відсутність перевірок вхідних даних та проміжних результатів, а також коментарів.
|
|
|
Відповідь: |
Program MainProgram; |
|||
Const |
CM = 10000 ; |
||
Var |
x, y : array [0 .. CM-1] of double ; |
||
|
i, n : integer ; |
||
|
f, a |
: double ; |
|
Begin |
|
|
|
Write(‘ n = ‘) ; |
// Ввід значення n |
||
Readln(n) |
; |
|
|
For i:=0 to n-1 do |
// Ввід значень елементів масиву x[i] |
||
Begin |
|
|
|
|
write(' x[',i,'] = ') ; |
||
|
readln(x[i]) |
; |
|
End ; |
|
|
|
|
f:=2.0*Pi |
; |
|
// Розрахунок у[i] |
|
For i:=0 to n-1 do |
|
|
|
|
Begin |
|
|
|
|
a:=f*sqr(x[i]) ; |
|
|
||
y[i]:=cos(a*x[i]) |
; |
|
||
End ; |
|
|
|
|
For i:=0 to n-1 do |
// Вивід елементів масивів x[i] та y[i] |
|||
writeln(' x[',i,'] = ',x[i],’ |
y[‘,i,’] = ‘,y[i]) ; |
|||
End.