n-dimens/pascalabcnet: The new generation Pascal programming language for .NET

TestSamples/CompilationSamples/IntPointerTest.pas

22 строки345 B

Бондарев Иван

initial commit

14 май 2015, 22:35

14 май 2015, 22:35e6e67c1

const n=100;

var a:array [0..n-1] of pinteger;
    p:pinteger;
    s:string;
    
begin
  for var i:=0 to n-1 do begin
    new(p);
    a[i]:=p;
    a[i]^:=i;
  end;
  while true do begin
    s:='';
    for var i:=0 to n-1 do begin
      writeln('a[',i,']=',a[i]^);
      var v:=a[i]^;
      s:=s+v.tostring;
    end;
    writeln;
  end;
end.