prieteni.pas

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

program pointer;
type
    index=1..5;
    nume=string[20];
    om=^prieten;
    prieten=record
    numepr:nume;
    varstapr:1..20;
    legaturapr,urmatorulpr:om
end;
var a:integer;
    b:array[1..5] of om;
procedure  rec(n:index);
begin
new(b[n]);
with b[n]^ do
     begin
     write('nume ');
     readln(b[n]^.numepr);
     write('varsta');
     readln(b[n]^.varstapr);
     write('legatura');
     {readln(b[n]^.legaturapr);  }
     write('urmatorul prieten');
     {readln(b[n]^.urmatorulpr);   }
     end;
end;
procedure eliade(n:index);
begin;
new(b[n]);
with b[n]^ do
     begin
    { readln(b[n]^.legaturapr);}
     write('legatura cu o alta persoana'{,b[n]^.legaturapr});
     end;
end;
begin
for a:=1 to 5 do
            begin
                 rec(a);
                 eliade(a);
             end;
end.