老虎機(I) (Slot machine I)

更新日期: 2011年2月3日

程式 (64 bytes)

ClrMemory: While 1M-: Fix 0: Rnd( 9Ran#→A◢

Rnd( 9Ran#→B◢ Rnd( 9Ran#→C: Norm 1◢

ABC=73 => 92M+: 3((A=B)+(A=C)+(B=CM+:

M◢ WhileEnd

註1: 開始時的現金總值為0,顯示現金餘額時第一行會顯示M字,第二行的數值為金額。

註2: 若果拉出三個不同數值,金額減$1,若有果其中兩個數值相同,金額加$2,若果拉中三個相同數值(非777),金額加$8,若果拉中777,金額加$100。

 

操作方法:

按 Prog 1 (顯示第一個拉出的數值)

EXE (顯示第二個拉出的數值)

EXE (顯示第三個拉出的數值)

EXE (第一行有M字出現,顯示現在金額)

EXE (顯示另一次第一個拉出的數值)

EXE (顯示另一次第二個拉出的數值)

EXE (顯示另一次第三個拉出的數值)

EXE (第一行有M字出現,顯示現在金額)

........................

 

返回 CASIO fx-50FH、fx-3650P II、fx-50FH II及fx-50F PLUS 程式集

Free Web Hosting