{Aver si esto te sirve}
Program unarbol;
uses
crt;
type
dato = integer;
punt =^nodo;
nodo = record
eldat : dato;
Izq, dch : punt;
end;
var
raiz : punt;
n : nodo;
dat : dato;
tecla : char;
procedure bacio;
begin
raiz := nil;
end;
procedure entrada(i : dato; var r : punt);
begin
if r = nil then
begin
new(r);
with r^ do
begin
eldat := i;
izq := nil;
dch := nil;
end
end
else
if i < r^.eldat then
entrada(i,r^.izq)
else
entrada(i,r^.dch)
end;
procedure enpreorden(r : punt);
begin
if r <> nil then
begin
write(' ',r^.eldat); enpreorden(r^.izq);
enpreorden(r^.dch);
end;
end;
procedure eninorden(r : punt);
begin
if r <> nil then
begin
eninorden(r^.izq);
write(' ',r^.eldat); eninorden(r^.dch);
end;
end;
procedure enorden(r : punt);
begin
if r <> nil then
begin
enorden(r^.izq);
enorden(r^.dch);
write(' ',r^.eldat); end;
end;
procedure menu;
var
pul : char;
salir : boolean;
begin
salir := false;
repeat
clrscr;
writeln(' **** Menu General ****'); writeln;
writeln(' <<<<<< Arboles Binarios >>>>>>'); writeln;
writeln(' 1 = Entrada Valores'); writeln(' 2 = Visualizar El Enpreorden'); writeln(' 3 = Visualizar El Eninorden'); writeln(' 4 = Visualizar El Enorden'); writeln(' 5 = Salir'); writeln;
writeln(' <<<<< Elija Opcion >>>>>'); repeat
pul := readkey;
until pul in['1','2','3','4','5'];
clrscr;
case pul of
'1' : begin
writeln;
writeln('**** Entrada Valores En Arbol Binario ****'); writeln;
write(' Entre Valor Numerico : '); {$I-} readln(dat); {$I+} if ioresult <> 0 then
begin
writeln(' Error de dato Numerico Intentelo De Nuevo '); writeln(' Pulse Tecla [Espacio]'); readkey;
end
else
entrada(dat,raiz);
end;
'2' : begin
writeln;
enpreorden(raiz);
writeln;
writeln(' Pulse Tecla [Espacio]'); readkey;
end;
'3' : begin
writeln;
eninorden(raiz);
writeln;
writeln(' Pulse Tecla [Espacio]'); readkey;
end;
'4' : begin
writeln;
enorden(raiz);
writeln;
writeln(' Pulse Tecla [Espacio]'); readkey;
end;
'5' : salir := true;
end;
until salir = true;
end;
begin
bacio;
menu;
end.
Crear cuenta