IMath.Lcm

Синтаксис

Lcm(Values: Array): Double;

Lcm(Values: System.Array): double;

Параметры

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

Описание

Метод Lcm возвращает наименьшее общее кратное.

Комментарии

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

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

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

Пример

Для выполнения примера добавьте ссылку на системную сборку 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.Lcm(arr);
    Debug.WriteLine(r);
End Sub UserProc;

Imports Prognoz.Platform.Interop.MathFin;
…
Public Shared Sub Main(Params: StartParams);
Var
    r: double;
    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.Lcm(Arr);
    System.Diagnostics.Debug.WriteLine(r);
End Sub;

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

См. также:

IMath