Section courante

A propos

Section administrative du site

SQRT

 Racine carré
Delphi/Kylix/Lazarus Math

Syntaxe

Function Sqrt(X:Extended):Extended;

Paramètres

Nom Description
X Ce paramètre permet d'indiquer l'expression contenant le nombre à traiter

Description

Cette fonction retourne la racine carrée d'un nombre.

Algorithme

MODULE SQRT(X)
   SI X = 0.0 ALORS
      RETOURNE 0.0
   SINON
      M ← 1.0
      XN ← X
      BOUCLE FAIRE TANT QUE XN >= 2.0
         XN ← 0.25 x XN
         M ← 2.0 x M
      FIN BOUCLE FAIRE TANT QUE
      BOUCLE FAIRE TANT QUE XN < 0.5
         XN ← 4.0 x XN
         M ← 0.5 x M
      FIN BOUCLE FAIRE TANT QUE
      A ← XN
      B ← 1.0 - XN
      BOUCLE REPETER
         A ← A x (1.0 + 0.5 x B)
         B ← 0.25 x (3.0 + B) x B x B
      FIN BOUCLE JUSQU'A B ← 1.0E - 15
      RETOURNE A x M
   FIN SI

Exemple

Voici un exemple permet d'afficher les racines carrés inférieurs à 1000 :

  1. Program SqrtSamples;
  2.  
  3. {$APPTYPE CONSOLE}
  4. Uses SysUtils;
  5.      
  6. Var R:Real;
  7.      
  8. BEGIN
  9.  R := 2.0;
  10.  While R <= 1000.0 do Begin
  11.   WriteLn('Sqrt(',R:1:6,')=',Sqrt(R):1:6);
  12.   R := R * R;
  13.  End;
  14. END.

on obtiendra le résultat suivant :

Sqrt(2.000000)=1.414214
Sqrt(4.000000)=2.000000
Sqrt(16.000000)=4.000000
Sqrt(256.000000)=16.000000

Voir également

Langage de programmation - Delphi/Kylix/Lazarus - Référence de procédures et fonctions - Sqr
Langage de programmation - Delphi/Kylix/Lazarus - Référence de procédures et fonctions - Sum

Dernière mise à jour : Mercredi, le 18 février 2015