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.
A voir également:
- Probléme récurent
- Crash Pc récurent + Blue screen. - Forum Matériel & Système
- Message récurent à l'insertion d'ue clé usb ✓ - Forum Virus
- Trouver les mots de passe sur Thunderbird. Problème Gmail récurent - Forum Thunderbird
- Message récurent de Google : trafic exceptionnel sur le rése ✓ - Forum Virus
- Message recurent : Un site est en train de lire vos données - Forum Xiaomi
2 réponses
Bonjour,
C'est une recherche par dichotomie.
Essaye de proposer quelque chose, on corrigera si tu fait fausse route.
A+.
C'est une recherche par dichotomie.
Essaye de proposer quelque chose, on corrigera si tu fait fausse route.
A+.
tony_montana21
je ne parvient pas a trouvés une solution.....méme ac la recherche....
Regardes ici:
http://www.asp-php.net/tutorial/divers/dichotomie.php
http://www.asp-php.net/tutorial/divers/dichotomie.php
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.
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.
