兩數的最大公因數

兩數的最大公因數

程式編日期: 2009年9月8日

程式可以計算兩數的最大公因數。第一個程式較簡短，但程式需要在BASE模式執行，操作較不便(完結後需後按MODE 1返回正常計算模式)，第二個程式較長但在COMP模式執行，容許輸入的數值亦較大。

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

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

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

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

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

?→A: ?→B: Fix 0: While B: B→C:

A - B Rnd(A ÷ B - . 5→B: C→A:

WhileEnd: Norm 1: C

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

例題: 找48及60的最大公因數。

按 Prog 1 再按 48 EXE 60 EXE (顯示最大公因數為12)

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