Никак не пойму смысл выражений

[Mr.Qwerty]

Начал учиться с самых что ни на есть истоков форума, вообщем копаю старые темы и разбираюсь в них, только вот никак не пойму это, хоть убейте:

Проблема решается с помощью использования динамической памяти.
Допустим нужно создать двумерный массив 200*300 типа integer;
он тебует 200*300*2=120000 байт для размещения.
Заведем массив нетипизированных указателей:

var A:array[1..200] of pointer;
выделим память под него

for i:=1 to 200 do GetMem(A[i],2*300); {2 байта-размер типа integer}

далее чтобы получить доступ конкретно к компонентам иассива нужно
вычислить адрес - [сегмент:смещение]

var RealPointer:^real;
i,j:integer;

RealPointer:=ptr(Seg(A[i]^),Ofs(A[i]^)+(j-1)*2)

здесь функция ptr() возвращает указатель (j-1)*2 - прибавка к смещению Ofs(A[i]^)
таким образом элемент [i,j] адресован.

Пробовал разобраться именно в

вычислить адрес - [сегмент:смещение]

var RealPointer:^real;
i,j:integer;

RealPointer:=ptr(Seg(A[i]^),Ofs(A[i]^)+(j-1)*2)

- вообще ничего не понял ( Помогите пожалуйста, опишите подробно что да как..! Буду очень благодарен!

[Daramant]

Автор кода, немного перемудрил, тоже самое можно сделать гораздо проще.

Ты знаком с таким понятием как динамическая память (куча)?
Если нет, почитай вот это:
http://thor.kubsu.ru/index.php/corpo...heskaya_pamyat

По коду:

вычислить адрес - [сегмент:смещение]

Доступ к ячейке памяти можно получить зная сегмент, в котором она находится и смещение внутри этого сегмента.

RealPointer:=ptr(Seg(A[i]^),Ofs(A[i]^)+(j-1)*2)

Здесь автор функцией Seg() получает адрес сегмента, в котором расположен массив, затем функцией Ofs() получает значение смещения внутри сегмента, по которому расположен первый элемент массива (или нулевой если считать с нуля), затем прибавляет к смещению некоторое значение: (j-1)*2, которое эквивалентно: Номер элемента * размер одного элемента массива, таким образом получая смещение j-го элемента, в конце функция ptr() возвращает указатель на этот j-элемент массива.

Что непонятно, спрашивай.

Теперь, как это реализовать проще:

program DynArray;

type
  TVal = Word; // тип элементов двумерного массива.
  P2DArray = ^T2DArray; // тип - указатель на массив.
  T2DArray = array[1..1, 1..1] of TVal; // тип - двумерный массив.

var
  My2DArrayPtr: P2dArray; // переменная - указатель
  RowCount, ColCount, Size: Word;
  i, j: Word;

begin
  RowCount := 2;
  ColCount := 4;
  // вычисляем размер массива
  // он равер "Количество строк" * "Количество столбцов" * "Размер одногоэлемента"
  Size := RowCount * ColCount * Sizeof(TVal); 
  // выделяем память под массив (размером 2 на 4)
  GetMem(My2DArrayPtr, Size);

  i := 2;
  j := 3;
  My2DArrayPtr^[i, j] := 3; // записываем значение в элемент [2, 3] массива
  writeln(My2DArrayPtr^[i, j]); // читаем значение из элемента [2, 3] массива

  // незабываем освободить память используемую память после работы.
  FreeMem(My2DArrayPtr, Size);
end.

Удачи.

[Anatole]

Daramant

Теперь, как это реализовать проще:

Внешне оно проще, но вы забыли об условиях задачи:

Допустим нужно создать двумерный массив 200*300 типа integer;
он тебует 200*300*2=120000 байт для размещения.

Поскольку размерность массива больше 65535 байт(64К), то отвести память для него единым блоком в реальном режиме работы процессора невозможно. Данный пример был выбран специально для демонстрации доступа к динамической памяти и весьма эфектно демонстрирует доступ к физической памяти.

[Stilet]

Anatole

Все равно автор явно сам запутался в том что написал...
По крайней мере действительно немного натянуто.

[Anatole]

Stilet

По крайней мере действительно немного натянуто.

Полнрстью согласен. Сам никогда так бы не делал.
Mr.Qwerty
Поскольку строка предложенного массива меньше 64К (300*2=600) то логичнее общий двумерный массив представить в виде массива одномерных массивов. Приблизительно вот так:

Type
 Tar1 = array [1..300] of integer;
 Ptar1 = ^Tar1;(* Объявляем тип означающий адрес массива*)
var A:array[1..200] of pTar1; (*Массв адресов одномерных массивов*)
i : INTEGER;
begin
For i := 1 то 200 do GetMem(A[i],SizeOf(Tar1);(* отвоим в цикле памать на одномерные массивы*)
...
A[5]^[7] := 9; (*обращение к элементу A[5,7]*)
Writeln (A[5]^[7])
....
For i := 200 downto 1 do FreeMem(A[i], SizeOf(Tar1); (* освобождаем память, обязательно*)
end.

[Daramant]

Поскольку размерность массива больше 65535 байт(64К), то отвести память для него единым блоком в реальном режиме работы процессора невозможно.

Anatole, в этом вы правы, я не обратил внимание, на то, что размер массива превышает размер одного сегмента.

Anatole

Type
 Tar1 = array [1..300] of integer;
 Ptar1 = ^Tar1;(* Объявляем тип означающий адрес массива*)
var A:array[1..200] of pTar1; (*Массв адресов одномерных массивов*)

Это пример верной реализации: просто и понятно.