22 lines
327 B
Plaintext
22 lines
327 B
Plaintext
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
|