Exercice VB: calcule de carré et de Racine carré
Rédigé par GC Team, Publié le 01 Janvier 2012, Mise à jour le Mardi, 30 Novembre 1999 00:00Participez au vote ☆☆☆☆☆★★★★★
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:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 |
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 :
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 |
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 |