CASIO fx - 3650P 計算機遊戲

我都用緊9CASIO fx - 3650P
(L) Casio fx-3650P/fx-3950P及Truly SC-185 遊戲類程式 (Game program)
L1. 合24遊戲(I) (Arithmetic 24 I)
L2. 合24遊戲(II) (Arithmetic 24 II)
L3. 估數字 (Guess a number)
L4. 珠機妙算遊戲 (MasterMind)
L5. 老虎機 (Slot machine)
L6. 最後數值 (Last number)
L7. 估位置 (Guess a position)
L8. 數學操練 (Math Drill)
合24遊戲(I) (Arithmetic 24 I)
程式會隨機產生一個四位數字(不包括0的數字)，取每個位的數字(digit)作為合24遊戲的四個數字，再利用加、減、乘及除的方法計算出24的答案，最快想出方法者得勝。
程式編寫日期: 2006年12月20日
注意: 10x是按shift log。
程式(36 bytes)
Mem clear: Fix 0: Lbl 0: 9Ran# + . 5:
Rnd: Ans10xAM+: A + 1→A:
A≠4 => Goto 0: Norm 1: M
操作方法: 執行程式按 Prog 1 ，這時會隨機顯示一個四位數字。
註1: 合24遊戲是有可能會無解，一般來說若果四個非零數字完全不同，遊戲是有解答(除1678及3467的組合外)。
註2: 有關合24遊戲的解答，可以參考以下網址:
http://www.semple.edu.hk/mpn185/misc/math24/worksheet/main/worksheet.pdf
估數字 (Guess a number)
程式會產生一個 0至99的整數，遊戲的目的是要找出這個數字，每次估數字時，若果估值較大時會顯示1的提示，若果估值較少會顯示 - 1的提示，若果估的數字正確，會顯示所用的總次(六十進數的值)。
注意: 10x是按shift log，Mo 是按 ALPHA M+ o,,,
程式 (40 bytes)
Mem clear: Ran# 10x 3→B: Lbl 0: ?→A: 1M+:
A>B => 1◢ B>A => -1◢ A-B => Goto 0: Mo
操作方法:
1. 先按 Prog 1 執行程式
2. 再輸入估計的數值 EXE 這時會顯示 1 或 - 1 或 一個六十進數的數值
3. 若果未估中數字，再按 EXE ，再重返步驟2，直至估中數值為止。