pascal динамические массивы

[world12_tk]

Здраствуйте... У меня возник такой вопрос... Как в паскале(версия 7.0) записать динамический двумерный массив.
Если можно с примером...
Заранее спасибо

[fbus]

не совсем понятно, о чем речь, но если речь идет об объявлении массива, то объявлется например так:
var A:aray of integer of integer;

[Serge_Bliznykov]

var A:aray of integer of integer;

нет. так для TurboPascal не пойдёт! (и для Дельфи, кстати, тоже..)

world12_tk, если размерность заранее известна, то можно так:

type
   MyArrayType = array[1..10,1..40] of integer;
var
   DynArr :  MyArrayType;
begin
   New(DynArr);
   DynArr^[1,1] := 1;
   DynArr^[10,40] := 1000;
...
   Dispose(DynArr);

[world12_tk]

да Serge_Bliznykov вы полностью правы. Но меня интересует когда размерность не известна...
Например когда масив нужен для заполнение матрицы..
Для этого мы выделяем размер по стобцам и строкам... Но сделать динамичекий двумерный массив как например в си, нельзя... Мне сказали, что для этого двумерный массив представляется как одномерный, но я не могу понять как это сделать

[spamer]

var
  mas: array of array of integer;
//тра-та-та
Выделяем память 
SetLength(mas,10,10);
//Получаем массив [0..9,0..9]. Индексы идут с 0.
//тра-та-та
//Не забываем освобождать память
mas:=nil;

[world12_tk]

Уважаемый spamer. Вы привели код для Delphy.... на pascal это не пройдет... должен же ведь быть какой то другой путь....

[SunKnight]

{$R-}
Type
  MyType = Word;
Type
  PMyVector = ^MyVector;
  { "Строка" динамической матрицы }
  MyVector = Array[1 .. 1] of MyType;

  MyArrayPtr = ^MyArray;
  { Сама матрица - представляется как массив указателей на "строки" }
  MyArray = Array[1 .. 1] of PMyVector;

Var
  DynamicArray: MyArrayPtr;   { Указатель на матрицу }
  Count,
  I,J,Size: Word;
Begin
  Write('Число элементов массива: ');
  ReadLn(Count);

  { Выделяем память под указатели на "строки" }
  GetMem(DynamicArray, Count * SizeOf(PMyVector));
  { И для каждой "строки" - выделяем память для хранения данных } 
  For i := 1 To Count Do 
    GetMem(DynamicArray^[i], Count*SizeOf(MyType));

  For I:=1 to Count do { Lines }
    For J:=1 to Count do { Columns }
      { Немного изменяется способ обращения к элементу матрицы }
      DynamicArray^[I]^[J]:=I*J;

  For I:=1 to Count do
  begin
     WriteLn;
     For J:=1 to Count do
         Write(DynamicArray^[I]^[J]:4);
  end;

  { Освобождаем память в обратном порядке: }
  { Сначала - удаляем все "строки" }
  For i := 1 To Count Do
    FreeMem(DynamicArray^[i], Count*SizeOf(MyType));
  { А теперь и указатели на них ... }
  FreeMem(DynamicArray, Count * SizeOf(PMyVector));
End.

[Serge_Bliznykov]

SunKnight, +1

ещё добавлю насчёт

Мне сказали, что для этого двумерный массив представляется как одномерный, но я не могу понять как это сделать

world12_tk, а динамический одномерный массив Вы создавать умеете?
тогда пусть нужно создать двухмерный массив размерности 1..N,1..M
создаём одномерный массив
AA : array [1.. N*M] (или, точнее, выделяем память под него)
дальше, для получения доступа к элементу A[i,j]
переводим в одномерный индекс по формуле:

A[i,J] <-> AA[ (i-1)*N+J ]