лабораторная работа / вар19 / Лабораторная №7

СОДЕРЖАНИЕ

1 Вариант. Задание 3

2 Графическая схема алгоритма 4

3 Программа на языке Turbo Pascal 6

4 Результаты выполненной работы 8

1 ВАРИАНТ. ЗАДАНИЕ

Вариант №19

Задание.

Вычислите суммы элементов главных диагоналей матриц А(N,N) B(M,M),

M<= 20

N<=30

2 ГРАФИЧЕСКАЯ СХЕМА АЛГОРИТМА

Блок-схема алгоритма Алгоритм вычисления

3 ПРОГРАММА НА ЯЗЫКЕ Turbo Pascal

program lab7_Vika;

type masiv=array[1..30,1..30] of real;

var

A,B:masiv;

S1,S2:real;

n,m:integer;

procedure Vvod(imj:char; var mas:masiv);

var

i,j:integer;

begin

writeln('Vvedite kol-vo chisel massiva ',imj);

read(n);

writeln('Vvedite massiv ',imj);

for i:=1 to n do begin

for j:=1 to n do read(mas[i,j]);

end;

end;

function Summa(var mas:masiv):real;

var

i:integer;

S:real;

begin

S:=0;

for i:=1 to high(mas)+1 do S:=S+mas[i,i];

summa:=S;

end;

BEGIN

Vvod('A',A);

S1:=summa(a);

writeln('Summa massiva A = ',S1:5:3);

Vvod('B',B);

S2:=summa(b);

writeln('Summa massiva B = ',S2:5:3);

END.

4 РЕЗУЛЬТАТЫ ВЫПОЛНЕННОЙ РАБОТЫ

Введите кол-во чисел массива А

3

Введите массив А

1 2 3

4 5 6

7 8 9

Сумма массива А=15

Введите кол-во чисел массива В

3

Введите массив В

1 2 3

3 2 1

1 2 3

Сумма массива В=6

7