Pascal/Turbo Pascal - Representar Grafo en Pascal

{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;