Calcul de la racine carrée. Méthode de Newton. Programme en Basic

C'est un programme en basic qui fonctionne parfaitement avec une grande précision.
Vous devez avoir la fonction "while wend"

CLS: PRINT
PRINT "  Calcul de la racine carrée d'un nombre  Méthode de Newton.": PRINT
INPUT "           Entrez un nombre : "; nbr#: PRINT
d# = 2: racine# = 1
WHILE ABS(d#) > 10 ^ -15
    racine1# = racine#
    racine# = (racine1# + nbr# / racine1#) / 2
    d# = racine1# - racine#
WEND
PRINT "     La racine carrée de "; nbr#; " est  : "; racine#


                  Résultat type