互換ベーシックN88について

質問

互換ベーシックのプログラミングで、「正方形の容器の中に円形の分子が飛び回っている。分子一個が容器の中を飛び回ってい様子を作れ。」という課題が出たのですが、このプログラミングを何方か教えてください。分子の半径は3で、容器の左上の座標を（150、40）右下の座標を（480、360）とするとLINE(150、40)-(480,360),4,Bという命令で箱が作れるそうです。

回答No.2

paspas · ベストアンサー

基本的にはNo.1のかたのご指摘通りでよいのではないでしょうか？
　少し補足しますと、

１．容器の表示
質問文にあるようにline命令でboxを描画します。

２．分子をボックス内の適当な位置に表示する
分子の中心座標をｘ、ｙであらわすとすると、分子の半径は３ですから　ｘは150+3 から480-3 の間の適当な値を取ります。ｙは40+3から360-3の間の適当な値を取ります。
（ｘ、ｙの初期値は乱数で決めればよいと思います）

３．現在の分子位置にある分子の表示を消してください。
circle命令を用いて、バックグランド色で描画すれば消えます。

４．分子の移動方向を決めてください。
分子の変化分を　ｄｘ、ｄｙとしたとき次のポイントは　ｘ＋ｄｘ、ｙ＋ｄｙで決定されます。
ｄｘ、ｄｙの初期値も適当に決めればよいと思います。

新しいｘが　150+3より小さいか480-3より大きくなれば衝突です。
また新しいｙが40+3より小さいか360-3より大きくなっても衝突です。
衝突した場合はｘ、ｙそれぞれ枠からはみ出さないようにｘ、ｙの値を調整し表示してください。
circle命令で表示します。
xの衝突検知したとき、ｄｘの符号を反転すれば、次回反対方向に動きます。
ｙの衝突検知したとき、ｄｙの符号を反転すれば次回からｙも反対方向に動きます。

衝突検知時に、ｄｘ、ｄｙの値も乱数で少し変化を付けるとおもしろい方向に反射するかもしれません。

５．表示を目視するため少し時間をおく
描画後にすぐに絵を消したら見苦しい絵になるかもしれないので、感覚的な時間でかまいませんが、時間待ちを入れた方がよいでしょう。

６．３番にもどります。

だいたいこんな感じでしょうか？
参考になれば幸いです。

回答No.1

papi-pu

容器を表示する
分子を移動する
分子が壁に当たって反射する
分子を表示する
分子を移動するに戻る

というふうに分けて考えてみてはいかが？