Інформатика
.pdf2
ЗАВДАННЯ № 1
Написати текст програми на мові програмування високого рівня, яка забезпечує виконання таких операцій:
1. Ввід значень n елементів масиву дійсних чисел x[i].
2. Розрахувати значення y за формулою:
1 n 1
y x 2 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]) ; |
||
y:=sqrt(y/n) |
; |
|
|
writeln(' y = ', y) ; |
// Вивід значення у |
For i:=0 to n-1 do // Вивід елементів масиву x[i] writeln(' x[',i,'] = ',x[i]) ;
End.
3
ЗАВДАННЯ № 2
Написати текст програми на мові програмування високого рівня, яка забезпечує виконання таких операцій:
1.Ввід значень n елементів масиву дійсних чисел x[i].
2.Розрахувати значення y за формулою:
|
1 |
n 1 |
n |
) x i |
|
y |
(i |
||||
n |
2 |
||||
|
i 0 |
|
3. Вивести значення y та значення всіх введених елементів масиву x[i].
Текст програми може бути написаний на мовах Pascal, C++ або C# без використання підпрограм, з використання підпрограм або з використанням класів та об’єктів. У програмі допускається наявність або відсутність перевірок вхідних даних та проміжних результатів, а також коментарів.
|
|
|
Відповідь: |
Program v; |
|
|
|
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)*x[i] ;
y:=y/n;
writeln(' y = ', y) ; // Вивід значення у
For i:=0 to n-1 do // Вивід елементів масиву x[i] writeln(' x[',i,'] = ',x[i]) ;
End.
4
ЗАВДАННЯ № 3
Написати текст програми на мові програмування високого рівня, яка забезпечує виконання таких операцій:
1. Ввід значень n елементів масиву дійсних чисел x[i].
2. Розрахувати значення y за формулою:
|
1 |
n 1 |
|
|
x i |
|
|
|
y |
i2 |
|
|
|
|
|||
|
|
|||||||
2 |
||||||||
|
n |
i 0 |
|
|
|
|
|
|
|
|
|
|
|
|
|
3. Вивести значення y та значення всіх введених елементів масиву x[i].
Текст програми може бути написаний на мовах Pascal, C++ або C# без використання підпрограм, з використання підпрограм або з використанням класів та об’єктів. У програмі допускається наявність або відсутність перевірок вхідних даних та проміжних результатів, а також коментарів.
|
|
|
Відповідь: |
Program MainProgram; |
|||
Const |
CNmax = 1000 ; |
||
Var |
x : array [0 .. CNmax-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:=0.0 |
; |
|
// Розрахунок у |
For i:=0 to n-1 do |
|
||
|
y:=y+sqr(i)*abs(x[i]) ; |
||
y:=sqrt(y/sqr(n)) |
; |
||
writeln(' y = ', y) ; |
// Вивід значення у |
For i:=0 to n-1 do // Вивід елементів масиву x[i] writeln(' x[',i,'] = ',x[i]) ;
End.
5
ЗАВДАННЯ № 4
Написати текст програми на мові програмування високого рівня, яка забезпечує виконання таких операцій:
1.Ввід значень n елементів масиву дійсних чисел x[i].
2.Розрахувати значення y за формулою:
|
n 1 |
i |
y |
i 2 x 4 |
|
|
i 0 |
|
3. Вивести значення y та значення всіх введених елементів масиву x[i].
Текст програми може бути написаний на мовах Pascal, C++ або C# без використання підпрограм, з використання підпрограм або з використанням класів та об’єктів. У програмі допускається наявність або відсутність перевірок вхідних даних та проміжних результатів, а також коментарів.
|
|
|
Відповідь: |
Program MainProgram; |
|||
Type |
T1 = array [0 .. 1024] 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(i*sqr(x[i])) ;
y:=sqrt(y) |
; |
|
writeln(' y = ', y) ; |
// Вивід значення у |
|
For i:=0 to n-1 do |
// Вивід елементів масиву x[i] |
|
writeln(' |
x[',i,'] = ',x[i]) ; |
End.
6
ЗАВДАННЯ № 5
Написати текст програми на мові програмування високого рівня, яка забезпечує виконання таких операцій:
1. Ввід значень n елементів масиву дійсних чисел x[i].
2. Розрахувати значення y за формулою:
1 |
n 1 |
1 x2 i |
||
y |
|
|
|
|
n |
1 x2 i |
|||
|
|
i 0 |
|
|
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+(1.0-sqr(x[i])/ (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.
7
ЗАВДАННЯ № 6
Написати текст програми на мові програмування високого рівня, яка забезпечує виконання таких операцій:
1. Ввід значень n елементів масиву дійсних чисел x[i].
2. Розрахувати значення y за формулою:
|
|
|
|
|
|
1 |
|
n 1 |
x i |
|
|
y |
|
4 |
|
|
|
n |
1 i2 |
|
|||
|
|
|
i 0 |
|
|
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]/ (1.0+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.
8
ЗАВДАННЯ № 7
Написати текст програми на мові програмування високого рівня, яка забезпечує виконання таких операцій:
1. Ввід значень n елементів масиву дійсних чисел x[i].
2. Розрахувати значення y за формулою:
|
|
|
|
|
|
|
|
1 |
|
n 1 |
i |
||
y |
|
i x3 |
||||
2 |
||||||
|
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 |
: 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+i*x[i]*sqr(x[i]) ; |
||
y:=y/sqr(n) |
; |
|
|
writeln(' y = ', y) ; |
// Вивід значення у |
||
For i:=0 to n-1 do |
// Вивід елементів масиву x[i] |
writeln(' x[',i,'] = ',x[i]) ;
End.
9
ЗАВДАННЯ № 8
Написати текст програми на мові програмування високого рівня, яка забезпечує виконання таких операцій:
1.Ввід значень n елементів масиву дійсних чисел x[i].
2.Розрахувати значення y за формулою:
|
1 |
n 1 |
|
i |
|
y |
|
x i cos 4 |
|
|
|
|
|
||||
|
n |
i 0 |
|
n |
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 |
; |
|
// Розрахунок у |
f:=4.0*Pi/n |
; |
|
|
For i:=0 to n-1 do |
|
||
|
y:=y+x[i]*cos(f*i) ; |
||
y:=y/n |
|
; |
|
writeln(' y = ', y) ; |
// Вивід значення у |
For i:=0 to n-1 do // Вивід елементів масиву x[i] writeln(' x[',i,'] = ',x[i]) ;
End.
10
ЗАВДАННЯ № 9
Написати текст програми на мові програмування високого рівня, яка забезпечує виконання таких операцій:
1.Ввід значень n елементів масиву дійсних чисел x[i].
2.Розрахувати значення y за формулою:
|
1 |
n 1 |
|
8 |
|
y |
|
x i sin |
|
i |
|
2 |
|
||||
|
i 0 |
n |
|
3. Вивести значення y та значення всіх введених елементів масиву x[i].
Текст програми може бути написаний на мовах Pascal, C++ або C# без використання підпрограм, з використання підпрограм або з використанням класів та об’єктів. У програмі допускається наявність або відсутність перевірок вхідних даних та проміжних результатів, а також коментарів.
|
|
|
|
Відповідь: |
Program MainProgram; |
||||
Const |
CNmax = 1000 ; |
|||
Var |
x : array [0 .. CNmax-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 |
; |
|
|
// Розрахунок у |
f:=8.0*Pi/n |
; |
|
|
|
For i:=0 to n-1 do |
|
|||
|
y:=y+x[i]*sin(f*i) ; |
|||
y:=y/(2.0*Pi) |
; |
|
||
writeln(' y = ', y) ; |
// Вивід значення у |
|||
For i:=0 to n-1 do |
// Вивід елементів масиву x[i] |
|||
|
writeln(' x[',i,'] = ',x[i]) ; |
|||
End. |
|
|
|
|
11
ЗАВДАННЯ № 10
Написати текст програми на мові програмування високого рівня, яка забезпечує виконання таких операцій:
1.Ввід значень n елементів масиву дійсних чисел x[i].
2.Розрахувати значення y за формулою:
|
n 1 |
|
2 |
|
2 |
|
||
|
|
|
|
|
|
|
|
|
y |
|
x i sin |
|
i |
cos |
|
i |
|
|
i 0 |
|
|
n |
|
|
n |
|
3. Вивести значення y та значення всіх введених елементів масиву x[i].
Текст програми може бути написаний на мовах Pascal, C++ або C# без використання підпрограм, з використання підпрограм або з використанням класів та об’єктів. У програмі допускається наявність або відсутність перевірок вхідних даних та проміжних результатів, а також коментарів.
|
|
|
Відповідь: |
Program MainProgram; |
|||
Const |
CNmax = 1000 ; |
||
Var |
x : array [0 .. CNmax-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 |
; |
|
// Розрахунок у |
f:=2.0*Pi/n |
; |
|
|
For i:=0 to n-1 do |
|
||
|
y:=y+x[i]*(sin(f*i)+cos(f*i)) ; |
||
writeln(' y = ', y) ; |
// Вивід значення у |
For i:=0 to n-1 do // Вивід елементів масиву x[i] writeln(' x[',i,'] = ',x[i]) ;
End.