{A ver mira esto a ver si vale}
Program arbol;
uses crt;
const
nombre = 'c:\tp\datonodo.dat';
type
str20 = string[20];
punt = ^nodo;
nodo = record
texto : str20;
si : punt;
no : punt;
End;
var
inic : punt;
da1 : nodo;
datos : str20;
acion : char;
f : file of nodo;
i, cont : longint;
procedure guardadatos(da : nodo);
begin
assign(f,nombre);
{$I-} reset(f); {$I+} if ioresult <> 0 then
begin
rewrite(f);
seek(f,0);
write(f,da);
close(f);
end
else
begin
seek(f,filesize(f));
write(f,da);
close(f);
end;
end;
procedure iniciararbol;
begin
inic := nil;
end;
procedure insertarenarbol(d : str20; var inic : punt; cu : integer);
begin
if inic = nil then
begin
new(inic);
with inic^ do
begin
texto := d;
si := nil;
no := nil;
if cu = 0 then
guardadatos(inic^);
end;
end
else
begin
if d < inic^.texto then
insertarenarbol(d, inic^.si,cu)
else
insertarenarbol(d, inic^.no,cu);
end;
end;
procedure enpreorden(inic : punt);
begin
if inic <> nil then
begin
writeln(inic^.texto);
enpreorden(inic^.si);
enpreorden(inic^.no);
end;
end;
procedure eninorden(inic : punt);
begin
if inic <> nil then
begin
eninorden(inic^.si);
Writeln(inic^.texto);
eninorden(inic^.no);
end;
end;
procedure enpostorden(inic : punt);
begin
if inic <> nil then
begin
enpostorden(inic^.si);
enpostorden(inic^.no);
writeln(inic^.texto);
end;
end;
procedure cargadatos;
var
t : longint;
begin
assign(f,nombre);
{$I-} reset(f); {$I+} if ioresult <> 0 then
begin
clrscr;
writeln(' Error De Archivo Pulse [Enter]'); readln;
exit;
end
else
begin
for t := 0 to filesize(f) - 1 do
begin
seek(f,t);
read(f,da1);
insertarenarbol(da1.texto,inic,1);
end;
close(f);
end;
end;
procedure introducirdatos;
var
dd : str20;
j : integer;
begin
clrscr;
repeat
writeln('**** Entrada datos ****'); writeln;
begin
write(' Entre : '); readln(dd);
insertarenarbol(dd,inic,0);
writeln(' Desea Insertar Mas Datos [S/N] : '); end;
repeat
acion := upcase(readkey);
until acion in['S','N'];
until acion = 'N';
clrscr;
end;
begin
clrscr;
cont := 0;
iniciararbol;
repeat
clrscr;
gotoxy (3,1); write('Men£ de Opciones'); gotoxy(3,2);write(' 1 = Introducir Datos'); gotoxy(3,3);write(' 2 = Visualizar en Preorden'); gotoxy(3,4);write(' 3 = Visualizar en Inorden'); gotoxy(3,5);write(' 4 = Visualizar en Postorden'); gotoxy(3,6);write(' 5 = Cargar Datos De Archivo'); gotoxy(3,7);write(' 6 = Fin del programa'); gotoxy(3,9);write('***** Elije opci¢n *****'); repeat
acion := readkey;
until acion in['1','2','3','4','5','6'];
case acion of
'1': begin clrscr; introducirdatos; end;
'2': begin clrscr; enpreorden(inic); readln; end;
'3': begin clrscr; enpostorden(inic); readln; end;
'4': begin clrscr; eninorden(inic); readln; end;
'5': begin
clrscr;
iniciararbol;
writeln(' Cargados Datos '); cargadatos;
writeln(' Fin Carga Pulsa [Enter]'); readln;
end;
end;
until acion = '6';
end.
Crear cuenta