Exercice VB: Calcule de PGCD
Rédigé par , Publié le 01 Janvier 2012, Mise à jour le Mardi, 30 Novembre 1999 00:00Participez 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 |