next up previous contents
Next: Sample Program 8b Up: 配列を用いる Previous: goto による分岐   Contents

Sample Program 8a

さて前節の配列、乱数、およびgotoを用いて、3枚のカードを引くゲームを作ってみましょう。 以下は、まず、xを配列であると宣言します。 その後、120行目で、rndを用いて乱数を発生させ、それをint関数を使って整数化したものを配列xの各要素: x(1)、x(2)、x(3)に格納します。最後に選ばれた3枚のカードの数を印字します。


\begin{code}
100 dim x(3)
105 randomize
110 for i=1 to 3
120 x(i) = int( 7*rnd(1)+1 )
130 next i
140 print x(1);x(2);x(3)
990 end
\end{code}



Takeyoshi Nagai 2013-10-07