Последние записи

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

19th
Янв

Динамические массивы Turbo Pascal

Posted by Chas under Delphi

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

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

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);

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^, 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^, Count*SizeOf(MyType));

  { А теперь и указатели на них ... }

  FreeMem(DynamicArray, Count * SizeOf(PMyVector));

End.