Fonction Racine2(A :reel) :reel ; Const ER=0.001 ;
Var X,Y,D :reel ;
Debut
X ← A ;
Repeter
Y ← 0.5*(X+A/X) ; D ← Y-X ;
Si D<0 Alors D ← -D Fsi ; X ← Y ;
Jusqu’à D<ER ; Racine2 ← Y ;
Fin ;
Ajouter un commentaire
Veuillez vous connecter pour ajouter un commentaire.
Ajouter un commentaire
Veuillez vous connecter pour ajouter un commentaire.
Pas encore de commentaires.