a88.pas

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

type pnod=^nod;
     nod=record
     inf:integer;
     leg:pnod;
     end;
var prim:pnod;
    n,i:integer;
procedure creare(var p:pnod);
var nou,ultim:pnod;
begin
  if p=nil then begin
                new(p);
                write('p^.inf=');readln(p^.inf);
                p^.leg:=nil;
                ultim:=p;
                end
           else begin
                new(nou);
                write('nou^.inf=');readln(nou^.inf);
                nou^.leg:=nil;
                ultim^.leg:=nou;
                ultim:=nou;
                end;
end;
procedure afisare(p:pnod);
begin
if p=nil then write('lista vaida')
         else while p<>nil do begin
                              write(p^.inf,' ');
                              p:=p^.leg;
                              end;
                              writeln;
end;
procedure  afis(p:pnod);
begin
if p^.leg<>nil then afis(p^.leg);
write(p^.inf,' ');
end;
begin
write('n=');readln(n);
prim:=nil;
for i:=1 to n do
creare(prim);
afisare(prim);
afis(prim);
end.