Pascal/Turbo Pascal - ARBOL BINARIO

   
Vista:

ARBOL BINARIO

Publicado por elias (46 intervenciones) el 22/04/2013 23:46:54
Ejercicio: (A*B)+(C/D)+5^3.5. Elaborar procedure recursivo Insertar considerando paréntesis y operaciones a realizar con manejo de memoria...¿Alguna idea? es con árbol binario...
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

ARBOL BINARIO

Publicado por ramon (2072 intervenciones) el 24/04/2013 19:01:39
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
{Estos son arboles binarios me puedes decir que tiene que ver con la formula que pones}
 
 uses
    crt;
 
type
   ptarbol = ^nudarbol;
   nudarbol = record
         numero  : integer;
         izq, der: ptarbol;
     end;
 
  var
    giaarbol : ptarbol;
    t : integer;
 
  procedure entradaarbol(var giaarbol : ptarbol; num : integer);
  begin
    if giaarbol = NIL  then
    begin
      new(giaarbol);
      giaarbol^.numero := num;
      giaarbol^.der := NIL;
      giaarbol^.izq := NIL;
    end
  else
      begin
       if num < giaarbol^.numero then
        begin
        entradaarbol(giaarbol^.izq, num);
     end
   else
       begin
        entradaarbol(giaarbol^.der, num);
       end;
     end;
  end;
 
  procedure enorden(giaarbol : Ptarbol);
  begin
    if giaarbol <> NIL then
    begin
    enorden(giaarbol^.izq);
    write('  ',giaarbol^.numero);
    enorden(giaarbol^.der);
    end;
  end;
 
  procedure preorden(giaarbol : Ptarbol);
  begin
   if giaarbol <> NIL then
   begin
     write('  ',giaarbol^.numero);
     preorden(giaarbol^.izq);
     preorden(giaarbol^.der);
   end;
  end;
 
  procedure postorden(giaarbol : Ptarbol);
  begin
    if giaarbol <> NIL then
    begin
     postorden(giaarbol^.izq);
     postorden(giaarbol^.der);
     write('  ',giaarbol^.numero);
   end;
  end;
 
 
  begin
      clrscr;
      for t := 1 to 10 do
      begin
         entradaarbol(giaarbol,t);
      end;
      for t := 1 to 10 do
      begin
        postorden(giaarbol);
      end;
      readkey;
  end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

ARBOL BINARIO

Publicado por elias (46 intervenciones) el 26/04/2013 13:25:29
Precisamente, ya conozco el arbol resultante de manera grafica, y con esa formula debo realizar el procedimiento insertar, que debe ser recursivo y debe ir procesandola segun los parentesis y la operacion a realizar...por eso no estoy claro en que debo hacer...
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar