5.6 Опрацювання масивів даних у Паскалі.

1. Скласти програму розрахунку кількості позитивних та від’ємних елементів масиву дійсних чисел С(с₁,с₂,...,с₇₅).

PROGRAM PR1;

VAR

C:ARRAY [1..75] OF REAL;

I,POL,OTR:INTEGER;

BEGIN

POL:=0; OTR:=0;

FOR I:=1 TO 75 DO

BEGIN

READLN (C[I]);

IF C[I]>=0

THEN POL:=POL+1

ELSE OTR:=OTR+1

END;

WRITELN (‘кол-во положительных элементов=’,POL);

WRITELN (‘кол-во отрицательных элементов=’,OTR)

END.

2. Скласти програму визначення максимального елемента масиву цілих чисел В(b₁,b₂,...,b₅₀) та його порядкового номеру.

PROGRAM PR2;

VAR

B:ARRAY [1..50] OF INTEGER; I,MAX,N:INTEGER;

BEGIN

FOR I:=1 TO 50 DO

READLN (B[I]);

B[1]:=MAX; N:=1;

FOR I:=1 TO 50 DO

IF B[I]>=MAX

THEN BEGIN B[I]:=MAX; N:=I END;

WRITELN (‘максимальный элемент MAX=’,MAX);

WRITELN (‘порядковый номер N=’,N)

END.

3. Скласти програму знаходження суми двох матриць А(53) та В(53) і отриману матрицю помножити на дійсне число K. Елементи матриці – цілі числа.

PROGRAM MATR;

TYPE

MATRA=ARRAY [1..5,1..3] OF INTEGER;

MATRB=ARRAY [1..5,1..3] OF INTEGER;

MATRC=ARRAY [1..5,1..3] OF INTEGER;

MATRD=ARRAY [1..5,1..3] OF REAL;

VAR

A:MATRA; B:MATRB; C:MATRC; D:MATRD;

K:REAL; I,J:INTEGER;

BEGIN

READLN (K);

FOR I:=1 TO 5 DO

FOR J:=1 TO 3 DO READLN (A[I,J]);

FOR I:=1 TO 5 DO

FOR J:=1 TO 3 DO READLN (B[I,J]);

FOR I:=1 TO 5 DO

FOR J:=1 TO 3 DO

C[I,J]:=A[I,J]+B[I,J];

FOR I:=1 TO 5 DO

FOR J:=1 TO 3 DO

D[I,J]:=C[I,J]*K;

FOR I:=1 TO 5 DO

WRITELN (D[I,1]:8, D[I,2]:8, D[I,3]:8);

FOR I:=1 TO 5 DO

WRITELN (C[I,1]:8,C[I,2]:8, C[I,3]:8)

END.

6. Завдання до самостійного опрацювання

6.1 Скласти програми лінійного алгоритму

1. Скласти програму визначення площі трикутника за формулою Герона:

де : а, b, с- довжина сторін - цілі числа;

2. Скласти програму визначення параметрів кругу за заданим радіусом r,

де r-ціле число:

d = 2r

l = d

s = r²

3. Скласти програму обчислення площі поверховості зрізаного конусу за формулою:

S=(R+r)l+R²+r², якщо R=12,5см; r=7,82см; l=22,4см

4. Скласти програму обчислення періоду коливання маятника за формулою:

T=2 , де g =9,81м/с²

e=0,21м

5. Скласти програму обчислення об’єму циліндра, площі його бокової та повної поверховості за формулами:

V=R²H; S_бок=2RH; S_n=2RH+2R, якщо задані R та H – дійсні числа.

6.Скласти програму обчислення середнього арифметичного квадратів трьох чисел х, у, z, а також середнього геометричного їх квадратних корнів. х, у, z – цілі числа.

7.Скласти програму обчислення гіпотенузи прямокутного трикутника, якщо задані довжина катетів, а також знайти площу трикутника.

8.Скласти програму обчислення значення функції:

; де: х – ціле число; а,с – дійсні числа.

9.Скласти програму обчислення значення функції:

; де: х,у – цілі числа.

10.Скласти програму визначення загального опору електричного ланцюга при послідовному та паралельному з’єднанні трьох резисторів, які мають опір:

R₁=1,47 Ом; R₂=7,73 Ом; R₃=4,65 Ом.