Размер массива не указан

Здесь стандартные функции LOW(C) и HIGH(C) возвращают нижнее и верхнее значение индекса входного массива соответственно.

Пример использования подпрограммы FUNCTION.

Задание: в матрице А(4;5) найти максимум в каждой строке и расположить, найденные значения в порядке убывания

uses crt;

const m=4; n=5;

type str=array[1..n] of real;

matr=array[1..m] of str;

var a:matr; f:text; s:str; d:real;

i,j:integer;

{ подпрограмма вычисления максимума в строке матрицы }

function max(c:str):real;

var i:byte; cmax:real;

begin cmax:=c[1];

for i:=2 to n do if cmax<c[i] then cmax:=c[i];

max:=cmax

end;

begin

clrscr;

assign(f,'a7.pas');

reset(f);

readln(f);

for i:=1 to m do

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

for i:=1 to m do s[i]:=max(a[i]);{ обращение к подпрограмме }

append(f);

writeln(f);

for i:=1 to m do write(f,' s[',i,']=',s[i]:3:1); writeln(f);

writeln(f,'упорядоченный массив');

for j:=1 to m-1 do

{ перестановка в порядке убывания }

for i:=1 to m-j do if s[i]<s[i+1] then begin

d:=s[i];

s[i]:=s[i+1];

s[i+1]:=d

end;

for i:=1 to m do write(f,' s[',i,']=',s[i]:3:1); writeln(f);

close(f);

end.

Результаты записаны в файл с исходной матрицей

Матрица А

4 6 -3 2 -2

7 -5 12 8 -9

5 81 -12 6 -10

1 8 34 4 12

s[1]=6.0 s[2]=12.0 s[3]=81.0 s[4]=34.0

упорядоченный массив

s[1]=81.0 s[2]=34.0 s[3]=12.0 s[4]=6.0

Кафедра информатики

Иванов Борис Алексеевич. Файл