Двумерный массив в качестве параметра

[_-Re@l-_]

Есть модуль, в качестве параметра одной процедуры должен задаваться двумерный массив.
Когда делаю так:

Procedure Add(A:array of integer;
                    B:array of integer;)

и потом пытаюсь обращаться так:

A[i,j]:=....
B[i,j]:=...

То выдаёт ошибку Invalid qualifier. Так вот, как записать в строке

Procedure Add(A:array of integer;
                    B:array of integer;)

Типы параметров A и B так, чтобы можно было использовать их(A и B) как двумерные массивы?

[eoln]

1) Обычный Паскаль с динамическими массивами через array не работает - делай через списки или статические массивы.
2) Массивы не двумерные, а одномерные. Объявлять как A:array[1..10, 1..10] of integer (в Delphi можно A: array of array of integer)
3) Массивы через параметры так передать не получится, надо создать новый тип, например, type MyTypeA = array[1..10, 1..10] of integer; MyTypeB = array[1..15, 1..15] of integer; Процедура будет выглядеть как Procedure Add(A:MyTypeA; B:MyTypeB)
4) Полагаю, что процедура Add добавляет какие-то данные, т.е. изменяет массивы для дальнейшей работы. Тогда процедура будет выглядеть так: Procedure Add(var A:MyTypeA; var B:MyTypeB) - то есть процедура возвращает значения изменённых данных (передача параметров-переменных)

[_-Re@l-_]

1) Обычный Паскаль с динамическими массивами через array не работает - делай через списки или статические массивы.

Я и забыл про списки.

4) Полагаю, что процедура Add добавляет какие-то данные, т.е. изменяет массивы для дальнейшей работы. Тогда процедура будет выглядеть так: Procedure Add(var A:MyTypeA; var B:MyTypeB) - то есть процедура возвращает значения изменённых данных (передача параметров-переменных)

Не, у меня процедура Add перемножает матрицы размера MxN.

Всё равно не получается то что я хочу.
Вот код:

Unit Matrices;

Interface

Uses CRT;

Type
    matrix = ^item;
    item = array[1..2,1..2] of integer;

Procedure Add(m,n:integer;
              A:matrix;
              B:matrix;
              var C:matrix);

Implementation

Procedure Add(m,n:integer;
              A:matrix;
              B:matrix;
              var C:matrix);
Var
   k,i,j:integer;
Begin
     Clrscr;
     New(A);
     New(B);
     New(C);
     for i:=1 to m do
        for j:=1 to n do
        begin
             C^[j,i]:=0;
             for k:=1 to m do
             C^[j,i]:=C^[j,i]+A^[i,k]*B^[k,j];
        end;
     for i:=1 to m do
        begin
             for j:=1 to n do
             write(C^[j,i],' ');
             writeln;
        end;
        Dispose(A);
        Dispose(B);
        Dispose(C);
end;

end.

[Stepler]

Передавать массив как указатель, а дальше с помощю inc и dec перемещатся по массиву вправо-влево!

[_-Re@l-_]

Да блин... Я то и делаю!
Вот какой код вы предлагаете?
Вот мой(разумеется, отрывок)

var
     A,B,C:^matrix
begin
        ...
        Add(A,B,C);

P.S. Тип matrix объявлен в модуле matrices из поста #3

[Stilet]

Предлагаю старые добрые методы.

type pi=^integer;

procedure a(arr:pi);
var j,i,k:integer;p:pi;
begin
 p:=arr; k:=1;
 for i:=1 to 4 do begin
  for j:=1 to 4 do begin
   p^:=k;    inc(k);
   p:=pointer(integer(p)+4);
  end;
 end;
end;

var m:array[1..4,1..4] of integer;
 i,j:integer;
begin
 a(@m);
  { TODO -oUser -cConsole Main : Insert code here }
 for i:=1 to 4 do begin
  for j:=1 to 4 do begin
   write(m[i,j]:5);
  end; writeln;
 end;
 readln;
end.

[_-Re@l-_]

Странно, но ничего не получается. Поправьте, пожалуйста.

Unit Matrices;

Interface

Uses CRT;

Type
    matrix = ^integer;

Procedure Add(m,n:integer;
              A:matrix;
              B:matrix;
              var C:matrix);

Implementation

Procedure Add(m,n:integer;
              A:matrix;
              B:matrix;
              var C:matrix);
Var
   k,i,j:integer;
Begin
     Clrscr;
     New(A);
     New(B);
     New(C);
     for i:=1 to m do
        for j:=1 to n do
        begin
             C^[j,i]:=0;
             for k:=1 to m do
             C^[j,i]:=C^[j,i]+A^[i,k]*B^[k,j];
        end;
     for i:=1 to m do
        begin
             for j:=1 to n do
             write(C^[j,i],' ');
             writeln;
        end;
        Dispose(A);
        Dispose(B);
        Dispose(C);
end;

end.

Uses Matrices;
Type 
       matrix = ^integer;
Var A,B,C:matrix;
Begin
       Add(@A,@B,@C);
       readln;
end.

[Serge_Bliznykov]

Вы уж извините меня, но eoln в пост #2
дал полный и исчерпывающий ответ (имхо, разумеется)!
Что в нём не устроило?!

Добавлено.
_-Re@l-_
Угу. Догадываюсь, что не устроило!

Dispose(C);

Знаете, что делает этот оператор?! Освобождает выделенную по переменную память.
И вне зависимости от того, как Вы передаёте массив (с VAR или без VAR ) - после Вашей процедуры ADD
обращаться к переменным A,B,C - нельзя!
ну и описывать массивы надо так:

Type
    matrix = ^item;
    item = array[1..2,1..2] of integer;

[Stepler]

to _-Re@l-_
Работа идет не с двумерным а как с одномерным массивом но не в явном виде.
Перемещать укзаатель можно на одну позицию вперед или на одну позицию назад с помощью inc(c) и dec(c), или варинат предложеный Stiletom

   p:=pointer(integer(p)+4);

[Serge_Bliznykov]

Перемещать укзаатель можно на одну позицию вперед или на одну позицию назад с помощью inc(c) и dec(c), или варинат предложеный Stiletom

   p:=pointer(integer(p)+4);

Это возможно только в том случае, если память была выделена правильно!! (New в данном случае не поможет! Надо GetMem юзать. Ну и плюс контролировать, чтобы смещение не "ушло" за пределы выделенной памяти!
А вообще, зачем такие сложности то?!