情報科学概論(再履修)
Rクラス 小テスト 2005.01.28

Back

以下の設問の解答は所定の解答用紙に記入 して添付書類として提出して下さい.その際に,ファイル名 を必ず自分にあったものに変更することと学生番号と氏名を記入すること を忘れないようにして下さい.

提出は合図があるまで勝手にしないこと!指示に従って 作業を行うこと.


次のような条件で乱数を発生させる.発生させた乱数を要素として持つ配列を生 成するスクリプトを作成せよ.


解答例

ary = []

ary[0] = rand(100) + 1

i = 1

until ary[i-1] * ary[i-1] == 1
  ary[i] = (rand(ary[i-1]+(-1)**i) + 1) * (-1)**i
  i += 1
end

p ary

#別解

ary = []

ary[0] = rand(100) + 1

i = 1

while ary[i-1] * ary[i-1] > 1
  ary[i] = (rand(ary[i-1]+(-1)**i) + 1) * (-1)**i
  i += 1
end

p ary


Back