Блок-схема

Пример 9.5 Найти среднее квадратическое элементов массива
(см. Пример 9.1).

Program Pr_9_5;

const n=5;

var

a:array[1..n] of real; i:integer;

S,Sqvadr:real;

begin

writeln('vvedite massiv');

for i:=1 to n do

 

 

read(a[i]);

S:=0;

for i:=1 to n do

S:=S+sqr(a[i]);

Sqvadr:=sqrt(S/n);

writeln('S=',S:10:2,', ','S/n=',(s/n):6:2);

writeln('Sqvadr=',Sqvadr:8:2)

end.

 

Пример 9.5 (Продолжение).

Объяснить работу программы.

Как описывается массив?

Нарисовать блок-схему и объяснить назначение бло-ков.

Провести вычисление по про-грамме для массива n = 5

(1, 2, 3, 4, 5).

Блок-схема

Пример 9.6 Найти среднее гармоническое элементов массива
(см. Пример 9.1).

Program Pr_9_6;

const n=5;

……………..

Дописать самостоятельно программу.

Нарисовать блок-схему и объяснить назначение бло-ков.

Провести вычисление по про-грамме для массива n = 5

(1, 2, 3, 4, 5).

Лабораторная работа № 10

Работа в среде Турбо Паскаль.

Одномерные массивы.