Пример. Даны две матрицы: а из 3-х строк и 5 столбцов и b из 7 строк и 3 столбцов. Вычислить минимальные значения элементов для каждой строки каждой из этих

матриц. Состав данных программы

Программа примера

program primer2_2;

Type matr=array[1..7,1..5] of real; mas= array[1..7] of real; Var a,b:matr; mina,minb:mas; {далее-раздел процедур и функций}

Procedure minstr(Var a:matr; n,m:integer; Var min:mas); Var i,j:integer;

Begin

for i:=1 to n do begin

min[i]:=a[i,1]; for j:=2 to m do

if min[i]>a[i,j] then min[i]:=a[i,j];

end End{minstr};

Программа примера (продолжение)

Procedure matrin(n,m:integer; c:char; Var p:matr); Var i,j:integer;

Begin

Writeln('Введите матрицу ',c,' размером ',n,'*',m); for i:=1 to n do

for j:=1 to m do read(p[i,j]);

readln;

End{matrin};

Procedure masout(n:integer;c:char;Var min:mas); Var i:integer;

Begin

Writeln('Минимальные значения строк матрицы ',c); for i:=1 to n do

writeln(' ',min[i]); End{masout};

Программа примера (продолжение)

Begin {начинается раздел действий программы} matrin(3,5,'a',a);

matrin(7,3,'b',b); minstr( a,3,5,mina); minstr( b,7,3,minb); masout(3,'a', mina); masout(7,'b', minb); readln

End.

Пример функции

function sum(var v:mas; n:integer):real;

{функция вычисляет сумму первых n (n<=10) элементов массива v}

var s:real; i:integer; begin

s:=0; {sum нельзя использовать для накапливания суммы}

for i:=1 to n do s:=s+v[i]; sum:=s;

end;

Обращение к функции

Обращение к функции производится в выражениях посредством использования указателя фукции:

ИмяФункции[(Список фактических параметров)];

Указатель функции может стоять только в правой части оператора присваивания.