Советы по Delphi
Создание многомерного массива
| typePRow = ^TRow;TRow = array[0..16379] of Single; PMat = ^TMat;TMat = array[0..16379] of PRow; varMat: PMat;X, Y, Xmax, Ymax: Integer; beginWrite('Задайте размер массива: ');ReadLn(Xmax, Ymax);if (Xmax <= 0) or (Xmax > 16380) or (Ymax <= 0) or (Ymax > 16380) thenbeginWriteLn('Неверный диапазон. Не могу продолжить.');Exit;end;GetMem(Mat, Xmax * SizeOf(PRow));for X := 0 to Xmax - 1 dobeginGetMem(Mat[X], Ymax * SizeOf(Single));for Y := 0 to Ymax - 1do Mat^[X]^[Y] := 0.0;end;WriteLn('Масси инициализирован и готов к работе.');WriteLn('Но эта программа закончила свою работу.');end. |
- Steve Schafer [000764]
