Matematické Fórum

Skrytý text:
program grafek;
const vrcholu=26; hran=(vrcholu)*(vrcholu-1) div 2;
type graf=record
        pocet_hr:array[1..hran,1..2]of char;
        hrany:integer;
        end;


    procedure nacti_hrany ( var g:graf );
    var i:integer;
        x,y:char;
    begin
      writeln;
      writeln ('Zadejte seznam vrcholu ukonceny **');
      i:=0;
      readln(x,y);
      while x <>'*' do begin
        if not je_hrana(x,y,g) then begin
        inc(i);
        g.hrany[i,1]:=x;
        g.hrany[i,2]:=y;
        readln(x,y);
        end
          else readln(x,y);
      end;
      g.pocet_hr:=i;
    end;


    function je_hrana (x,y:char; var g:graf ): boolean; {protoze mam
    neorientovny graf musim zjistit jestli neukladam stejne hrany}
    var I:integer;
    begin
      if g.pocet_hr=0 then je_hrana:=false
        else begin
          for I:=1 to g.pocet_hr do
            if ((g.hrany[I,1]=x)and(g.hrany[I,2]=y)or
                (g.hrany[I,1]=y)and(g.hrany[I,2]=x)) then begin
                  je_hrana:=true;
                  exit
                end;
        je_hrana:=false;
        end;
    end;