Создайте программу в языке программирования Pascal, написанная кодом, где учитывается, что шахматная доска имеет размер

  • 41
Создайте программу в языке программирования Pascal, написанная кодом, где учитывается, что шахматная доска имеет размер 8х8 и шахматные фигуры могут двигаться в соответствии с определенными правилами. Например, король может ходить на одну соседнюю клетку по вертикали, горизонтали и диагонали. Задача состоит в том, чтобы определить, может ли король сделать ход из начальной клетки с координатами (x1, y1) на клетку с координатами (x2, y2) на стандартной шахматной доске. Входные данные: первая строка вводного файла `input.txt` содержит два целых числа x1 и y1 - начальные координаты короля. Во второй строке содержатся конечные координаты.
Тайсон
65
Конечно, вот решение задачи на языке программирования Pascal:


Program ChessKingMovement;
Var x1, y1, x2, y2: Integer;
Begin
writeln("Введите начальные координаты короля (x1 y1): ");
readln(x1, y1);
writeln("Введите конечные координаты короля (x2 y2): ");
readln(x2, y2);

// Проверяем, может ли король сделать ход из начальной клетки в конечную
if (abs(x2 - x1) <= 1) and (abs(y2 - y1) <= 1) then
writeln("Король может сделать ход из клетки (", x1, ",", y1, ") в клетку (", x2, ",", y2, ").")
else
writeln("Король не может сделать такой ход.");

End.


Этот код позволяет определить, может ли король сделать ход из начальной клетки на клетку с заданными координатами на шахматной доске. Пользователю предлагается ввести начальные и конечные координаты, после чего программа проверяет возможность такого хода по правилам шахматной игры.

Если разница между координатами по горизонтали и вертикали не превышает 1, то король может совершить ход на заданную клетку. В противном случае выводится сообщение о невозможности такого хода.

Надеюсь, это объяснение и решение поможет вам понять задачу о ходе короля на шахматной доске. Если у вас есть еще вопросы или потребуется дополнительное объяснение, не стесняйтесь обращаться!