{A ver si esto te ayuda }
program abolarchiv;
uses
crt;
type
elarbol = ^elnodo;
elnodo = record
valor : Integer;
izq, der : elarbol;
end;
const
nomarchi = 'arbolord.arb';
var
f : file of integer;
det : integer;
aux, nodo : elarbol;
procedure hayarchivo;
begin
assign(f,nomarchi);
{$I-} reset(f); {$I+} if ioresult = 0 then
begin
close(f);
erase(f);
end;
end;
procedure tomavalores(p : integer);
begin
assign(f,nomarchi);
{$I-} reset(f); {$I+} if ioresult <> 0 then
begin
rewrite(f);
seek(f,0);
write(f,p);
close(f);
end
else
begin
seek(f,filesize(f));
write(f,p);
close(f);
end;
end;
procedure Guardainorde(a : elarbol);
begin
if a <> nil then
begin
Guardainorde(a^.izq);
tomavalores(a^.valor);
Guardainorde(a^.der);
end;
end;
procedure presentainorden(a : elarbol);
begin
if a <> nil then
begin
presentainorden(a^.izq);
write(' ',a^.valor); presentainorden(a^.der);
end;
end;
procedure insertar(var a : elarbol; va : Integer);
begin
if a = nil then
begin
new(a);
a^.valor := va;
a^.izq := nil;
a^.der := nil;
end
else
if a^.valor < va then
insertar(a^.der, va)
else
insertar(a^.izq, va);
end;
procedure entradavalores(var n : elarbol);
var
nl : integer;
begin
writeln('*** Entrando [0] Termina Entradas ****'); writeln;
repeat
write(' Entre Numero Entero : '); {$I-} readln(nl); {$I+} if ioresult <> 0 then
begin
write('Solo Valores Numericos'); nl := 1000;
writeln;
end
else
if (nl > 0) and (nl < 999) then
insertar(n,nl);
until nl = 0;
end;
procedure cargaarchivo;
var
d, t : longint;
da : integer;
begin
assign(f,nomarchi);
{$I-} reset(f); {$I+} if ioresult <> 0 then
begin
writeln(' Error De Archivo Pulse Una Tecla'); readkey;
end
else
begin
t := filesize(f) - 1;
da := 0;
d := 0;
nodo := nil;
repeat
seek(f,d);
read(f,da);
insertar(nodo,da);
d := d + 1;
until d > t;
close(f);
end;
end;
procedure menu;
var
tecla : char;
sal : boolean;
begin
sal := false;
repeat
clrscr;
writeln(' ***** Memu Jeneral *****'); writeln;
writeln(' 0 = Limpiar Archivo'); writeln(' 1 = Entrada Valores'); writeln(' 2 = Guarda Valores'); writeln(' 3 = Carga De Disco'); writeln(' 4 = Ver Arbol'); writeln(' 5 = Salir'); writeln;
writeln(' <<<<< Elija Opcion >>>>>'); repeat
tecla := readkey;
until tecla in['0','1','2','3','4','5'];
clrscr;
case tecla of
'0' : begin hayarchivo; end;
'1' : begin entradavalores(nodo); end;
'2' : begin Guardainorde(nodo); end;
'3' : begin cargaarchivo; end;
'4' : begin presentainorden(nodo); readkey; end;
'5' : sal := true;
end;
until sal = true;
end;
begin
nodo := nil;
menu;
end.
Crear cuenta