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:00
Participez 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