• 締切済み

パスカル言語を用いた乱数利用について

パスカル言語を用いた乱数発生についての質問です。 パスカル言語を用いて0~100までの整数をランダムで10個出したいので、次のようにプログラムを組んだのですが、 欲しい乱数が出てきません。どこが間違えているか指摘していただけないでしょうか。よろしくお願いします。 var x : integer; p : real; {本当はintegerなのだろうが、使うよう指示されたrandom関数を使うとなるとrealしか受け付けなかった。} begin i := 0; x := seed(wallclock); while i <> 10 do begin i := i + 1; p := random(100); writeln('random(100)=',p) end end. ちなみに、これを出力した時の例はこのような感じです。 random(100)=6.8e-01 random(100)=6.4e-02 random(100)=9.3e-01 random(100)=1.3e-01 random(100)=7.2e-01 random(100)=8.8e-01 random(100)=9.1e-02 random(100)=9.5e-01 random(100)=3.6e-01 random(100)=7.9e-01 (※6.8e-01とは6.8*10^(-1)をのことです)

みんなの回答

noname#129118
noname#129118
回答No.1

乱数発生関数は、0~1のはず。 よって、その値を100倍して0~99にするんでないかい?

hige1049jp
質問者

お礼

ご回答ありがとうございます! 乱数発生関数は0~1とはしりませんでした(; ・`д・´) ご説明くださり本当にありがとうございます!

関連するQ&A

専門家に質問してみよう