四目並べ7

右斜め上方向へ四つ同じ色の石が並んでいるかどうか。

さらに右斜め下方向の判定。

縦方向へ四つ同じ色の石が並んでいるかどうか。

テストプレイ。エラーメッセージは Subscript out of range 。配列変数が上限をオーバーしてしまったようだ。

デバッグ。右斜め下方向と縦方向は4〜1列目ではなく3〜1列だった。


テストプレイ。どうやら正常に作動しているようだ。

これでコネクトフォーの勝敗をプチコン3号が自動的に判定するようになった。

四目並べ6

forループを使って横に四つ同じ色の石が並んでいるかどうかを判定。たとえば横に四つ「1」が並んでいたら「w=1」を返す。

メインルーチンもこのように書き加えた。変数ｗが0でなければ「プレイヤーwの勝利」を表示してプログラムを終了する。

テストプレイ。どうやら正常に作動しているようだ。この場合プレイヤー１が横に四つ並べて勝利。