Section courante

A propos

Section administrative du site

Bien qu'en Visual Basic .NET (VB .NET), il existe une fonction «Sqrt» dans la classe Math (Math.Sqrt) permettant de calculer la racine carré, il peut quand même être amusant d'effectuer se genre de calcul nous même. Pour remédier à se problème, il suffit de créer une fonction ressemblant à ceci :

  1. Module Module1
  2.  
  3.     Function SquareRoot(ByVal X As Double) As Double
  4.         Dim A, B, M, XN As Double
  5.         If X = 0.0 Then
  6.             Return 0.0
  7.         Else
  8.             M = 1.0
  9.             XN = X
  10.             While XN >= 2.0
  11.                 XN = 0.25 * XN
  12.                 M = 2.0 * M
  13.             End While
  14.             While XN < 0.5
  15.                 XN = 4.0 * XN
  16.                 M = 0.5 * M
  17.             End While
  18.             A = XN
  19.             B = 1.0 - XN
  20.             Do
  21.                 A = A * (1.0 + 0.5 * B)
  22.                 B = 0.25 * (3.0 + B) * B * B
  23.             Loop While B >= 0.000000000000001
  24.             Return A * M
  25.         End If
  26.     End Function
  27.  
  28.     Sub Main()
  29.         Dim R As Double = 2
  30.         While R <= 1000
  31.             Console.WriteLine("Sqrt(" & R & ")=" & Math.Sqrt(R) & " " & SquareRoot(R))
  32.             R = R * R
  33.         End While
  34.     End Sub
  35.  
  36. End Module

on obtiendra le résultat suivant :

Sqrt(2)= 1.41421
Sqrt(4)= 2.0000
Sqrt(16)= 4.0000
Sqrt(256)= 16.0000

Voir également

Science - Mathématique
Langage de programmation - C# (C Sharp) - Mathématique - Sqrt (Racine carré)

Dernière mise à jour : Samedi, le 22 octobre 2016