Notes

program PARTE1;
Type
arbol= ^nodo;
nodo= record
dato: integer;
repes: integer;
hizq: arbol;
hder: arbol;
end;

procedure insertar (var a:arbol; num:integer);
begin
if (a=nil) then begin
new(a);
a^.hizq:= nil;
a^.hder:= nil;
a^.dato := num;
end
else begin
if(a^.dato > num) then
insertar (a^.hizq, num)
else
insertar (a^.hder, num);
end;
end;

procedure insertarsinrepe (var a:arbol; num:integer);
begin
if (a=nil) then begin
new(a);
a^.hizq:= nil;
a^.hder:= nil;
a^.dato := num;
end
else begin
if (a^.dato<>num)then begin
if(a^.dato > num) then
insertarsinrepe (a^.hizq, num)
else
insertarsinrepe (a^.hder, num);
end
else
a^.repes:= a^.repes + 1;
end;
end;

function buscar (a:arbol; numb:integer): arbol;
begin
if (a<>nil) then begin
if (a^.dato = numb) then
buscar:= a
else begin
if (a^.dato > numb)then
buscar (a^.hizq, numb)
else
buscar (a^.hder, numb)
end;
end
else
buscar:=nil;
end ;

procedure recorridoacotado(a:arbol;inf,sup:integer);
begin
if(a<>nil)then begin
if(a^.dato>=inf)and (a^.dato<=sup)then begin
writeln(a^.dato);
recorridoacotado(a^.hizq,inf,sup);
recorridoacotado(a^.hder,inf,sup);
end;
if(a^.dato>sup)then
recorridoacotado(a^.hizq,inf,sup);
if(a^.dato<inf) then
recorridoacotado(a^.hder,inf,sup);
end;
end;








procedure imprimirinord (a:arbol); {creciente}
begin
if (a<>nil) then begin
imprimirinord (a^.hizq);
write ('[',a^.dato,']');
imprimirinord (a^.hder)
end;
end;
procedure imprimirpreord (a:arbol); {en orden de ingreso}
begin
if (a<>nil) then begin
write ('[',a^.dato,']');
imprimirpreord (a^.hizq);
imprimirpreord (a^.hder)
end;
end;
procedure imprimirpostord (a:arbol); {ni idea}
begin
if (a<>nil) then begin
imprimirpostord (a^.hizq);
imprimirpostord (a^.hder);
write ('[',a^.dato,'] (',a^.repes,') , ')
end;
end;
var
a:arbol;num,numb,inf,sup:integer;
begin
writeln('Inserte su lista de numeros: ');
readln(num);
while(num<>0)do begin
insertarsinrepe(a,num);
readln(num);
end;
readln();
imprimirpostord(a);
writeln();
writeln('Ingrese el numero a buscar');
readln(numb);
if (buscar(a, numb)=nil)then writeln('no lo encontre')
else writeln('si lo encontre');
writeln('Ingrese su menor');
readln(inf);
writeln('Ingrese su mayor');
readln(sup);
writeln('Sus numeros dentro del rango propuesto son:');
recorridoacotado(a,inf,sup);
writeln('Felicitaciones, termino el tutorial de numeritos');
readln;
readln;
readln;

end.