Manejo de arboles binarios

¿Has encontrado un error? ¿Tienes la solución? Deja tu correción ;-)

Antes de comentar: Gran parte de los ejercicios propuestos no tienen librerías debido a que Wordpress las eliminó al verlas como etiquetas HTML. Si sabes/tienes/conoces las librerías que hacen falta, déjalo en los comentarios. Y lo mas importante: Todos los ejemplos fueron realizados por estudiante con únicamente conocimiento básico del lenguaje, no de programación.

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.

15 comentarios en "Manejo de arboles binarios"

JLSantillan

Hola, pasaba por aca buscando codigo para mi laboratorio de programacion en la universidad. Al ver la funcion menor veo que tambien hacen recursion por el lado derecho, lo cual me parece raro si hablamos de arboles de busqueda binarios. Creo que mas sentido haria...

[pascal]Function Menor (A: Arbol): Integer;
Var
Begin
If (A`.Izq = NIL) then { No hay nodos por el lado izquierdo }
Menor := A^.Info
Else
Menor := Menor(A^.izq);
End;[/pascal]

Pues se me hace de mas sentido la busqueda solo por la izquierda, espero no equivocarme xD
Saludos, y gracias por el codigo!

JLSantillan

seccion:
***********************************
[pascal]Function Menor (A: Arbol): Integer;
Var
Begin[/pascal]
***********************************
El codigo lo escribi de inspiracion propio y falto remover el Var, ya que no declaro variables :P

PocaLuz

A veces las soluciones iterativas son mas eficientes y claras; para las funciones mayor y menor...:

[pascal]{para hacerlo mas general devuelve un puntero}

Function Menor(A:arbol):arbol;
Begin
if (Anil) then
while (A?.izqnil) do
A:=A?.izq;

Menor:=A;
End;[/pascal]

Crackman87

El codigo de la funcion menor escrita originalmente es correcto ya que los procedimientos y funciones son de arboles binarios, en cuanto a los algoritmos de JLSantillan y PocaLuz, estan hechos para arboles binarios de busqueda, en los que su elemento mas pequeo estar siempre en la rama izquierda en el nivel mas bajo posible. Pero repito en arboles binarios a secas esto no tiene porque suceder...

Por cierto gracias por el codigo...

DANIELA VIOLETA TEJEDA

esta muy buen esta informacion

Punto importante: Si vas a sugerir un segmento de código en algún lenguaje debes hacerlo así:

  • Si es lenguaje C <code lang="c">Código en C</code>
  • Si es lenguaje Pascal <code lang="pascal">Aquí dentro el código de Pascal</code>.

De esta manera el código coloreas el código.

Deja un comentario

Suscribirse a los comentarios.