Exercice VB: Calcule de PGCD

Rédigé par GC Team, Publié le 01 Janvier 2012, Mise à jour le Mardi, 30 Novembre 1999 00:00
Participez au vote ☆☆☆☆☆★★★★★

Enoncé:

Ecrire le code en VB qui permet de calculer le plus grand commun diviseur « abrégé en général PGCD » de deux Nombres.

Exemple :

On cherche le PGCD de 15 et 12.

Les diviseurs positifs de 15 sont : 1, 3, 5, 15.

Les diviseurs positifs de 12 sont : 1, 2, 3, 4, 6, 12.

On obtient donc d12,15 = {1,3}

On en déduit pgcd(12, 15) = 3.



Première Solution 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

Module PGCD
 
    Sub Main()
        Dim a, b, c, pgcd, k As Integer
        Console.WriteLine("saisir la valeur de a")
        a = Console.ReadLine()
        Console.WriteLine("saisir la valeur de b")
        b = Console.ReadLine()
        If a < b Then
            k = a
            a = b
            b = k
        End If
        Do
            c = mod(a / b)
            a = b
            b = c
        Loop Until c = 0
        Console.WriteLine("le pgcd es=" & c)
        c = Console.ReadLine()
    End Sub
 
End Module

Deuxième Solution:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

Module pgcd2
 
    Sub Main()
        Dim a, b As Integer
        Console.WriteLine("saisir la valeur de a")
        a = Console.ReadLine()
        Console.WriteLine("saisir la valeur de b")
        b = Console.ReadLine
        Do
            If a > b Then
                a = a - b
            Else
                b = b - a
            End If
        Loop Until a = b
        Console.WriteLine("le pgcd est=" & a)
        a = Console.ReadLine()
        Console.ReadLine()
    End Sub
End Module