subjugat.pas

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

program patru_la_info;
type pnod=^nod;
     nod=record
     inf:integer;
     st,dr:pnod;
     end;
var p:pnod;
    f:text; x,r:integer;
procedure creare(var p:pnod);
  var x:integer;
begin
write('x= '); read(x);
if x=0 then p:=nil
       else begin
            new(p);
            p^.inf:=x;
            creare(p^.st);
            creare(p^.dr);
            end;
end;
procedure postordine(p:pnod);
begin
if p<>nil then begin
               postordine(p^.st);
               postordine(p^.dr);
               write(p^.inf,' ');
               end;
end;
procedure fii(p:pnod; x:integer);
begin
if p<>nil then begin
               if p^.inf=x then begin
                                if p^.st <>nil then write('f s',p^.inf)
                                               else write('nu are in s');
                                if p^.dr <>nil then write('f d',p^.inf)
                                               else write('nu are in d');
                                end;
               fii(p^.st,x);
               fii(p^.dr,x);
               end;
end;
procedure parinte(p:pnod; x:integer);
begin
if p<>nil then begin
               if (p^.st <>nil) and (p^.inf=x) then
                                               write('par e ',p^.inf);
               if (p^.dr <>nil) and (p^.inf=x) then
                                               write('par e ',p^.inf);
               parinte(p^.st,x);
               parinte(p^.dr,x);
               end;
end;
BEGIN
assign(f,'arbore.txt');
reset(f);
creare(p);
close(f);
postordine(p);
write('x= '); readln(x);
fii(p,x);
if (x=r) then write('nu are parinti')
         else parinte(p,x);
END.