{Estos son arboles binarios me puedes decir que tiene que ver con la formula que pones}
uses
crt;
type
ptarbol = ^nudarbol;
nudarbol = record
numero : integer;
izq, der: ptarbol;
end;
var
giaarbol : ptarbol;
t : integer;
procedure entradaarbol(var giaarbol : ptarbol; num : integer);
begin
if giaarbol = NIL then
begin
new(giaarbol);
giaarbol^.numero := num;
giaarbol^.der := NIL;
giaarbol^.izq := NIL;
end
else
begin
if num < giaarbol^.numero then
begin
entradaarbol(giaarbol^.izq, num);
end
else
begin
entradaarbol(giaarbol^.der, num);
end;
end;
end;
procedure enorden(giaarbol : Ptarbol);
begin
if giaarbol <> NIL then
begin
enorden(giaarbol^.izq);
write(' ',giaarbol^.numero); enorden(giaarbol^.der);
end;
end;
procedure preorden(giaarbol : Ptarbol);
begin
if giaarbol <> NIL then
begin
write(' ',giaarbol^.numero); preorden(giaarbol^.izq);
preorden(giaarbol^.der);
end;
end;
procedure postorden(giaarbol : Ptarbol);
begin
if giaarbol <> NIL then
begin
postorden(giaarbol^.izq);
postorden(giaarbol^.der);
write(' ',giaarbol^.numero); end;
end;
begin
clrscr;
for t := 1 to 10 do
begin
entradaarbol(giaarbol,t);
end;
for t := 1 to 10 do
begin
postorden(giaarbol);
end;
readkey;
end.
Crear cuenta