Új hozzászólás Aktív témák

• #575 gErYoN tag

  Új Válasz 2005-01-30 18:07:17 #575

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  gErYoN

  tag

  Ez lenne a kód:
  program gyokketto;
  {$X+}
  uses crt;
  var ak,fk,k:real; {ak=alsókorlát, fk=felsőkorlát, k pedig az aktuális szám}
  begin
  clrscr;
  ak:=1;
  fk:=2;
  k:=(ak+fk)/2;
  repeat
  if sqr(k)>2 then fk:=k
  else ak:=k;
  k:=(ak+fk)/2;
  until abs(fk-ak)<0.000001;
  writeln (k);
  readln;
  end.
  
  Szal ez gondolom nem olyan nagy szám, de kérdésem, hogy a 0.000001 helyére hogyan lehetne egy bekért számot felhasználni úgy hogy negatív egész kitevőjűs hatványa legyen a határ. Azt nem tudom, hogy hogy kell hatványozni a pascalban negatív kitevővel. Amúgy a cuccot egy függvénybe szeretném megcsinálni, csak nem tom, hogy kell hatványozni.
  
  Milyen fordítóidirektíva a {$N+/-}
  
  Somebody help!
  

Új hozzászólás Aktív témák