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

Ввод массива.

for i:=1 to n do read(a[i]);

Вывод массива.

В столбец:

for i:=1 to n do writeln(a[i]);

В строку:

for i:=1 to n do write(a[i],’ ‘);

С заданием формата:

for i:=1 to n do write(a[i]:6);

Пример 9.1 Найти сумму элементов массива

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

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

Объяснить назначение блоков 1- 8 блок-схемы и вписать в них выполняемые ими функ-ции.

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

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

 

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

Program Pr_9_1;

const n=5;

type

ar=array[1..n] of real;

var

a:ar;

i:integer;

S:real;

begin

writeln('vvedite massiv');

for i:=1 to n do

read(a[i]);

readln;

S:=0;

for i:=1 to n do

S:=S+a[i];

writeln('S=',S:10:2)

end.

 

 

Пример 9.2Найти сумму элементов массива (см. Пример 9.1).

Program Pr_9_2;

const n=5;

var

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

begin

writeln('vvedite massiv');

for i:=1 to n do

read(a[i]);

readln;

S:=0;

for i:=1 to n do

S:=S+a[i];

writeln('S=',S:10:2)

end.

 

 

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

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

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

Чем отличаются программы в приведенных примерах 9.1 и

9.2 .

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

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

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

Program Pr_9_3;

const n=5;

var

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

S,Sarifm:real;

begin

writeln('vvedite massiv');

for i:=1 to n do

read(a[i]);

S:=0;

for i:=1 to n do

S:=S+a[i];

Sarifm:=S/n;

writeln('S=',S:10:2);

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

end.

 

 

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

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

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

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

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

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

 

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

Program Pr_9_4;

const n=5;

var

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

P,Sgeom:real;

begin

writeln('vvedite massiv');

for i:=1 to n do

read(a[i]);

P:=1;

for i:=1 to n do

P:=P*a[i];

Sgeom:=exp((1/n)*ln(P));

writeln('P=',P:10:2);

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

end.

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

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

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

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

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

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