unit grafmod;

interface

const maxpont=maxint; {barmi}
type egesz=integer;
   Thossz=real;
   Tpont=integer; {majd exportaljuk}
const KapcsolatNelkul=maxint/2; {barmi lehetnbe -> Thossz;}
var hiba:boolean;

type Tindex=integer;
   tgraf=object

  procedure Ures(var g:Tgraf);
  function Urese(const g:Tgraf):boolean;
  procedure Beolvas(var g:Tgraf);
  procedure Kiir(const G:Tgraf);
  function Pontszam(const g:Tgraf):egesz;
  function Elszam(const g:Tgraf):egesz;
  procedure BeillesztPont(var g:Tgraf; i:Tindex);
  procedure TorolPont(var g:Tgraf; i:Tindex; p:Tpont);
  procedure Osszekot(var g:Tgraf; p,q:Tindex; h:real);
  procedure Elszakit(var g:Tgraf; p,q:Tindex);
  function Elhossz(const g:Tgraf; p,q:Tindex):egesz;
  function KiinduloElekSzama(const g:Tgraf; p:Tindex):egesz;
  function SzomszedPont(const g:Tgraf; p:Tindex):Tindex;
  function PontErtek(const g:Tgraf; p:Tindex):Tpont;
end; {type}

implementation

  procedure Tgraf.Ures(var g:Tgraf);
  begin

  end; {ures}

  function Tgraf.Urese(const g:Tgraf):boolean;
  begin
  end; {urese}

  procedure Tgraf.Beolvas(var g:Tgraf);
  begin
  end; {beolvas}

  procedure Tgraf.Kiir(const G:Tgraf);
  begin
  end; {kiir}

  function Tgraf.Pontszam(const g:Tgraf):egesz;
  begin
  end;  {pontszam}


  function Tgraf.Elszam(const g:Tgraf):egesz;
  begin
  end;

{Az alabbi fv-knel: logikai ertek -> sikeres volt-e a muvelet}
  procedure Tgraf.BeillesztPont(var g:Tgraf; i:Tindex);
  begin
  end; {beillesztpont}

  procedure Tgraf.TorolPont(var g:Tgraf; i:Tindex; p:Tpont);
  begin
  end;  {torolpont}

  procedure Tgraf.Osszekot(var g:Tgraf; p,q:Tindex; h:real);
  begin
  end; {osszekot}

  procedure Tgraf.Elszakit(var g:Tgraf; p,q:Tindex);
  begin
  end; {elszakit}

  function Tgraf.Elhossz(const g:Tgraf; p,q:Tindex):egesz;
  begin
  end; {elhossz}

  function Tgraf.KiinduloElekSzama(const g:Tgraf; p:Tindex):egesz;
  begin
  end; {KiinduloElekSzama}

  function Tgraf.SzomszedPont(const g:Tgraf; p:Tindex):Tindex;
  begin
  end;

  function Tgraf.PontErtek(const g:Tgraf; p:Tindex):Tpont;
  begin
  end;

end.