Section courante

A propos

Section administrative du site

SQRT

 Racine carré
PL/1

Syntaxe

Y=SQRT(X);

Paramètres

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

Description

Cette fonction retourne la racine carré d'une valeur.

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ées inférieurs à 1000 :

  1.  Corps: PROC options(main);
  2.       DECLARE (R) float;
  3.       R = 2.0;
  4.       DO WHILE (R <= 1000.0);
  5.         display('Sqrt(' || R || ')=' || sqrt(R));
  6.          R *= R;
  7.       END;
  8.  END Corps;

on obtiendra le résultat suivant :

Sqrt( 2.00000E+0000)= 1.41421E+0000
Sqrt( 4.00000E+0000)= 2.00000E+0000
Sqrt( 1.60000E+0001)= 4.00000E+0000
Sqrt( 2.56000E+0002)= 1.60000E+0001

Dernière mise à jour : Samedi, le 18 octobre 2014