лабораторная работа / LAB_7

Лабораторная работа №7.

Процедуры.

Цель работы: Записать программу, используя обращение к процедуре.

Задание: Дана матрица А(4х4). Найти максимальные элементы в каждой строке с помощью процедуры и вывести их на экран.

Блок-схема:

Программа:

program matrix2;

var a:array[1..4,1..4] of integer;

b:array[1..4] of integer;i,j:byte;

procedure maxi(const x:byte;var max:integer);

var m,j1:integer;

begin

m:=a[x,1];

for j1:=2 to 4 do

if a[x,j1]>m then m:=a[x,j1];

max:=m;

end;

begin

for i:=1 to 4 do

for j:=1 to 4 do read(a[i,j]);

for i:=1 to 4 do

maxi(i,b[i]);

for i:=1 to 4 do writeln('max[',i,']=',b[i]);

end.

Из массива A(4,4) =

(20, -3, 5, 8

-3, -5, 4, 6,

-43, 432, 4, 0,

-5, 45, -45, 6)

Получили:

max[1]=20

max[2]=6

max[3]=423

max[4]=45