home *** CD-ROM | disk | FTP | other *** search
/ BCI NET / BCI NET Dec 94.iso / archives / programming / languages / cleo.lzh / Cleo / examples / newton.cl < prev    next >
Encoding:
Text File  |  1993-01-24  |  635 b   |  36 lines
  1. program Newton;
  2.  
  3. {   Calcul par la methode de newton de la racine carree d'un nombre }
  4. {
  5.     Nombre A,   EPS erreur relative
  6.  
  7.     X0 = A
  8.     Xn+1 = 1/2(Xn+ A/Xn)
  9.  
  10.     Arret :     | Xn+1 -Xn |
  11.                 | -------- | < EPS
  12.                 |    Xn    |
  13. }
  14.  
  15. var
  16.     a, x0, x1, eps, err : real;
  17. begin
  18.  
  19.     write ('Enter epsilon:'); readln(eps);
  20.     write ('Enter A:'); readln(a);
  21.  
  22.     x0 := a;
  23.     err := eps+1;
  24.  
  25.     while  err > eps do
  26.         begin
  27.             x1 := (x0 +a/x0) / 2;
  28.             err := abs( (x1-x0)/x0);
  29.             x0 := x1;
  30.         end;
  31.     writeln(' Racine de ', a, ' a ', eps,' pres = ', x0);
  32.     writeln;
  33.  
  34. end.
  35.  
  36.