Задача на тему "Функции" Опции

[kvadrat]

Условие:


Немогу понять что такое норма и что обозначает та формула в конце, помогите разобраться плиз.

Вот пока что знаю набросал:

program wersdfg;
function f1(i,j:integer):integer;(p:array[1..m,1..n] of real):real; 
begin 
writeln('vvedite elementi matrici');
for i:=1 to n do begin
write(i:2, '-я строка: ');
for j:=1 to n do read(p[i,j]);
end;
const m=4;n=3;
var a,b,c:array[1..m,1..n] of real;i,j:integer;
begin
readln(f1(i,j,p));
end.

[sintanial]

Вот я написал. Однако почему то не вычисляется s1,s2,s3 если им передавать значение функции( наверно что то в функции напутал, но уже спать хочу не могу найти ошибку, попробуй завтра сам разобрать, может поймешь де я ошибся), а если без функции делать то все отлично вроде считается =). Короче подумай с функцией max- я что то в ней не так сделал( что то не так описал, либо в конце не правильно присвоил значение функции) =)

 Type matr=array[1..4,1..4] of real ;
function max(const a:matr):real;
var s,max1:real; i,j:integer;
begin
   j:=1;
   max1:=0;
   repeat
   begin
   s:=0;
     for i:=1 to 4 do
       s:=s+abs(a[i,j]);
     if s>max1 then
       max1:=s;
     inc(j)
   end;
   until j>3;
   max:=max1;
end;

function mat(var a:matr):real;
var i,j:integer;
begin
  writeln('vvod matrici:');
  for i:=1 to 4 do
    for j:=1 to 3 do
      read(a[i,j]);
  end;
var a,b,c:matr;
i,s,j:integer;
s1,s2,s3,max1,vmax:real;
m,n:integer;
begin
  mat(a);
  s1:=max(a);
  mat(b);
  s2:=max(b);
  mat©;
  s3:=max©;
  if s1>s2 then
    vmax:=s1
  else
    vmax:=s2;
  if s3>vmax then
    vmax:=s3;
  writeln('max=',vmax);
end.

Сообщение отредактировано: sintanial - 23.05.2008 0:23