1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153

Uses Crt;
 
Type Arbol = ^Nodo;
     Nodo = Record
            Info: Integer;            Izq,Der: Arbol;
            End;
 
Var A: Arbol;
    N: Integer;    Opc: Char;
 
Procedure Insertar(Var A: Arbol; N: Integer);
Begin
     If A = Nil Then      Begin
      New(A);
      A^.Info := N;
      A^.Izq := Nil;
      A^.Der := Nil;      End
       Else
        If N < A^.Info Then Insertar(A^.Izq,N)
          Else Insertar(A^.Der,N);
End; 
Procedure In_orden(A: Arbol);
Begin
     If A <> Nil Then
      Begin      In_Orden(A^.Izq);
      WriteLn(A^.Info);
      In_Orden(A^.Der);
      End;
End; 
Function Busqueda (A: Arbol; N: Integer): Boolean;
Begin
     Busqueda:= False;
     If A <> Nil Then      If A^.Info = N Then Busqueda:= True
         Else
          If N < A^.info Then Busqueda:= Busqueda(A^.Izq,N)
            Else Busqueda:= Busqueda(A^.Der,N);
End; 
Function Menor (A: Arbol): Integer;
Var I1: Integer;
Min: Integer;
BeginMin:= A^.Info;
I1:= 0;
If (A^.Izq <> Nil) Then
 Begin
 I1:= Menor(A^.Izq); If I1 < Min Then Min:= I1;
 End;
If (A^.Der <> Nil) Then
 Begin
 I1:= Menor(A^.Der); If I1 < Min Then Min:= I1;
 End;
Menor:= Min;
End;
 Procedure Eliminar(Var A: Arbol; N: Integer);
 
Procedure Borrar(Var A,Aux: Arbol);
Begin
If A^.Der <> Nil Then Borrar(A^.Der,Aux)  Else
  Begin
   Aux^.Info:= A^.Info;
   Aux:= A;
   A:= A^.izq;  End;
End;
 
Var Aux: Arbol;
BeginIf N < A^.Info Then Eliminar(A^.Izq,N) Else
 If N > A^.Info Then Eliminar(A^.Der,N) Else
  Begin
  Aux:= A;
  If Aux^.Der = Nil Then A:= Aux^.Izq   Else
    If Aux^.Izq = Nil Then A:= Aux^.Der
      Else Borrar(Aux^.Izq,Aux);
  End;
End; 
Begin
     A:= Nil;
     Repeat
           ClrScr;           WriteLn('1- Agregar elemento al arbol');
           WriteLn('2- Mostrar el arbol ordenado');
           WriteLn('3- Saber si un n£mero est  en el arbol');
           WriteLn('4- Eliminar un elemento del arbol');
           WriteLn('5- Obtener el menor elemento');           WriteLn('6- Salir');
           write('Opci¢n: ');
           Opc:= ReadKey;
           If Opc = '1' Then
            Begin             ClrScr;
             Write('Ingrese un n£mero: ');
             ReadLn(n);
             Insertar(a,n);
            End;           If Opc = '2' Then
           Begin
            ClrScr;
            WriteLn('Estos son los elementos ordenados: ');
            In_Orden(a);            WriteLn;
            Write('Presione cualquier tecla para continuar...');
            ReadKey;
           End;
           If Opc = '3' Then            Begin
            ClrScr;
            Write('Ingrese un n£mero: ');
            ReadLn(n);
            If Busqueda(a,n) Then WriteLn('El elemento est  en el arbol.')              Else WriteLn('El elemento no est  en el  rbol.');
            WriteLn;
            Write('Presione cualquier tecla para continuar...');
            ReadKey;
            End;           If Opc = '4' Then
            Begin
            ClrScr;
            Write('Ingrese el elemento a borrar: ');
            ReadLn(n);            If Busqueda(a,n) Then
             Begin
              Eliminar(a,n);
              WriteLn('El elemento fue eliminado.');
             End Else WriteLn('El elemento no est  en el  rbol.');            WriteLn;
            Write('Presione cualquier tecla para continuar...');
            ReadKey;
            End;
           If Opc = '5' Then           Begin
            ClrScr;
            If A = Nil Then WriteLn('No hay elementos en el arbol.') Else
            WriteLn('El menor es: ',Menor(A));
            ReadKey;           End;
     Until (Opc = '6');
End.