[C#][VB.NET]最大公因數 amp; 最小公倍數

    private int LCM(int num1, int num2)
    {
        return num1 * num2 / GCD(num1, num2);
    }</pre></div>

Private Function LCM(ByVal num1 As Integer, ByVal num2 As Integer) As Integer
    Return num1 * num2 / GCD(num1, num2)
End Function</pre></div>

namespace ConsoleApplication1 { class Program { private static int GCD(int num1, int num2) { int min = 0; int max = 0; int maxModMin = 0; min = Math.Min(num1, num2); max = Math.Max(num1, num2); maxModMin = max % min; return maxModMin > 0 ? GCD(min, maxModMin) : min; }

    private static int LCM(int num1, int num2)
    {
        return num1 * num2 / GCD(num1, num2);
    }

    static void Main(string[] args)
    {
        const int EXAMPLE_COUNT = 5;
        const int MIN_RANDOM_VALUE = 2;
        const int MAX_RANDOM_VALUE = 50;

        int num1, num2;
        Random ran = new Random();

        Console.WriteLine("GCD...");
        for (int i = 0; i < EXAMPLE_COUNT; ++i)
        {
            num1 = ran.Next(MIN_RANDOM_VALUE,MAX_RANDOM_VALUE);
            num2 = ran.Next(MIN_RANDOM_VALUE, MAX_RANDOM_VALUE);
            Console.WriteLine("GCD({0},{1}) = {2}", num1, num2, GCD(num1, num2).ToString());
        }

        Console.WriteLine();
        Console.WriteLine("LCM...");
        for (int i = 0; i < EXAMPLE_COUNT; ++i)
        {
            num1 = ran.Next(MIN_RANDOM_VALUE, MAX_RANDOM_VALUE);
            num2 = ran.Next(MIN_RANDOM_VALUE, MAX_RANDOM_VALUE);
            Console.WriteLine("LCM({0},{1}) = {2}", num1, num2, LCM(num1, num2).ToString());
        }
    }
}

}

Private Function GCD(ByVal num1 As Integer, ByVal num2 As Integer) As Integer
    Dim min, max, maxModMin As Integer
    min = Math.Min(num1, num2)
    max = Math.Max(num1, num2)
    maxModMin = max Mod min
    Return If(maxModMin > 0, gcd(min, maxModMin), min)
End Function

Private Function LCM(ByVal num1 As Integer, ByVal num2 As Integer) As Integer
    Return num1 * num2 / GCD(num1, num2)
End Function

Sub Main()
    Const EXAMPLE_COUNT As Integer = 5
    Const MIN_RANDOM_VALUE As Integer = 2
    Const MAX_RANDOM_VALUE As Integer = 50

    Dim num1 As Integer, num2 As Integer
    Dim ran As New Random()

    Console.WriteLine("GCD...")
    For i As Integer = 0 To EXAMPLE_COUNT - 1
        num1 = ran.Next(MIN_RANDOM_VALUE, MAX_RANDOM_VALUE)
        num2 = ran.Next(MIN_RANDOM_VALUE, MAX_RANDOM_VALUE)
        Console.WriteLine("GCD({0},{1}) = {2}", num1, num2, GCD(num1, num2).ToString())
    Next

    Console.WriteLine()
    Console.WriteLine("LCM...")
    For i As Integer = 0 To EXAMPLE_COUNT - 1
        num1 = ran.Next(MIN_RANDOM_VALUE, MAX_RANDOM_VALUE)
        num2 = ran.Next(MIN_RANDOM_VALUE, MAX_RANDOM_VALUE)
        Console.WriteLine("LCM({0},{1}) = {2}", num1, num2, LCM(num1, num2).ToString())
    Next
End Sub

End Module

• CSharp
• VB.NET