Probléme récurent
Résolu/Fermé
A voir également:
- Probléme récurent
- Trouver les mots de passe sur Thunderbird. Problème Gmail récurent - Forum Thunderbird
- Message récurent à l'insertion d'ue clé usb ✓ - Forum Virus
- 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
- Message récurent de Google : Nos systèmes ont détecté un trafic exceptionnel sur ✓ - Forum Virus
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+.
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.
8 mars 2008 à 21:52