IMath.Gcd

Синтаксис Fore

Gcd(Values: Array): Integer;

Синтаксис Fore

Gcd(Values: System.Array): integer;

Параметры

Values. Массив целых чисел.

Описание

Метод Gcd возвращает наибольший общий делитель.

Комментарии

Необходимо использовать массив значений типа Integer.

Функция корректно работает как с одномерными, так и с двумерными массивами.

Для получения наименьшего общего кратного используйте метод IMath.Lcm.

Пример Fore

Для выполнения примера добавьте ссылку на системную сборку MathFin.

Sub UserProc;
Var r: Double;
    arr: Array[5] Of Integer;
Begin
    arr[0] := 24;
    arr[1] := 64;
    arr[2] := 32;
    arr[3] := 8;
    arr[4] := 16;
    r:= math.Gcd(arr);
    Debug.WriteLine(r);
End Sub UserProc;

В результате выполнения примера в окно консоли будет выведен наибольший общий делитель, равный «8».

Пример Fore.NET

Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore.

Imports Prognoz.Platform.Interop.MathFin;
…
Public Shared Sub Main(Params: StartParams);
Var
    r: integer;
    Math: MathClass = New MathClass();
    Arr: Array[5] Of integer;
Begin
    Arr[0] := 24;
    Arr[1] := 64;
    Arr[2] := 32;
    Arr[3] := 8;
    Arr[4] := 16;
    r := Math.Gcd(Arr);
    System.Diagnostics.Debug.WriteLine(r);
End Sub;

См. также:

IMath