есть програмка (на FP)
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.
program InterestingTest;хотя... тест довольно не однозначный...
var i : Longint;
p,p2 : ^Longint;
pp, pp2 : array[0..100] of Longint;
begin
for i := 0 to 100 do pp[i] := i;
pp2:=pp;
p := @pp[0];
p2 :=@pp2;
for i := 0 to 150 do if p[i]<>p2[i]then
WriteLn (i:4,'---------','p=',p[i]:3, '----------','p2=',p2[i]:3);
readln;
read;
end.
program InterestingTest;Теперь понятно, куда?
var i : Longint;
p,p2 : ^Longint;
pp, pp2 : array[0..100] of Longint;
s: string = 'compiler from pascal.net.ru';
begin
for i := 0 to 100 do pp[i] := i;
for i := 0 to length(s) do
pp2[i] := ord(s[i]);
p := @pp[100];
for i := 0 to length(s) do
write(chr(p[i]));
writeln;
readln;
read;
end.
Да, привел немного некорректный пример... Вот так будет лучше:
program InterestingTest;Что имеем на выходе? Вначале - двойка, которая завершает массив PP, потом нулевой символ (откуда взялся - непонятно, попробую посмотреть позже), следующий символ (та самая стрелочка влево) - это длина строки = 27, проверяется элементарно: при компиляции с ключом {$H+} этого символа не будет. Ну, а потом - уже остальные символы...
var
i : Longint;
// Во-первых, строка - перед массивами, т.е, ты получаешь доступ НЕ к строке
s: string = 'compiler from pascal.net.ru';
p,p2 : ^Longint;
pp, pp2 : array[0..100] of Longint;
begin
// Заполняем массив кодами двоек, чтоб было четко видно границу...
for i := 0 to 100 do pp[i] := ord('2');
// А во второй массив пишем коды элементов строки
for i := 0 to length(s) do begin
pp2[i] := ord(s[i]); // <-- с нулевого индекса pp2
end;
p := @pp[100]; // Теперь начинаем смотреть с 100-го эл-та массива pp
for i := 0 to length(s) do begin
write(chr(p[i]));
end;
writeln;
readln;
read;
end.
спасибо, вроде разобрался... (кроме трех неизвестных символов)