兩數的最大公因數

程式編日期: 2006年6月21日

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

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

程式需要在 BASE 模式下執行,因此在輸入程式前請先按 Mode Mode 3 進入BASE模式。

Dec: ?→A: ?→B: Lbl 0: B→C:

A - A ÷ B × B→B => C→A => Goto 0: C

 

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

?→A: ?→B: Lbl 0: B→C: A ÷ B - . 5: Fix 0: Rnd:

Norm 1: A - Ans B→B => C→A => Goto 0: C

 

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

 

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

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

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

 

返回 fx-3650P及SC-185程式集

 

Free Web Hosting