LCM Function |
Unit
QESBPCSMath
Declaration
Function LCM(const X, Y: LongInt): Int64;
Description
Please note that routine assumes LCM (0, 0) to be invalid and raises an error;
Parameters |
X | First Value to process. |
Y | Second Value to process. |
Category
Arithmetic Routines for IntegersImplementation
function LCM (const X, Y: LongInt): Int64; begin if (X = 0) or (Y = 0) then raise EMathError.Create (rsNotDefinedForValue); Result := (x div LongInt (GCD (Abs (X), Abs (Y)))) * Int64 (Y); End; |
|