Pascal/Turbo Pascal - Representar Grafo en Pascal

   
Vista:

Representar Grafo en Pascal

Publicado por elias (46 intervenciones) el 15/05/2013 18:02:31
Ayuda para representar un grafo en pascal...por donde inicio?gracias
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

Representar Grafo en Pascal

Publicado por ramon (2072 intervenciones) el 17/05/2013 14:21:45
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
{Tendrías que empezar por la elección de como ejemplo}
 
proceso de grafos;
 { Mediante matrices}
 mediante matrices;
 
 const
   maxnodos = 10;
 
  type
   indice = 1..maxnodos;
 
   valnodo = 10;
   valarco = 10;
 
   arco = record
          info : valarco;
          existe : boolean;
          end;
 
   nodo = record
              info : valnodo;
              existe : boolean;
           end;
 
   grafo = record
               nodos : array[indice] of nodo;
               arcos: array[indice, indice] of arco;
            end;
 
{ O mediante punteros}
 
 mediante punteros;
 const
   maxnodos = 10;
 
 
 type
   indice = 1..maxnodos;
 
   valnodo = 10;
   valarco = 10;
 
   ptarco = ^arco;
   arco = record
              info : valarco;
              destino : indice;
              sig : ptarco;
           end;
 
   nodo = record
              info : valnodo;
              existe : boolean;
              larcos : ptarco;
           end;
 
   grafo = record
               nodos : array[indice] of nodo;
            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

Representar Grafo en Pascal

Publicado por elias (46 intervenciones) el 21/05/2013 16:41:23
Me gustaria hacerlo mediante matrices, algun ejemplo completo que pueda facilitar? 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