Question

Помогите с PascalABC даны координаты двух фигур шахматной доски, координаты ферзя x1, y1 и координаты еще какой-то фигуры x2, y2 (целые числа, лежащие в диапазоне 1–8). Проверить истинность высказывания: «Ферзь за один ход срубит эту фигуру».

Answer 1

Т.к. ферзь может ходить как ему вздумается,то он может встать на 2х 2у и "срубить эту фигуру за один ход"

Answer 2

Для проверки истинности высказывания "Ферзь за один ход срубит эту фигуру" вам необходимо выполнить следующие шаги в PascalABC:

1. Сначала объявите переменные для хранения координат ферзя и другой фигуры:

var
  x1, y1, x2, y2: integer;

2. Затем введите значения координат ферзя и другой фигуры:

writeln('Введите координаты ферзя (x1, y1):');
readln(x1, y1);
writeln('Введите координаты другой фигуры (x2, y2):');
readln(x2, y2);

3. После этого проверьте, может ли ферзь срубить другую фигуру за один ход. Ферзь может срубить другую фигуру за один ход, если они находятся на одной вертикали, горизонтали или диагонали.

var
  canCapture: boolean;
begin
  canCapture := (x1 = x2) or (y1 = y2) or (abs(x1 - x2) = abs(y1 - y2));
  if canCapture then
    writeln('Ферзь может срубить эту фигуру за один ход')
  else
    writeln('Ферзь не может срубить эту фигуру за один ход');
end.

Этот код сначала проверяет, находятся ли фигуры на одной вертикали или горизонтали (x1 = x2 или y1 = y2), а затем проверяет, находятся ли они на одной диагонали (|x1 - x2| = |y1 - y2|). Если хотя бы одно из этих условий выполняется, переменная canCapture будет равна true, и будет выведено сообщение о том, что ферзь может срубить другую фигуру за один ход.

Надеюсь, это поможет вам в решении вашей задачи!