Discussion :

[bzminfo]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.