Function RacineCarre(n : real) : real; const precision = 1.0*100-10; var x1, x2 : real; begin x2 := 1; repeat x1 := x2; x2 := x1 - (x1*x1-n)/(2*x1) until abs(x1-x2)<=precision; RacineCarre := x2; end;
just pour te préciser que c' est la fonction sqrt de delphi qui calcule la racine carrée.
Autre précision: Faut plus utiliser le type Real:A la place fo utiliser Single,Double ou Extended.Car real est juste laissé pour des raisons de compatibilité avec les précédentes versions et n' est pas conforme à la norme IEEE.
A mon avis le plus facile pour calculer la racine carrée d'un nombre est d'utiliser le développement limité de racine de x.Et comme le dis VUX respecte les norme IEEE c'est qui font la pluie et le beau temps dans le monde scientiqueMais c'est un bon travail@+cordialement Cédrik Lemaitre
Sinon tu prend ton nombre ^ 0.5 (Je sais plus si c'est comme sa en delphi) mais tu fait exposant 0.5
En delphi c'est Power(X, 0.5) !
En tout cas, cet auteur a le mérite de solutionner avec son cerveau un problème qu'il a rencontré.Il n'a pas lu la doc (ou trouvé les fonctions Delphi) mais il a fait un peu de maths.Sinon,- Ne plus utiliser le type real- Lire les docs Delphi avant de faire des maths (sauf si vous aimez), mais j'ai aussi ce gros défaut
Bien...Je l'ai pas testé mais pas mal pour l'algorythme. merci.cependant en delphi quelques commandes qu'on trouve dans le Uses Math :racine carré : sqrt(nombre) = racine --> sqrt(9) = 3élever au carrer : sqr(nombre) = carré --> sqr(3) = 9cosinus inverse : trouver la valeur de cos(x) : arccos(x)sinus inverse : trouver la valeur de sin(x) : arcsin(x)voilà. entre autre...bye.
Se souvenir du profil
Mot de passe oublié ? / Activation de compteCréer un compte
1 872 719 membres 165 nouveaux aujourd'hui 16 150 membres club