Casio50 » fx-3x50P » Programs 程式集 » Games 遊戲 »
遊戲目的: 順序地找出四個給定的數字
| <COMP> |
|---|
| Lbl 2 : MemClear : Fix0 ◢ |
| Lbl 0 : 9 Ran# : Rnd : Ans → A : |
| 9 Ran# : Rnd : Ans → B : |
| 9 Ran# : Rnd : Ans → C : |
| 9 Ran# : Rnd : Ans → D : |
| ( A ≠ B ) ( A ≠ C ) ( A ≠ D ) ( B ≠ C ) ( B ≠ D ) ( C ≠ D ) = 0 => Goto 0 : |
| Lbl 1 : Fix0 : ? → X : 1 0 ( X = A M+ : X = B M+ : X = C M+ : X = D M+ : |
| A → X : B → A : C → B : D → C : X → D : |
| 0 → X : Y + 1 → Y : 4 > Y => Goto 1 : |
| Fix1 : . 1 M ◢ Ans ≥ 4 => Goto 2 : 0 → Y : M M– : Goto 1 |
| 173 Bytes |
| 一般操作 | 例子 |
|---|---|
| 啟動程式 | 按 Prog 1 |
| 開始新局 | [Fix0] 0 EXE |
| 輸入猜想 | 1 EXE 2 EXE 3 EXE 4 EXE |
| 顯示猜想結果. 在小數點前的數字代表有多少位置正確, 而在後的代表有多少內容正確 (但位置錯誤) |
[.1M] 2.1 EXE (其中兩個猜想為位正確, 及有一個之內容吻合, 但位置錯誤) |
| 如猜想全正確會重新開始 | ... [.1M] 4.0 EXE [Fix0] 0 EXE ... |
| A | #1 |
|---|---|
| B | #2 |
| C | #3 |
| D | #4 |
| X | Guess |
| Y | 0 |
| M | Corrects |