Section courante

A propos

Section administrative du site

SQR

 Racine carré
LotusScript

Syntaxe

Function Sqr(numExpr As Double) As Double

Paramètres

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

Description

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

Algorithme

MODULE SQR(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

Remarque

Exemple

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

  1. Sub Main
  2.      Dim R As Double
  3.      R = 2
  4.      Do While R <= 1000
  5.           Print "Sqrt(" & R & ")=" & Sqr(R)
  6.           R = R * R
  7.      Loop 
  8. End Sub

on obtiendra le résultat suivant :

Sqrt(2)=1.4142135623730951
Sqrt(4)=2
Sqrt(16)=4
Sqrt(256)=16

Voir également

Langage de programmation - LotusScript - Référence de procédures et fonctions - SGN
Articles - Les géants de l'informatique - IBM

Dernière mise à jour : Jeudi, le 8 janvier 2015