乱数について (ID:146013)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 Do oldlots = lots lots = lots2 lots2 = kansu(max) Loop Until lots2 <> oldlots '今回と前々回出た結果が等しくないときループ終了 これはまずいでしょう。 １回目のループ処理で、lots2 = oldlots だった場合 ２回目のループ処理に入るわけですが、 oldlots、lots、lots2 を書き換えるのはダメでしょう。。 実際に出たおみくじを変数に保存しないと・・ しかもこのプログラムでは、 今回と前々回の結果を比較していますが、仕様では ３連続同じ結果は出ない、ということだったと思いますが？ フローチャートを紙に書いて考えてみましたか？ プログラムをあれこれ書いても残念ながら解決しないと 思いますよ？急がば回れです。