Створіть гру «Хрестики-нолики». Алгоритм роботи:
1. Відкрийте середовище програмуванн IDLE. Створіть новий файл.
2. Імпортуйте модуль random.
3. Створіть функцію для відображення ігрового поля, для цього створіть
змінну із списком з 10 рядків, в ньому рядок з індексом 1 відповідає
клітинці 1 ігрового поля. Рядок з індексом нуль ігнорується.
4. Створіть функцію, що буде надавати гравцю право вибору літери Х чи
О.
5. Створіть функцію, що що буде використовувати randint(), для
випадковго вибору того хто буде ходити першим.
6. Створіть функцію для розміщення міток на ігровому полі. Тут
використайте посилання на спискі:
def makeMove(board, letter, move):
board[move] = letter
7. Створіть функцію, для перевірки чи не виграв гравець, по суті це буде
довга інструкція return.
8. Створіть функцію для дублювання даних з ігрового поля.
9. Створіть фукнцію для виявлення можливості ходя відповідно до
ситуації на ігровому полі.
10. Створіть функцію, яка дозволить запропонувати гравцю ввести номер
клітинки, в яку він хоче зробити наступний хід.
11. Створіть функцію вибора ходу зі списку для комп’ютера.
12. Створіть функцію, що надасть можливість комп’ютеру виявляти якою
літерою грає гравець, і відповідну іншу літеру займає комп’ютер і
зберігає її у змінній.
13. Створіть перевірку чи зможе комп’ютер перемогти зробивши
наступний крок. Використайте цикл for, та розгалуження.
14. Створіть перевірку чи зможе гравець виграти, якщо зробе наступний
крок.
15. Створюємо перевірку чи зайняті кутові, центральна та бокові клітинки
(в порябку черги)
16. Створіть функцію для перевірки чи заповнене поле.
17. Створіть ігровий цикл.
a. Створіть рядок привітання
b. Створіть цикл while, який буде виконуватись доти доки
управління не буде передано інструкції break
c. Гравець вибирає літеру, якою він буде грати
d. Відповідна функція випадковим чином обирає того, хто буде
виконувати перший крок
e. Створіть цикл, який буде «кидатися» між кодом ходу гравця і
кодом ходу комп'ютера до тих пір, поки відповідній змінній не
буде присвоєне значення True.
f. Запропонуйте гравцю зіграти знову.
var a,n,i,j,s:integer;
begin
writeln('Введите количество цифр в числе');
readln(n);
for i:=1 to n do begin
writeln('Введите ',i,' цифру из ',n);
readln(a);
for j:=1 to n-i do a:=a*10;
s:=s+a;
end;
writeln('Натуральное число: ',s);
end.
Тестовое решение
Введите количество цифр в числе
5
Введите 1 цифру из 5
9
Введите 2 цифру из 5
2
Введите 3 цифру из 5
7
Введите 4 цифру из 5
3
Введите 5 цифру из 5
1
Натуральное число: 92731
Решение №2 Если очень надо использовать массив (хотя на мой взгляд совсем не нужно)
//PascalABC.NET (версия 3.1, сборка 1198)
var a,n,i,j,s:integer;
mas:array[1..10]of integer;
begin
writeln('Введите количество цифр в числе');
readln(n);
for i:=1 to n do begin
writeln('Введите ',i,' цифру из ',n);
readln(mas[i]);
a:=mas[i];
for j:=1 to n-i do a:=a*10;
s:=s+a;
end;
writeln('Натуральное число: ',s);
end.
Тестовое решение
Введите количество цифр в числе
5
Введите 1 цифру из 5
5
Введите 2 цифру из 5
4
Введите 3 цифру из 5
3
Введите 4 цифру из 5
2
Введите 5 цифру из 5
2
Натуральное число: 54322