Casio50 » fx-3x50P » Programs 程式集 » Games 遊戲 »
遊戲目的:在最少的嘗試內抓到CPU
<COMP> |
---|
Fix0 : 9 Ran# – 5 : Rnd : Ans → X ◢ |
9 Ran# – 5 : Rnd : Ans → Y ◢ |
9 Ran# – 5 : Rnd : Ans → A ◢ |
9 Ran# – 5 : Rnd : Ans → B ◢ |
Lbl 0 : ? → D : 1 M+ : |
D ÷ 3 → D : Rnd : 3 ( Ans – D → C : C ≥ 0 => C = 0 → C : |
X + C → X ◢ 0 → C : |
D – √ 3 : Rnd : Y + Ans → Y ◢ |
2 ( Ran# – . 5 : Rnd : A + Ans → A ◢ |
2 ( Ran# – . 5 : Rnd : B + Ans → B ◢ |
( X = A ) ( Y = B ) = 0 => Goto 0 : Norm1 |
152 Bytes |
一般操作 | 例子 | |||||||||
---|---|---|---|---|---|---|---|---|---|---|
啟動程式 | 按 Prog 1 | |||||||||
顯示你的位置 | -3 EXE 2 EXE | |||||||||
顯示CPU位置 | 2 EXE 4 EXE | |||||||||
輸入移動方位, 如下圖:
|
[D?] 4 EXE | |||||||||
如你與CPU的位置相同會顯示「Norm 1」, 表示勝利 |
A | CPU.X |
---|---|
B | CPU.Y |
C | You.MoveX |
D | PosID / 3 |
X | You.X |
Y | You.Y |
M | TotalMoves |