拍7遊戲

程式由網友 kith 提供。

網友提供程式日期: 2009年11月13日

程式(118 bytes)

For 1→A To 7E3: Fix 0: Rnd(A％- . 5→Y: Rnd(A÷10-.5:

(Y≠7)(Ans-10Y≠7)(A-10Ans≠7)(A≠7Rnd(A÷7→B:

If A-2Rnd(A÷2: Then Norm1: 0→X: ?→X: B => X-A => Break:

X => B=0 => Break: Else Norm 1: B => A◢ B=0 => 0◢ IfEnd: Next

遊戲玩法：
由1開始數，玩家和計算機輪流報數。凡數字含有7或是7的倍數，便輸入0。

例如:

先輸入1 EXE (顯示2) 3 EXE (顯示4) 5 EXE (顯示6) EXE 或0 EXE (顯示8) ......

到7000時會結束遊戲

　

註: 若想隨機報數，則可將 If A-2Rnd(A÷2 改成 If .5>Ran#

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