Exercice VB: Calcule de PGCD
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
| 1234567891011121314151617181920212223 | 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 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:
| 1234567891011121314151617181920 | 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 SubEnd Module |