значения индекса, массив, указатель и не только... Опции

[compiler]

есть програмка (на FP)

program PointerArray;  
//на основе 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. 

интересует строчка [i]p := @pp[0]; что знасит этот индекс(0)? если пишем p := @pp; все работает так-же, но если указываем другой индекс получаем проблемку...

Сообщение отредактировано: compiler - 18.07.2007 16:35

[volvo]

куда мы получаем доступ обращаясь за границы массива?

program InterestingTest;
var i : Longint;
	p,p2 : ^Longint;
	pp, pp2 : array[0..100] of Longint;
        s: string = 'compiler from pascalnet.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.

Теперь понятно, куда?

[compiler]

Теперь понятно, куда?

не совсем... я получил следующий текст

d***{символ}compiler from pascal.ne

, где * -- пробел, а {символ} -- в данной кодировке есть некая стрелочка влево(!)

Сообщение отредактировано: compiler - 18.07.2007 17:59