1 pièce(s) jointe(s)
Estimation suite de racine carrée
salut,
je veut calculer l'estimation de R dans comme indiqué dans la formule avec N est une donnée
je besoin d'aide SVP
voilà ma proposition
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
| uses wincrt;
const
eps=1E-4;
var
r,s1,s2:real;
n,i:integer;
begin
write('n= ');readln(n);
r:=1; i:=1; s1:=r;
repeat
i:=i+1;
s2:=s1;
r:=sqrt(r+i);
s1:=sqrt(r);
until (abs(s2-s1)<eps)or(i>n);
write('la valeur approché de R est : ', s2:0:10);
end. |
merci.
http://www.developpez.net/forums/att...1&d=1272758230