最大公因數、最小公倍數及約分

程式新版

兩數的最大公因數 (H.C.F of two positive number)

兩數的最大公因數及最小公倍數 (H.C.F, and L.C.M. of two number)

兩數的最大公因數, 最小公倍數及約分 (H.C.F , L.C.M. and simplify fraction)

N個數的最大公因數 (H.C.F. of N^th positive number)

N個數的最小公倍數 (L.C.M. of N^th positive number)

N個數的最大公因數及最小公倍數 (H.C.F and L.C.M. of N^th positive number)

擴充最大公因數 (Extended GCD)

返回 CASIO fx-50FH 及 fx-50F PLUS 程式集

程式舊版

程式編寫日期: 2009年6月19日

程式可以計算兩數的最大公因數, 最小公倍數及約分(可以約簡較大的數值)。

第一個程式(53 bytes，使用記憶為A、B、C、D及X)

程式需要在 BASE 模式下執行，因此在選擇新程式位置後，按 3 選用BASE模式。

Dec: ?→A: ?→B: A→D: B→X: While B: B→C:

A - A ÷ B × B→B: C→A: WhileEnd:

C◢ D ÷ C◢ X ÷ C◢ Ans D

第二個程式 (COMP模式，57 bytes，使用記憶為A、B、C、D及M)

?→A: ?→B: A→D: B→X: While B: B→C:

Fix 0: A - B Rnd( A ÷ B - . 5→B: C→A: WhileEnd:

C◢ D ÷ C◢ X ÷ C◢ Ans D

註1: 輸入的數值必須為正整數，否則答案錯誤。

註2: 若果不用計算約分，可將近最後的程式碼"D ÷ C◢ X ÷ C◢ Ans D"改為"XD÷C"即可。

例題: 找 370368及617280的最大公因數, 約分及最小公倍數。

按 Prog 1 再按 370368 EXE 617280 EXE (顯示最大公因數為123456)

EXE (顯示分子為 3) EXE (顯示分母為5)

EXE (顯示最小公倍數為1851840)

若果是第一個程式，計算完結後按 MODE 1返回正常計算模式

返回 CASIO fx-50FH 及 fx-50F PLUS 程式集