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;
В результате выполнения примера в окно консоли будет выведено наименьшее общее кратное, равное «192».
Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore.
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;
См. также: