Інформатика
.pdf32
ЗАВДАННЯ № 31
Написати текст програми на мові програмування високого рівня, яка забезпечує виконання таких операцій:
1.Ввід значень n елементів масиву дійсних чисел x[i].
2.Розрахувати значення массиву y[i] за формулою:
|
|
|
|
|
|
|
|
|
|
|
|
y i |
12 |
|
x i |
|
|
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 ; |
|
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 ; |
|
|
|
For i:=0 to n-1 do |
// Розрахунок у[i] |
||
Begin |
|
|
|
a:=sqrt(x[i])/(i+1) ; |
|
||
y[i]:=sqrt(12.0+a) ; |
|
||
End ; |
|
|
|
For i:=0 to n-1 do |
// Вивід елементів масивів x[i] та y[i] |
||
writeln(' x[',i,'] = ',x[i],’ |
y[‘,i,’] = ‘,y[i]) ; |
||
End. |
|
|
|
33
ЗАВДАННЯ № 32
Написати текст програми на мові програмування високого рівня, яка забезпечує виконання таких операцій:
1.Ввід значень n елементів масиву дійсних чисел x[i].
2.Розрахувати значення массиву y[i] за формулою:
y i 1 sin 2 |
|
4 |
x3 i |
|
|
||
|
|
|
|
|
|
n |
|
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:=4.0*Pi/n |
; |
// Розрахунок у[i] |
|
For i:=0 to n-1 do |
|
|
|
Begin |
|
|
|
a:=f*sqr(x[i])*x[i] ; |
|||
y[i]:=1.0+sqr(sin(a)) |
; |
||
End ; |
|
|
|
For i:=0 to n-1 do |
// Вивід елементів масивів x[i] та y[i] |
||
writeln(' |
x[',i,'] = ',x[i],’ |
y[‘,i,’] = ‘,y[i]) ; |
End.
34
ЗАВДАННЯ № 33
Написати текст програми на мові програмування високого рівня, яка забезпечує виконання таких операцій:
1.Ввід значень n елементів масиву дійсних чисел x[i].
2.Розрахувати значення массиву y[i] за формулою:
y i i 6 x2 i
15 x4 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*(6.0-a)/(15.0+a*a) |
; |
||
End ; |
|
|
|
For i:=0 to n-1 do |
// Вивід елементів масивів x[i] та y[i] |
||
writeln(' x[',i,'] = ',x[i],’ |
y[‘,i,’] = ‘,y[i]) ; |
End.
35
ЗАВДАННЯ № 34
Написати текст програми на мові програмування високого рівня, яка забезпечує виконання таких операцій:
1.Ввід значень n елементів масиву дійсних чисел x[i].
2.Розрахувати значення массиву y[i] за формулою:
|
8 |
|
|
y i 5 cos2 |
|
|
x2 i |
|
|||
|
n |
|
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:=8.0*Pi/n |
; |
|
// Розрахунок у[i] |
|
For i:=0 to n-1 do |
|
|
|
|
Begin |
|
|
|
|
a:=f*sqr(x[i]) |
; |
|
||
y[i]:=5.0+cos(a) |
; |
|
||
End ; |
|
|
|
|
For i:=0 to n-1 do |
// Вивід елементів масивів x[i] та y[i] |
|||
writeln(' |
x[',i,'] = ',x[i],’ |
y[‘,i,’] = ‘,y[i]) ; |
End.
36
ЗАВДАННЯ № 35
Написати текст програми на мові програмування високого рівня, яка забезпечує виконання таких операцій:
1.Ввід значень n елементів масиву дійсних чисел x[i].
2.Розрахувати значення массиву y[i] за формулою:
y i sin 4 x i cos 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]:=sin(2*a)-cos(3*a) ; |
|
||
End ; |
|
|
|
For i:=0 to n-1 do |
// Вивід елементів масивів x[i] та y[i] |
||
writeln(' x[',i,'] = ',x[i],’ |
y[‘,i,’] = ‘,y[i]) ; |
End.
37
ЗАВДАННЯ № 36
Написати текст програми на мові програмування високого рівня, яка забезпечує виконання таких операцій:
1. Ввід значень n елементів масиву дійсних чисел x[i].
2. Розрахувати значення y за формулою:
1 n 1 x i
n12 i3
i0
3.Вивести значення y та значення всіх введених елементів масиву x[i].
Текст програми може бути написаний на мовах Pascal, C++ або C# без використання підпрограм, з використання підпрограм або з використанням класів та об’єктів. У програмі допускається наявність або відсутність перевірок вхідних даних та проміжних результатів, а також коментарів.
|
|
|
Відповідь: |
Program MainProgram; |
|||
Const |
CM = 100 ; |
|
|
Type |
T1 = array [0 .. CM-1] of double ; |
||
Var |
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:=0.0 |
; |
|
// Розрахунок у |
For i:=0 to n-1 do |
|
||
|
y:=y+x[i]/ (12.0+i*i*i); |
||
y:=sqrt(sqrt(y))/n |
; |
||
writeln(' y = ', y) ; |
// Вивід значення у |
For i:=0 to n-1 do // Вивід елементів масиву x[i] writeln(' x[',i,'] = ',x[i]) ;
End.
38
ЗАВДАННЯ № 37
Написати текст програми на мові програмування високого рівня, яка забезпечує виконання таких операцій:
1.Ввід значень n елементів масиву дійсних чисел x[i].
2.Розрахувати значення массиву y[i] за формулою:
y i cos3 4 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 : 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:=4.0*Pi |
; |
// Розрахунок у[i] |
For i:=0 to n-1 do
y[i]:=sqr(cos(f*x[i]) * cos(f*x[i]));
For i:=0 to n-1 do |
// Вивід елементів масивів x[i] та y[i] |
|
writeln(' x[',i,'] = ',x[i],’ |
y[‘,i,’] = ‘,y[i]) ; |
End.
39
ЗАВДАННЯ № 38
Написати текст програми на мові програмування високого рівня, яка забезпечує виконання таких операцій:
1.Ввід значень n елементів масиву дійсних чисел x[i].
2.Розрахувати значення массиву y[i] за формулою:
y i |
i3 |
(x i 2) |
|
|
n |
||
|
|
|
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(i*i*i*(x[i]+2)/n) |
; |
||
For i:=0 to n-1 do |
// Вивід елементів масивів x[i] та y[i] |
|||
|
writeln(' x[',i,'] = ',x[i],’ |
y[‘,i,’] = ‘,y[i]) ; |
||
End. |
|
|
|
|
40
ЗАВДАННЯ № 39
Написати текст програми на мові програмування високого рівня, яка забезпечує виконання таких операцій:
1.Ввід значень n елементів масиву дійсних чисел x[i].
2.Розрахувати значення y за формулою:
|
|
5 |
n 1 |
|
||
y |
|
x3 i |
||||
n |
||||||
|
|
i 0 |
|
|
3. Вивести значення y та значення всіх введених елементів масиву x[i].
Текст програми може бути написаний на мовах Pascal, C++ або C# без використання підпрограм, з використання підпрограм або з використанням класів та об’єктів. У програмі допускається наявність або відсутність перевірок вхідних даних та проміжних результатів, а також коментарів.
|
|
|
Відповідь: |
Program MainProgram; |
|||
Const |
CNmax = 1000 ; |
||
Type |
T1 = array [0 .. CNmax-1] of double ; |
||
Var |
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:=0.0 |
; |
|
// Розрахунок у |
For i:=0 to n-1 do |
|
||
|
y:=y+sqr(x[i]) * x[i]; |
||
y:=sqrt(5*y/n) |
; |
||
writeln(' y = ', y) ; |
// Вивід значення у |
For i:=0 to n-1 do // Вивід елементів масиву x[i] writeln(' x[',i,'] = ',x[i]) ;
End.
41
ЗАВДАННЯ № 40
Написати текст програми на мові програмування високого рівня, яка забезпечує виконання таких операцій:
1.Ввід значень n елементів масиву дійсних чисел x[i].
2.Розрахувати значення y за формулою:
|
4 |
n 1 |
|
n |
) x i |
|
y |
|
(i |
||||
|
|
|||||
|
n |
i 0 |
3 |
|
3. Вивести значення y та значення всіх введених елементів масиву x[i].
Текст програми може бути написаний на мовах Pascal, C++ або C# без використання підпрограм, з використання підпрограм або з використанням класів та об’єктів. У програмі допускається наявність або відсутність перевірок вхідних даних та проміжних результатів, а також коментарів.
|
|
|
Відповідь: |
Program MainProgram; |
|||
Const |
CNmax = 1000 ; |
||
Var |
x : array [0 .. CNmax-1] of double ; |
||
|
i, n : integer ; |
||
|
y, d |
: 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 ; |
// Розрахунок у |
d:=0.5*n ; |
|
For i:=0 to n-1 do |
|
y:=y+(i+n/3)*x[i] ; |
|
y:=4*y/n; |
|
writeln(' y = ', y) ; |
// Вивід значення у |
For i:=0 to n-1 do |
// Вивід елементів масиву x[i] |
writeln(' x[',i,'] = ',x[i]) ;
End.