Realizar una aplicación que calcule el máximo común divisor de dos números introducidos por teclado.
Module Module1
Sub Main()
Dim numero1, numero2, a As Integer
Dim n1, n2 As Integer
Console.Write("Número 1: ")
numero1 = Console.ReadLine
Console.Write("Número 2: ")
numero2 = Console.ReadLine
n1 = numero1
n2 = numero2
If (numero1 < numero2) Then
a = numero2
numero2 = numero1
numero1 = a
End If
' Algoritmo de Euclides
While (numero1 Mod numero2 <> 0)
a = numero1
numero1 = numero2
numero2 = a Mod numero2
End While
Console.WriteLine("El MCD de " & n1 & " y " & n2 & " es: " & numero2)
Console.ReadKey()
End Sub
End Module
EJERCICIO 2 - Mínimo Común Múltiplo
Realizar una aplicación que calcule el mínimo común múltiplo de dos números introducidos por teclado.
Module Module1
Sub Main()
Dim numero1, numero2, mcm As Integer
Console.Write("Número 1: ")
numero1 = Console.ReadLine
Console.Write("Número 2: ")
numero2 = Console.ReadLine
mcm = (numero1 / MCD(numero1, numero2)) * numero2
Console.WriteLine("El mcm de " & numero1 & " y " & numero2 & " es: " & mcm)
Console.ReadKey()
End Sub
Function MCD(ByVal num1 As Integer, ByVal num2 As Integer) As Integer
Dim a As Integer
If (num1 < num2) Then
a = num2
num2 = num1
num1 = a
End If
' Algoritmo de Euclides
While (num1 Mod num2 <> 0)
a = num1
num1 = num2
num2 = a Mod num2
End While
Return num2
End Function
End Module
