Question

Определить, может ли шахматный конь за один ход попасть из клетки с координатами (х1,у1) в клетку с координатами (х2,у2). на Pascal

Answer 1

var x1, x2, y1, y2: integer;

begin

read(x1, y1, x2, y2);

if (abs(x1 - x2) = 1) and (abs(y1 - y2) = 2) or (abs(x1 - x2) = 2) and (abs(y1 - y2) = 1) then

writeln('Может')

else

writeln('Не может');

end.

Answer 2

Да, конечно, на языке Pascal можно написать программу для определения того, может ли шахматный конь совершить ход из клетки с координатами (х1, у1) в клетку с координатами (х2, у2). Шахматный конь может перемещаться в форме буквы "L" — два клеточных шага в одном направлении и один клеточный шаг перпендикулярно к нему.

Вот пример кода на Pascal, который проверяет возможность хода шахматного коня:

pascalCopy code
program ChessKnightMove;

function IsKnightMove(x1, y1, x2, y2: Integer): Boolean;
var
  dx, dy: Integer;
begin
  // Вычисляем разницу по координатам по модулю
  dx := Abs(x1 - x2);
  dy := Abs(y1 - y2);

  // Проверяем условия возможности хода коня
  if (dx = 1) and (dy = 2) then
    IsKnightMove := True
  else if (dx = 2) and (dy = 1) then
    IsKnightMove := True
  else
    IsKnightMove := False;
end;

var
  x1, y1, x2, y2: Integer;
begin
  WriteLn('Введите координаты начальной клетки (x1, y1):');
  ReadLn(x1, y1);

  WriteLn('Введите координаты конечной клетки (x2, y2):');
  ReadLn(x2, y2);

  if IsKnightMove(x1, y1, x2, y2) then
    WriteLn('Шахматный конь может совершить ход из (', x1, ',', y1, ') в (', x2, ',', y2, ').')
  else
    WriteLn('Ход шахматного коня из (', x1, ',', y1, ') в (', x2, ',', y2, ') невозможен.');
end.

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