Генерация двумерного массива функцией: неправильный тип параметров подпрограммы - PascalABC.NET

Формулировка задачи:

задача: сгенерировать двумерный массив с помощью функции. получаю следующую ошибку:

var
flag:boolean;
max, x:Real;
A:array[1..5,1..5] of Real;
B:array[1..5] of Real;
i,j:Integer;
type mas = array[1..5,1..5] of real;
 
function generate(var a:mas; i,j:integer):real;
begin
for i:=1 to 5 do
  begin
   for j:=1 to 5 do
    begin
    a[i,j]:= exp( ln(i)*(-3) )  *  (2- exp(ln( abs(j-3) )*3) ) - SQRT( abs( sin( SQR(i)+SQR(j) )    +(2-SQR(j-5)) ));
    end;
  end;
end;
 
begin
 
 generate(A[i,j], 1, 1);

есть идеи?

Решение задачи: «Генерация двумерного массива функцией: неправильный тип параметров подпрограммы»

textual
                            Листинг программы 
                        

                            const n=5;
type matrix=array[1..n,1..n] of Real;
function generate:matrix;
var i,j:integer;
begin
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    result[i,j]:= exp( ln(i)*(-3))*(2-exp(ln( abs(j-3))*3))-SQRT(abs(sin(SQR(i)+SQR(j))+(2-SQR(j-5))));
    write(result[i,j]:7:2);
   end;
  writeln;
 end;
end;
var a:matrix;
begin
a:=generate;
end.
                        

Оцени полезность:

6 голосов , оценка 4 из 5

Похожие ответы