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.

[darrylsite]

Salut,

un peu d'analyse t'aiderai a mieux comprendre ce que tu as a faire.

R= rac(1+rac(2+rac(3))) si n=3.
Si tu prends un pariper et un crayon afin d'effectuer le calcul a la main, tu calculera certainement :
.rac(3) => a
.a+2=> b
.rac(b)=>c
.1+c=>d
.rac(d) => R

Si on doit faire le programme, ca donnerait un truc du genre

Code :

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

1
2
3
4
5
6
7
8
9
10
 
n:=3;
s:=3;
r=0;
for i:=n downto 1 do
begin
 r=sqrt(s);
 s=r+i-1;
end;
writeln(R);

C'est pas un code pour remplacer le tien mais pour te dire que tu ne fais pas les calculs dans le bon sens. Ce que tu tentes de faire c'est plutôt
R= rac(3+rac(2+rac(1))).

Tu n'as pas commencé par la version récursive