プログラム（BASIC） 教えてください

質問

（１） INPUT文で入力した整数 k に対し， 3, 5, 7, 9 のいずれかの値をランダムに等確率で発生し，改行せず横に続けて k個 表示させるプログラム

（２）初項 a ，公差 r ，長さ n の等差数列 a, a+r, a+2r, ..., a+(n-1)r のいずれかの値を等確率で発生させるためには，乱数をどのような式で作れば良いか？ INPUT文で与えられた a, r, n, k に対して，この等差数列のいずれかの値をランダムに k 個表示させるプログラム

（１）は0,2,4,6を考えてから＋3すればいいと思うのですがランダムに0,2,4,6を表示するプログラムの仕方が分かりません。
10 INPUT k
20 FOR L=1 TO k
30 RANDOMIZE
40 PRINT INT(　　　)+3;
50 NEXT L
60 END

解説があるとありがたいです。

回答No.1

yaritsusozai · ベストアンサー

＞0,2,4,6を考えてから+3すればいい…

既にほぼ正解に辿り着いていると思われますが。

(1)
RND(1)*4で0～4未満の乱数を取得。
↓
INTで整数化…[0,1,2,3]
↓
2を掛ける…[0,2,4,6]
↓
3を足す…[3,5,7,9]

なので、
INT(RND(1)*4)*2+3

(2)
あらかじめ、配列変数Xを宣言しておく。

FOR i=1 TO n
X(i)=a+((n-1)*r)
NEXT i
FOR j=1 TO k
PRINT X(INT(RND(1)*n)+1)
NEXT j

配列Xに所定の数値を格納する処理をn回繰り返し、1からnまでの乱数で、そのうちのいずれかひとつをランダムに選定し表示、という処理をk回繰り返します。

但し、nが1以上の整数であること。

入力者が、0とか0.5とかをINPUTしてしまう恐れがある場合、それはそれで別に判定文を設けて例外処理をします。
また、n=1の時、答えはa一択になるので、それがイヤな場合も、併せて事前処理をしておきます。

（例:IF n<2 THEN 変数をリセットして再度INPUT行へ飛び、入力のやり直しを促す、等）

お礼

丁寧な解説、ありがとうございました。