Exercice VB: calcule de carré et de Racine carré
Ecrire le code en VB qui permet de donner :
- Le carré d’un nombre
Exemple: (9)2 = 9 * 9 = 81
- La racine carrée d’un nombre :
Soit, a un nombre positif, la racine carré de a est le nombre positif dont le carré est a.
La racine carrée de a se note a1/2 et ( a1/2 )2 = a
Le carré d’un nombre:
1234567891011121314151617 | Module racine_carrée Sub Main() Dim N, C As Integer Dim rep As String Do Console.WriteLine(" saisir la valeur de N") N = Console.ReadLine() C = N * N Console.WriteLine("le carrée de N es =" & N & " " & "*" & " " & N & "=" & N * N) Console.WriteLine("voulez-vous contunuer O/N") rep = Console.ReadLine Loop Until rep = "N" Console.ReadLine() End Sub End Module |
La racine carrée d’un nombre :
123456789101112131415161718192021222324 | Module racine_carrée Sub Main() Dim A, X, Y As Integer Dim rep As String Do Console.WriteLine("saisir la valeur de A") A = Console.ReadLine() X = (1 / 2) * (1 + A) While ((Y - X) = 0.00001) X = Y Y = (1 / 2) * (X + A / X) End While Console.WriteLine("le racine carrée de A est=" & (1 / 2) & " " & "*" & " " & (X & " " & "+" & " " & (A & "/" & X) & " " & "=" & (1 / 2) * (X + A / X))) Y = Console.ReadLine() Console.WriteLine("voulez-vous contunuer O/N") rep = Console.ReadLine Loop Until rep = "N" Console.ReadLine() End Sub End Module |