Program Kozelites;
  Uses
      AritUnit,Raciona5,Crt,Dos;
      {$I Valos.Inc}

  Var
      x        : ValosSzam;
      iterszam : Integer;
      pont     : Integer;

  {
          A kozelito rutinok:
  }

  Procedure Gyok2_Newton(Var gyok: Tort);
    Var
        x,y,z: Tort;
  Begin

  End; { GyokN_Newton }

  Procedure Gyokvonas2(Var N: Tort; Var gyok: ValosSzam);
    Var

  Begin
    Gyok2_Newton(x);
    Konv_RacVal(gyok,x,MaxPontossag);
  End; { GyokvonasN }

  Procedure Gyok2_Pell(Var vx: ValosSzam);
    Var
    Begin

    Writeln;
  End; { Gyok2_Pell }

  Procedure Pi_wallis(Var vx:ValosSzam);
  Var
  begin

  end;

  Procedure E_hatvany(var vx:Valosszam);
  var

  begin

  end;

Begin
  ClrScr;
  KonstansLetrehozas;
  {  ű2 k”zelˇt‚s, a Newton-m˘dszerrel }
  Writeln('Pascal:');
  Writeln(sqrt(2));
  Writeln;
  Writeln('Gy”k-2 k”zelˇt‚s Newton-m˘dszerrel:');
  Gyokvonas2(KettoTort,x);
  Kiir(x,72);
  Writeln(' Iter ci˘sz m:',iterszam:4); Writeln;
    Writeln('-----------------------');
  { ű2 k”zelˇt‚s, a Pell-egyenlettel }
  Writeln('Gy”k-2 k”zelˇt‚s Pell-egyenlettel:');
  Gyok2_Pell(x);
  Kiir(x,72);
  Writeln('Iter ci˘sz m:',iterszam:4); Writeln;
  Writeln('-----------------------');
  Writeln('Pi kozelitese');
  Writeln('Pascal:',pi);
  Pi_wallis(x);
  Kiir(x,70);
  Writeln('-----------------------');
  Writeln('e kozelitese');
  Writeln('Pascal:',exp(1.0));
  E_hatvany(x);
  Kiir(x,70);
  ReadKey;
End.