Інформатика
.pdf
42
ЗАВДАННЯ № 41
Написати текст програми на мові програмування високого рівня, яка забезпечує виконання таких операцій:
4.Ввід значень n елементів масиву дійсних чисел x[i].
5.Розрахувати значення массиву y[i] за формулою:
|
|
|
|
|
|
|
|
|
|
|
|
y i |
10 |
|
x i |
|
|
i3 |
|
||||
|
|
|
|
||
6. Вивести значення та значення всіх елементів масивів 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*i*i) ; |
|
||
y[i]:=sqrt(10.0+a]) ; |
|
||
End ; |
|
|
|
For i:=0 to n-1 do |
// Вивід елементів масивів x[i] та y[i] |
||
writeln(' x[',i,'] = ',x[i],’ |
y[‘,i,’] = ‘,y[i]) ; |
||
End. |
|
|
|
43
ЗАВДАННЯ № 42
Написати текст програми на мові програмування високого рівня, яка забезпечує виконання таких операцій:
4.Ввід значень n елементів масиву дійсних чисел x[i].
5.Розрахувати значення массиву y[i] за формулою:
y i 13 sin 2 |
8 |
x4 i |
||
|
|
|||
|
|
|||
|
n |
|
||
6. Вивести значення та значення всіх елементів масивів 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(sqr(x[i])) |
; |
||
y[i]:=13.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.
44
ЗАВДАННЯ № 43
Написати текст програми на мові програмування високого рівня, яка забезпечує виконання таких операцій:
4.Ввід значень n елементів масиву дійсних чисел x[i].
5.Розрахувати значення массиву y[i] за формулою:
y i i3 12 x3 i
20 x4 i
6. Вивести значення та значення всіх елементів масивів 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 Begin
a:=x[i]*x[i] ;
y[i]:=n*n*n*(12.0- x[i]*a)/(20.0+sqr(a) ; End ;
For i:=0 to n-1 do |
// Вивід елементів масивів x[i] та y[i] |
|
writeln(' x[',i,'] = ',x[i],’ |
y[‘,i,’] = ‘,y[i]) ; |
|
End.
45
ЗАВДАННЯ № 44
Написати текст програми на мові програмування високого рівня, яка забезпечує виконання таких операцій:
4.Ввід значень n елементів масиву дійсних чисел x[i].
5.Розрахувати значення массиву y[i] за формулою:
|
16 |
2 |
|
|
y i 10 cos2 |
|
x3 i |
||
|
|
|
||
|
|
n |
|
|
|
|
|
|
|
|
|
|
||
6. Вивести значення та значення всіх елементів масивів 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:=16.0*Pi*Pi /n |
; |
|
// Розрахунок у[i] |
For i:=0 to n-1 do |
|
|
|
Begin |
|
|
|
a:=f*sqr(x[i]) |
; |
|
|
y[i]:=10.0+sqr(cos(a)) |
; |
||
End ; |
|
|
|
For i:=0 to n-1 do |
// Вивід елементів масивів x[i] та y[i] |
||
writeln(' x[',i,'] = ',x[i],’ |
y[‘,i,’] = ‘,y[i]) ; |
||
End.
46
ЗАВДАННЯ № 45
Написати текст програми на мові програмування високого рівня, яка забезпечує виконання таких операцій:
4.Ввід значень n елементів масиву дійсних чисел x[i].
5.Розрахувати значення массиву y[i] за формулою:
y i sin2 8 x i cos 4 x i
6. Вивести значення та значення всіх елементів масивів 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]:=sqr(sin(8*a))+cos(4*a) ; |
|||
End ; |
|
|
|
For i:=0 to n-1 do |
// Вивід елементів масивів x[i] та y[i] |
||
writeln(' x[',i,'] = ',x[i],’ |
y[‘,i,’] = ‘,y[i]) ; |
||
End.
47
ЗАВДАННЯ № 46
Написати текст програми на мові програмування високого рівня, яка забезпечує виконання таких операцій:
4.Ввід значень n елементів масиву дійсних чисел x[i].
5.Розрахувати значення y за формулою:
|
|
|
|
|
|
y |
1 |
4 |
n 1 |
x i 7 |
|
|
|
|
|
||
n2 |
3 i3 |
|
|||
|
|
i 0 |
|
6. Вивести значення 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]+7.0)/ (3.0*pi+i*i*i); |
|||
y:=sqrt(sqrt(y))/sqr(n) |
; |
|||
writeln(' y = ', y) ; |
// Вивід значення у |
|||
For i:=0 to n-1 do // Вивід елементів масиву x[i] writeln(' x[',i,'] = ',x[i]) ;
End.
48
ЗАВДАННЯ № 47
Написати текст програми на мові програмування високого рівня, яка забезпечує виконання таких операцій:
4.Ввід значень n елементів масиву дійсних чисел x[i].
5.Розрахувати значення массиву y[i] за формулою:
y i cos4 12 |
|
|
x2 i 2 |
||
|
|
|
|
|
|
6. Вивести значення та значення всіх елементів масивів 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:=12.0*Pi |
; |
// Розрахунок у[i] |
||
For i:=0 to n-1 do |
|
|
||
y[i]:=sqr(sqr(cos(f*sqrt(sqr(x[i])+2.0))); |
||||
For i:=0 to n-1 do |
// Вивід елементів масивів x[i] та y[i] |
|||
|
writeln(' x[',i,'] = ',x[i],’ |
y[‘,i,’] = ‘,y[i]) ; |
||
End. |
|
|
|
|
49
ЗАВДАННЯ № 48
Написати текст програми на мові програмування високого рівня, яка забезпечує виконання таких операцій:
4.Ввід значень n елементів масиву дійсних чисел x[i].
5.Розрахувати значення массиву y[i] за формулою:
y i |
i4 |
(x3 i 5) |
|
|
n |
||
|
|
|
|
6. Вивести значення та значення всіх елементів масивів 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(sqr(sqr(i))*(x[i]*x[i]*x[i]+5)/n) ; |
|||
For i:=0 to n-1 do |
// Вивід елементів масивів x[i] та y[i] |
|||
|
writeln(' x[',i,'] = ',x[i],’ |
y[‘,i,’] = ‘,y[i]) ; |
||
End. |
|
|
|
|
50
ЗАВДАННЯ № 49
Написати текст програми на мові програмування високого рівня, яка забезпечує виконання таких операцій:
4.Ввід значень n елементів масиву дійсних чисел x[i].
5.Розрахувати значення y за формулою:
|
|
|
|
|
||
|
|
11 |
n 1 |
i |
||
y |
|
x4 |
||||
n3 |
||||||
|
|
i 0 |
|
|
||
6. Вивести значення 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(sqr(x[i])); |
|||
y:=sqrt(11*y/sqr(n)/n) |
; |
|||
writeln(' y = ', y) ; |
// Вивід значення у |
|||
For i:=0 to n-1 do // Вивід елементів масиву x[i] writeln(' x[',i,'] = ',x[i]) ;
End.
51
ЗАВДАННЯ № 50
Написати текст програми на мові програмування високого рівня, яка забезпечує виконання таких операцій:
4.Ввід значень n елементів масиву дійсних чисел x[i].
5.Розрахувати значення y за формулою:
|
|
n 1 |
|
|
|
|
||
|
16 |
n i 3 |
) x2 |
i |
||||
y |
|
(i |
|
|||||
n3 |
|
|
||||||
|
i 0 |
|
|
5 |
|
|
|
|
6. Вивести значення 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:=16/(n*n*n) ; |
|
||
For i:=0 to n-1 do |
|
||
|
y:=y+(i+sqrt(n+i+3)/5)*sqr(x[i]) ; |
||
y:=4*y/n; |
|
|
|
writeln(' y = ', y) ; |
// Вивід значення у |
||
For i:=0 to n-1 do |
// Вивід елементів масиву x[i] |
||
writeln(' x[',i,'] = ',x[i]) ;
End.