pascalにおける乱数の組み込み方

締切済

質問者：rurur
質問日時：2007/11/06 23:49
回答数：1件

学校の課題で「1≦x≦ｎ、１≦y≦ｎの範囲の点(x，y)をランダム個数選び、(0，0)から見える点の個数を数えよ」という課題が出ました。
ｎは自由に設定し、入力する毎に選択する個数をランダムで決めxとyもその個数分選び、それらの中でGCD(x、y)＝１となる点の個数を数える問題です。
参考としてランダムを表すプログラム

program seed_example(output);
var i,x:integer;
begin
x := seed(wallclock);
writeln('乱数の作成:');
for i := 1 to 10 do begin
writeln(random(0));
end;
end.
が与えられました。(上式のxは問題のxと無関係)
今回の問題では、選ぶ個数を「ｈ」とすると
『ｈ := seed(wallclock);(以下略)』と設定しランダム化させxとyは
『for x(or y) := 1 to h do(以下略)』としてh個選ぶ。

このような考え方で合っているのでしょうか？
回答お待ちしております。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

このQ&Aに関連する最新のQ&A

「表乱数」に関するQ&A： c言語で正規乱数をヒストグラムで表す

さらに表示

「for とは」に関するQ&A： ...for can't you see?" の "for" とは何でしょう？"

回答 (1件)

最新から表示
回答順に表示

No.1

回答者： rabbit_cat
回答日時：2007/11/07 01:24

ｈ := seed(wallclock);

はおかしいです。これは、乱数の種を現在時刻で設定すると同時に、前回の乱数の種がhに返ります。
seedは乱数の種を設定するためのもので、実際に乱数を得るためのものではありません。

正しくは、
x := seed(wallclock);
とかして乱数の種を設定したあと、
h := random(0);
でランダムに個数を決めて、
さらに、
『for x(or y) := 1 to h do(以下略)』としてh個の点をランダムに選ぶ
にしないといけません。