記憶遊戲(I)

程式由網友 tonylcc1995 提供。

更新日期: 2011年2月3日

注意: E 是按 EXP 。

程式一(47 bytes)

ClrMemory: While A=BM+: M◢ Fix 0:

Rnd( ( . 5 + Ran# )(B + E3MM→B:

Norm 1◢ ?→A: WhileEnd:

M◢ B◢ A ◢ 0^-1

程式二(110 bytes，可設定機會次數及開始時的關數)

ClrMemory: While (C≦0) + (C≧21: ?→C: WhileEnd:

While (M≦0) + (M≧E3: ?→M: WhileEnd: 1M-:

Lbl 0: C≦0 => 0^-1: 0→B: 1M+: M◢ Fix 0:

Rnd( ( . 5 + Ran# )(B + E3MM→B: Norm 1◢ ?→A:

A=B => Goto 0: C-1→C◢ M◢ B◢ A◢ Goto 0

程式一遊戲玩法及示範:

按 Prog 1 (這時顯示關數M為1)

EXE (這時會顯示一個記憶數字，假設是123)

EXE (顯示A?表示輸入要記憶數字)

123 EXE (輸入記憶數字，由於正確再顯示新關數M為2)

EXE (顯示另一個記憶數字，假設是4567)

EXE (顯示A?表示輸入要記憶數字)

4568 EXE (輸入記憶數字，由於答錯顯示M為2(顯示錯誤時的關數))

EXE (顯示B及4567(記憶數字) )

EXE (顯示A及4568(你輸入的數字) )

EXE (顯示Math ERROR表示遊戲結束)

程式二遊戲玩法及示範:

按 Prog 1

再按 2 EXE (輸入2表示只有2次機會(你可以輸入1至20的數值))

1 EXE (輸入1表示開始時的關數為1(你可以輸入1至999的數值)，這時顯示關數M為1)

EXE (這時會顯示一個記憶數字，假設是123)

EXE (顯示A?表示輸入要記憶數字)

123 EXE (輸入記憶數字，由於正確再顯示新關數M為2)

EXE (顯示另一個記憶數字，假設是4567)

EXE (顯示A?表示輸入要記憶數字)

4568 EXE (輸入記憶數字，由於答錯顯示C為1(即還有多1次機會))

EXE (顯示M為2(顯示錯誤時的關數))

EXE (顯示B及4567(記憶數字) )

EXE (顯示A及4568(你輸入的數字) )

EXE (顯示遊戲的關數M為2)

EXE (顯示另一個記憶數字，假設是7653)

EXE (顯示A?表示輸入要記憶數字)

7633 EXE (輸入記憶數字，由於答錯顯示C為0(即沒有機會了))

EXE (顯示M為2(顯示錯誤時的關數))

EXE (顯示B及7653(記憶數字) )

EXE (顯示A及7633(你輸入的數字) )

EXE (顯示Math ERROR表示遊戲結束)

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