Реферат: Описание указателей

Function AddrR(i,j: word): RealPoint;

{По сегменту i и смещению j выдает адрес вещественной переменной}

begin

AddrR:= ptr(seg(PtrStr[i]^), ofs(PtrStr[i]^)+(j-1)*SizeOfReal)

end; {AddrR}

{}

Function GetR(i,j: integer): real;

{Выдает значение вещественной переменной по сегменту i

и смещению j ее адреса}

begin

GetR := AddrR(i,j)^

end; {GetR}

{}

Procepure PutR(i,j: integer; x: real);

{Помещает в переменную, адрес которой имеет сегмент i

смещение j, вещественное значение x}

begin

AddrR(i,j)^ := x

end; {PutR}

{}

begin {Main}

for i := 1 to N do

begin

GetMem (PtrStr[i], M*SizeOfReal);

for j := 1 to M do PutR(i, j, Random)

end;

s := 0;

for i := 1 to N do

for j := 1 to M do