Разработка программы-игры "Крестики-нолики"
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
hen(400, 220, 'Победил игрок ' + zn);:= chr(32);;;;;
..11:j of
..4: ((a[i, j] = n) and (a[i - 1, j] = n) and (a[i - 2, j] = n) and (a[i - 3, j] = n) and (a[i - 4, j] = n)) or ((a[i, j] = n) and (a[i + 1, j] = n) and (a[i + 2, j] = n) and (a[i + 3, j] = n) and (a[i + 4, j] = n)) or ((a[i, j] = n) and (a[i, j + 1] = n) and (a[i, j + 2] = n) and (a[i, j + 3] = n) and (a[i, j + 4] = n)) or ((a[i, j] = n) and (a[i - 1, j + 1] = n) and (a[i - 2, j + 2] = n) and (a[i - 3, j + 3] = n) and (a[i - 4, j + 4] = n)) or ((a[i, j] = n) and (a[i + 1, j + 1] = n) and (a[i + 2, j + 2] = n) and (a[i + 3, j + 3] = n) and (a[i + 4, j + 4] = n)) then(400, 220, 'Победил игрок ' + zn);:= chr(32);;;
..11: ((a[i, j] = n) and (a[i - 1, j] = n) and (a[i - 2, j] = n) and (a[i - 3, j] = n) and (a[i - 4, j] = n)) or ((a[i, j] = n) and (a[i + 1, j] = n) and (a[i + 2, j] = n) and (a[i + 3, j] = n) and (a[i + 4, j] = n)) or ((a[i, j] = n) and (a[i, j - 1] = n) and (a[i, j - 2] = n) and (a[i, j - 3] = n) and (a[i, j - 4] = n)) or ((a[i, j] = n) and (a[i, j + 1] = n) and (a[i, j + 2] = n) and (a[i, j + 3] = n) and (a[i, j + 4] = n)) or ((a[i, j] = n) and (a[i - 1, j + 1] = n) and (a[i - 2, j + 2] = n) and (a[i - 3, j + 3] = n) and (a[i - 4, j + 4] = n)) or ((a[i, j] = n) and (a[i + 1, j - 1] = n) and (a[i + 2, j - 2] = n) and (a[i + 3, j - 3] = n) and (a[i + 4, j - 4] = n)) or ((a[i, j] = n) and (a[i + 1, j + 1] = n) and (a[i + 2, j + 2] = n) and (a[i + 3, j + 3] = n) and (a[i + 4, j + 4] = n)) or ((a[i, j] = n) and (a[i - 1, j - 1] = n) and (a[i - 2, j - 2] = n) and (a[i - 3, j - 3] = n) and (a[i - 4, j - 4] = n)) then(400, 220, 'Победил игрок ' + zn);:= chr(32);;;
..15:((a[i, j] = n) and (a[i - 1, j] = n) and (a[i - 2, j] = n) and (a[i - 3, j] = n) and (a[i - 4, j] = n)) or ((a[i, j] = n) and (a[i + 1, j] = n) and (a[i + 2, j] = n) and (a[i + 3, j] = n) and (a[i + 4, j] = n)) or ((a[i, j] = n) and (a[i, j - 1] = n) and (a[i, j - 2] = n) and (a[i, j - 3] = n) and (a[i, j - 4] = n)) or ((a[i, j] = n) and (a[i + 1, j - 1] = n) and (a[i + 2, j - 2] = n) and (a[i + 3, j - 3] = n) and (a[i + 4, j - 4] = n)) or ((a[i, j] = n) and (a[i - 1, j - 1] = n) and (a[i - 2, j - 2] = n) and (a[i - 3, j - 3] = n) and (a[i - 4, j - 4] = n)) then(400, 220, 'Победил игрок ' + zn);:= chr(32);;;;;
..15:j of
..4: ((a[i, j] = n) and (a[i - 1, j] = n) and (a[i - 2, j] = n) and (a[i - 3, j] = n) and (a[i - 4, j] = n)) or ((a[i, j] = n) and (a[i, j + 1] = n) and (a[i, j + 2] = n) and (a[i, j + 3] = n) and (a[i, j + 4] = n)) or ((a[i, j] = n) and (a[i - 1, j + 1] = n) and (a[i - 2, j + 2] = n) and (a[i - 3, j + 3] = n) and (a[i - 4, j + 4] = n)) then(400, 220, 'Победил игрок ' + zn);:= chr(32);;;
..11:((a[i, j] = n) and (a[i - 1, j] = n) and (a[i - 2, j] = n) and (a[i - 3, j] = n) and (a[i - 4, j] = n)) or ((a[i, j] = n) and (a[i, j - 1] = n) and (a[i, j - 2] = n) and (a[i, j - 3] = n) and (a[i, j - 4] = n)) or ((a[i, j] = n) and (a[i, j + 1] = n) and (a[i, j + 2] = n) and (a[i, j + 3] = n) and (a[i, j + 4] = n)) or ((a[i, j] = n) and (a[i - 1, j + 1] = n) and (a[i - 2, j + 2] = n) and (a[i - 3, j + 3] = n) and (a[i - 4, j + 4] = n)) or ((a[i, j] = n) and (a[i - 1, j - 1] = n) and (a[i - 2, j - 2] = n) and (a[i - 3, j - 3] = n) and (a[i - 4, j - 4] = n)) then(400, 220, 'Победил игрок ' + zn);:= chr(32);;;
..15: ((a[i, j] = n) and (a[i - 1, j] = n) and (a[i - 2, j] = n) and (a[i - 3, j] = n) and (a[i - 4, j] = n)) or ((a[i, j] = n) and (a[i, j - 1] = n) and (a[i, j - 2] = n) and (a[i, j - 3] = n) and (a[i, j - 4] = n)) or ((a[i, j] = n) and (a[i - 1, j - 1] = n) and (a[i - 2, j - 2] = n) and (a[i - 3, j - 3] = n) and (a[i - 4, j - 4] = n)) then(400, 220, 'Победил игрок ' + zn);:= chr(32);;;;;;;i := 1 to 15 doj := 1 to 15 doa[i, j] = 0 then inc(Zero);Zero = 0 then(400, 150, 'Ничья!');:= chr(32);;;.