Probléme récurent
Résolu
Tony_Montana21
-
Tony_Montana21 -
Tony_Montana21 -
Bonjour,
si vous pouvez aider moi a resoudre se probleme dans les algorithmes récurents :
ecrire un algorithme et un programme pascal qui permet d'afficher la racine carrée d'un réel positif x en utulisant la suite suivante :
U0 = (1+x)/2
Un+1 = (Un+x/Un)/2
il sagit de calculer les premiers termes de cette suite jusqu'a ce que la differnce entre deux termes successifs devient inferieur ou égale à 10 a la puissance -4. le dzernier terme calculé est une valeur approché de racine carrée de x à 10 al puissance -4 près.
si vous pouvez aider moi a resoudre se probleme dans les algorithmes récurents :
ecrire un algorithme et un programme pascal qui permet d'afficher la racine carrée d'un réel positif x en utulisant la suite suivante :
U0 = (1+x)/2
Un+1 = (Un+x/Un)/2
il sagit de calculer les premiers termes de cette suite jusqu'a ce que la differnce entre deux termes successifs devient inferieur ou égale à 10 a la puissance -4. le dzernier terme calculé est une valeur approché de racine carrée de x à 10 al puissance -4 près.
Configuration: Windows XP Firefox 2.0.0.12
2 réponses
-
Bonjour,
C'est une recherche par dichotomie.
Essaye de proposer quelque chose, on corrigera si tu fait fausse route.
A+. -
-
program ex2;
uses wincrt;
var x,r:real;
procedure saisie (var x:real);
begin
repeat
writeln ('saisir un reel positif');
readln (x);
until (x>0);
end;
function racine (x:real):real;
var u,up:real;
begin
u:= (1+x)/2;
repeat
up := u;
u:= (up + x / up)/2;
until (abs(u-up) <= 0.0001);
racine := u;
end;
begin
saisie (x);
r:= racine(x);
writeln(r:5:2,' est la racine carée
de ',x:5:2);
end.
-
