Pascal/Turbo Pascal - Grafico de Arbol

   
Vista:

Grafico de Arbol

Publicado por Natalia (3 intervenciones) el 01/07/2013 20:59:00
como puedo mostrar el dibujo de un arbol usando la unidad grafica??
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

Grafico de Arbol

Publicado por ramon (2072 intervenciones) el 01/07/2013 22:02:55
Te refieres a dibujo de un árbol vegetal o árbol de punteros o sea estructuras de árbol.
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

Grafico de Arbol

Publicado por Natalia (3 intervenciones) el 02/07/2013 01:00:45
a un arbol de punteros!!!
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

Grafico de Arbol

Publicado por ramon (2072 intervenciones) el 04/07/2013 23:01:05
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
{mira esto inicia y cierra la unidad gráfica en pascal en esta linea ponlo como lo tengas tu
   initgraph(drive,modo,'c:\tp\bgi'); }
 
program elarbol;
 uses
    crt, graph;
 
 
 
  var
    x1, y1 : integer;
    drive, modo : integer;
    grafico : boolean;
 
 
   procedure iniciografico;
   begin
      grafico := false;
      drive := detect;
      initgraph(drive,modo,'c:\tp\bgi');
      if graphresult <> 0 then
      begin
         writeln('**** Error Grafico Mire Ruta EgaVga ****');
         exit;
      end
    else
       begin
           grafico := true;
           rectangle(1,1,getmaxx - 1,getmaxy - 1);
           rectangle(2,2,getmaxx - 2,getmaxy - 2);
           rectangle(3,3,getmaxx - 3,getmaxy - 3);
       end;
   end;
 
   procedure cierragrafico;
   begin
       if grafico = true then
       closegraph;
   end;
 
   procedure arbol;    {sustitulle los numeros por las posiciones del arbol}
   begin
      circle(200,40,8);
     line(192,37,106,92);
     line(208,37,295,92);
     circle(100,100,8);
     line(100,108,100,120);
     circle(100,128,8);
     line(106,136,160,146);
     circle(166,154,8);
     circle(300,100,8);
     line(300,108,300,120);
     circle(300,128,8);
     line(294,136,266,153);
     circle(258,153,8);
     readkey;
   end;
 
 
   begin
       iniciografico;
       arbol;
       cierragrafico;
   end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar

Grafico de Arbol

Publicado por Natalia (3 intervenciones) el 05/07/2013 00:00:49
gracias!!!
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