program PointerArray;интересует строчка [i]p := @pp[0]; что знасит этот индекс(0)? если пишем p := @pp; все работает так-же, но если указываем другой индекс получаем проблемку...
//на основе doc/ref/Types(3) / Pointers(3.4)
var i : Longint;
p : ^Longint;
pp : array[0..100] of Longint;
function proc():boolean;
var j: longint;
begin
proc:=true;
for j := 0 to 105 do
if p[j]<>pp[j] then proc:=false ;
end;
begin
for i := 0 to 100 do pp:= i; { Fill array }
p := @pp;
WriteLn (i:3);
if proc() then
WriteLn ('YES !')
else WriteLn ('Ohoh, problem !');
for i := 0 to 105 do begin
p := @pp[i];
WriteLn (i:3);
if proc() then
WriteLn ('YES !')
else WriteLn ('Ohoh, problem !');
end;
readln;
read;
end.
Сообщение отредактировано: compiler -