Question

Задача на Pascal Требуется определить, бьет ли конь, стоящий на клетке с указанными координатами (номер строки и номер столбца), фигуру, стоящую на другой указанной клетке. Входные данные Вводятся четыре числа: координаты коня и координаты другой фигуры. Все координаты - целые числа в интервале от 1 до 8. Выходные данные Программа должна вывести слово YES, если конь может побить фигуру за 1 ход, в противном случае вывести слово NO. входные данные 1 1 3 2 выходные данные YES входные данные 1 1 3 3 выходные данные NO

Answer 1

Var
    x1, y1, x2, y2: integer;

begin
    readln(x1, y1, x2, y2);
    
    if abs(x1 - x2) + abs(y1 - y2) = 3 then
        writeln('YES')
    else
        writeln('NO');
end.

Answer 2

Привет! Вот решение задачи на Pascal:

arduinoCopy code
program ChessKnight;
var
  x1, y1, x2, y2: integer;
begin
  readln(x1, y1, x2, y2);
  if ((abs(x2 - x1) = 2) and (abs(y2 - y1) = 1)) or ((abs(x2 - x1) = 1) and (abs(y2 - y1) = 2)) then
    writeln('YES')
  else
    writeln('NO');
end.

В этой программе мы считываем четыре числа - координаты коня и фигуры, а затем проверяем, может ли конь побить фигуру за один ход. Если да, то выводим "YES", иначе - "NO".

Чтобы проверить, может ли конь побить фигуру, мы используем две формулы:

1. Если разница между x-координатами коня и фигуры равна 2, а разница между y-координатами равна 1, то конь может побить фигуру.

2. Если разница между x-координатами коня и фигуры равна 1, а разница между y-координатами равна 2, то конь также может побить фигуру.

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