challenge シードを固定した乱数

シードを固定した疑似乱数を出力してください。
数回実行して、常に同じ結果が出力されることを確認してください。

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

Index

Feed

Other

Link

Pathtraq

loading...