22 lines
327 B
Text
22 lines
327 B
Text
|
Textwindow.Write("LCM(35, 21) = ")
|
||
|
|
mlcm = 35
|
||
|
|
nlcm = 21
|
||
|
|
CalculateLCM()
|
||
|
|
TextWindow.WriteLine(lcm)
|
||
|
|
|
||
|
|
Sub CalculateLCM
|
||
|
|
mgcd = mlcm
|
||
|
|
ngcd = nlcm
|
||
|
|
CalculateGCD()
|
||
|
|
lcm = mlcm / gcd * nlcm
|
||
|
|
EndSub
|
||
|
|
|
||
|
|
Sub CalculateGCD
|
||
|
|
While mgcd <> 0
|
||
|
|
tmp = mgcd
|
||
|
|
mgcd = Math.Remainder(ngcd, mgcd)
|
||
|
|
ngcd = tmp
|
||
|
|
EndWhile
|
||
|
|
gcd = ngcd
|
||
|
|
EndSub
|