Gcd(Values: Array): Integer;
Values. Массив целых чисел.
Метод Gcd возвращает наибольший общий делитель.
Необходимо использовать массив значений типа Integer.
Функция корректно работает как с одномерными, так и с двумерными массивами.
Для получения наименьшего общего кратного используйте метод IMath.Lcm.
Для выполнения примера добавьте ссылку на системную сборку 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.
См. также: