4.2 Практична частина

Дано вектор А, який містить n елементів. Математично описати умову задачі, розробити схему алгоритму, скласти таблицю символічних імен, написати і відлагодити TP – програму.

Варіант 5

Обчислення середнього значення додатних елементів,що мають індекси кратні 3.Додатково вивести їх суму та кількість.

A=(a₁,a₂,a₃,…a_n)

A_cp-середнє значення додатніх елементів

S_g-сума додатніх елементів

K_g-кількість додатніх елементів

i<=3,n,3;

якщо a_i>0

Математичний опис задачі

1. Задати n;

2. Задати А;

3. S_g<=0;

4. K_g<=0;

5. i<=2;

6. i>n;

ні

7)a_i>0

так так;

8)S_g<=S_g+a_i; 11) K_g> 0

Так ні

9)K_g<= K_g+3;12)14)Вивід тексту

10)i<=3+3; 13)Вивід n,S_g,K_g,A_cp.

Схема алгоритму:

i<=3,n,3

Кінець

i=3, n, 13

Кінець

Таблиця символічних імен

Математичне ім’я	Символьне ім’я	Значення змінної за змістом	Змінна
			Тип	Значення
n	n	Кількістьелементів вектора А	дійсна	Задаєт.
i	i	Індекс елементів вектора А	дійсна	обчисл.
А	А	Вектор А	дійсна	обчисл.
Acp	Acp	Середнє значення додатних елементів	дійсна	обчисл.
Sg	Sg	Сума додатних елементів	дійсна	обчисл.
Kg	Kg	Кількість додатніх елементів	дійсна	обчисл.

Розробляю програму:

Program Zavdannya_4;

Uses CRT;

Var a:array[1..100] of real;

i,n:byte;

Sd,Kd,Asr:real;

Begin

clrscr;

write('zadayte rasmer vektora');

Readln(n);

writeln('vector a');

for i:=1 to n do

Begin

write('A[',i,']=');

readln(A[i])

end;

clrscr;

Sd:=0;

Kd:=0;

i:=3;

while i<=n do

Begin

if a[i]>0 then

Begin

Sd:=Sd+a[i];

Kd:=Kd+1

end;

i:=i+3

end;

Asr:=Sd/Kd;

Writeln('Zavdannya_4');

Writeln('Rozrobka programi cilichnogo obchislyvalnogo processu');

Writeln('Studenta Zuyakova Gleba');

Writeln('Gruppa EMgS-11-1');

Writeln('vhidni dani');

Writeln('A=(2,1,4,-5,2,7,9,3,12)');

Writeln('n=9');

Writeln('rezultaty rihennya');

writeln(' Sd=',Sd:6:3, ' Kd=', Kd:6:3,'Asr=',Asr:6:3);

{for i:=1 to n do

writeln(a[i]:6:3);}

end.

Результат роботи програми:

Zavdannya_4

Rozrobka programi cilichnogo obchislyvalnogo processu

Studenta Zuyakova Gleba

Gruppa EMgS-11-1

vhidni dani

A=(2,1,4,-5,2,7,9,3,12)

n=9

rezultaty rihennya

Sd=23.000 Kd=3.000 Asr=7.667

Завдання № 5

5.1 Теоретична частина

Обґрунтувати програмування вложених циклічних обчислювальних процесів. Багатовимірні масиви. Ініціалізація масивів. Використання функцій та динамічного розподілу пам’яті.