{A ver si esto te ayuda }
program arboles;
uses
crt;
const
prueva : array[1..12] of integer = (
3,9,12,34,23,56,8,1,4,16,7,10);
type
nodos = ^regnodo;
regnodo = record
dato : integer;
der, izq : nodos;
end;
var
arbol : nodos;
caminos : integer;
k : integer;
procedure insercion(var i : nodos; d : integer);
begin
if i = nil then
begin
new(i);
i^.dato := d;
i^.izq := nil;
i^.der := nil;
end
else
if i^.dato > d then
insercion(i^.izq,d)
else
insercion(i^.der,d);
end;
function cuentanodos(i : nodos) : integer;
begin
if i = nil then
cuentanodos := 0
else
cuentanodos := 1 + cuentanodos(i^.izq) + cuentanodos(i^.der);
end;
procedure inorden(i : nodos);
begin
if i <> nil then
begin
inorden(i^.izq);
write(' ',i^.dato); inorden(i^.der);
end;
end;
procedure preorden(i : nodos);
begin
if i <> nil then
begin
write(' ',i^.dato); preorden(i^.izq);
preorden(i^.der);
end;
end;
procedure postorden(i : nodos);
begin
if i <> nil then
begin
postorden(i^.izq);
postorden(i^.der);
write(' ',i^.dato); end;
end;
procedure buscar(i : nodos; n : integer);
begin
if i = nil then
caminos := 0
else
if n = i^.dato then
begin
caminos := 1;
end
else
if n < i^.dato then
buscar(i^.izq,n)
else
buscar(i^.der,n);
caminos := caminos + 1;
end;
begin
arbol := nil;
for k := 1 to 12 do
insercion(arbol,prueva[k]);
clrscr;
writeln;
writeln(' Numeros = 1,3,4,7,8,9,10,12,16,23,34,56'); write(' Entre Numero A buscar : '); readln(k);
writeln(' Los Nodos Son = ',cuentanodos(arbol)); writeln;
write(' Inorden = '); inorden(arbol);
writeln;
write(' Preorden = '); preorden(arbol);
writeln;
write(' Postorden = '); postorden(arbol);
writeln;
buscar(arbol,k);
writeln;
writeln(' Los Caminos Son = ',caminos - 1); writeln;
writeln(' Pulse Una Tecla'); readkey;
end.
Crear cuenta