pointer.pas

来自「This ar the basic programs that i did in」· PAS 代码 · 共 35 行

program pointer;
type
    index=1..4;
    nume=string[20];
    om=^prieten;
    prieten=record
    numepr:nume;
    varstapr:1..20;
    legaturapr,urmatorulpr:om
end;
var a:array[1..5]of om;
procedure rec(n:index);
begin
new(a[n]);
with a[n]^ do
     begin
     write('nume');
     readln(a[n]^.numepr);
     write('varsta');
     readln(a[n]^.varstapr);
     a[n-1]^.urmatorulpr:=a[n]^.legaturapr;
     a[n]^.urmatorulpr:=nil;
     end;
new(beta);
with beta^ do
     begin
     beta^.numepr:='strula';
     beta^.varstapr:=13;
     beta^.legaturapr:=nil;
     beta^.urmatorulpr:=alfa;
     end;
a:=(alfa^.varstapr+ beta^.varstapr)/2;
writeln(a:4:2);
readln;
end.