plavan.pas

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

program plavan;
type pnod=^nod;
     nod=record
     inf:integer;
     urm:pnod;
     end;
var p:pnod;
procedure creare(var p:pnod);
          var q:pnod;
              f:text;
 begin
 new(p);
 q:=p;
 assign(f,'lista.txt');
 reset(f);
 read(f,p^.inf);
 while not  eof(f) do
           begin
           new(q);
           q:=q^.urm;
           read(f,q^.inf);
           end;
 q^.urm:=nil;
 close(f);
 end;
procedure afisare(p:pnod);
 begin
 while p<>nil do
              begin
              p:=p^.urm;
              write(p^.inf,' ');
              end;
 end;
function max(p:pnod):integer;
         var i:integer;
 begin
 i:=p^.inf;
 p:=p^.urm;
 while p<>nil do begin
                 if p^.inf>i then i:=p^.inf;
                 p:=p^.urm;
                 end;
 max:=i;
 end;
BEGIN
creare(p);
afisare(p);
write('maximul este',max(p));
END.