home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 13 / CDA13.ISO / cdactual / demobin / share / program / Pascal / BFTGPH.ZIP / TESTGPH.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-09-09  |  1.7 KB  |  86 lines
  1. Program Testgraph;
  2.  
  3. uses graph,crt;
  4.  
  5. var A,B,C,D,E,F,Ga,H,I,J,temp : Vertex;
  6.     sh : arc;
  7.     ch : char;
  8.     x: integer;
  9.     G: Vertex;
  10.  
  11. begin
  12.    clrscr;
  13.    G := NewGraph;
  14.    ch := 'A';
  15.    A := NewVrtx(G,CH);
  16.    ch := 'B';
  17.    B := NewVrtx(G,CH);
  18.    ch := 'C';
  19.    C := NewVrtx(g,ch);
  20.    ch := 'D';
  21.    D := NewVrtx(g,ch);
  22.    ch := 'E';
  23.    E := NewVrtx(G,CH);
  24.    ch := 'F';
  25.    F := NewVrtx(G,CH);
  26.    ch := 'G';
  27.    Ga := NewVrtx(g,ch);
  28.    ch := 'H';
  29.    H := NewVrtx(g,ch);
  30.    ch := 'I';
  31.    I := NewVrtx(g,ch);
  32.    ch := 'J';
  33.    J := NewVrtx(g,ch);
  34.    WtdJoin(A,B,1);
  35.    wtdjoin(B,A,1);
  36.    wtdjoin(B,C,2);
  37.    wtdjoin(C,B,2);
  38.    WtdJoin(C,D,3);
  39.    wtdjoin(D,C,3);
  40.    wtdjoin(E,F,2);
  41.    wtdjoin(F,E,2);
  42.    WtdJoin(F,Ga,3);
  43.    wtdjoin(Ga,F,3);
  44.    wtdjoin(H,I,5);
  45.    wtdjoin(I,H,5);
  46.    WtdJoin(A,E,4);
  47.    wtdjoin(E,A,4);
  48.    wtdjoin(E,H,3);
  49.    wtdjoin(H,E,3);
  50.    WtdJoin(H,J,2);
  51.    wtdjoin(J,H,2);
  52.    wtdjoin(B,F,4);
  53.    wtdjoin(F,B,4);
  54.    WtdJoin(F,I,1);
  55.    wtdjoin(I,F,1);
  56.    wtdjoin(C,Ga,5);
  57.    wtdjoin(Ga,C,5);
  58.    WtdJoin(D,Ga,4);
  59.    wtdjoin(Ga,D,4);
  60.    wtdjoin(Ga,I,5);
  61.    wtdjoin(I,Ga,5);
  62.    WtdJoin(I,J,6);
  63.    wtdjoin(J,I,6);
  64.    wtdjoin(C,F,1);
  65.    wtdjoin(F,C,1);
  66.    wtdjoin(H,F,3);
  67.    wtdjoin(F,H,3);
  68.    wtdjoin(B,E,7);
  69.    WtdJoin(e,B,7) ;
  70.    writeln(FirstSuccessor(G,'F')^.name);
  71.    writeln(NextSuccessor(G,f,'C')^.name);
  72.    PrintGraph(G);
  73. {   while G <> nil do
  74.       begin
  75.          writeln('Vertix ',G^.Name);
  76.          sh:=g^.emanate;
  77.          while sh<>nil do
  78.             begin
  79.                write(sh^.vertex1,',',sh^.vertex2,' ',sh^.weight,'   ');
  80.                sh := sh^.emanate;
  81.             end;
  82.          Writeln;
  83.          G := G^.Next
  84.       end}
  85. end.
  86.