シードを固定した乱数
Posted feedbacks - BASIC
伝統的BASICです。N88互換のつもりですが、ActiveBasic 2.62で動作確認しています。手元のリファレンスマニュアルを参考にN88でダメな構文は避けているつもりです。可読性のため、インデントしていますがご容赦ください。
RANDOMIZEが種を指定する命令語で、RNDが乱数を取得する関数です。それぞれ、Cでいうところのsrandとrandですね。なお、PRINT RND(1)の後ろのセミコロンは、ここで改行せず空白を置くという書式指定です(すなわち、シード固定の乱数という本題とは関係ありません)。
1 2 3 4 5 6 7 | 10 FOR I = 0 TO 3
20 RANDOMIZE 42
30 FOR J = 0 TO 5
40 PRINT RND(1);
50 NEXT J
60 PRINT
70 NEXT I
|


ところてん
#9451()
Rating1/1=1.00
[ reply ]