Держи, использовал вектор, так удобнее, надеюсь, что уже вектор.
Объяснение:
использовать Чертежник
алг
нач
сместиться на вектор (1,0)
опустить перо
сместиться на вектор (0,2)
сместиться на вектор (0,-1)
сместиться на вектор (1,1)
сместиться на вектор (-1,-1)
сместиться на вектор (1,-1)
поднять перо
сместиться на вектор (1,0)
опустить перо
сместиться на вектор (0,2)
сместиться на вектор (1,0)
сместиться на вектор (0,-2)
сместиться на вектор (-1,0)
поднять перо
сместиться на вектор (2,0)
опустить перо
сместиться на вектор (1,2)
сместиться на вектор (1,-2)
поднять перо
сместиться на вектор (1,0)
опустить перо
сместиться на вектор (0,2)
сместиться на вектор (1,0)
сместиться на вектор (0,-2)
сместиться на вектор (-1,0)
поднять перо
сместиться на вектор (2,0)
опустить перо
сместиться на вектор (0,2)
сместиться на вектор (0,-1)
сместиться на вектор (1,1)
сместиться на вектор (-1,-1)
сместиться на вектор (1,-1)
поднять перо
сместиться на вектор (1,0)
опустить перо
сместиться на вектор (0,2)
сместиться на вектор (1,0)
сместиться на вектор (0,-2)
сместиться на вектор (-1,0)
поднять перо
сместиться на вектор (2,0)
опустить перо
сместиться на вектор (1,2)
сместиться на вектор (1,-2)
кон
function Knight(x1, y1, x2, y2: integer): Boolean;
{ Возвращает True, если возможен переход с (x1,y1) на (x2,y2) }
begin
if abs(x2 - x1) = 2 then Knight := (abs(y2 - y1) = 1)
else
if abs(x2 - x1) = 1 then Knight := (abs(y2 - y1) = 2)
else Knight := false
end;
function Queen(x1, y1, x2, y2: integer): Boolean;
{ Возвращает True, если возможен переход с (x1,y1) на (x2,y2) }
begin
Queen := (x1 = x2) or (y1 = y2) or (abs(x2 - x1) = abs(y2 - y1))
end;
var
xk, yk, xq, yq: integer;
begin
Write('Укажите через пробел координаты коня [1..8]: ');
Readln(xk, yk);
Write('Укажите через пробел координаты ферзя [1..8]: ');
Readln(xq, yq);
if Knight(xk, yk, xq, yq) then Writeln('Конь бьет ферзя')
else
if Queen(xq, yq, xk, yk) then Writeln('Ферзь бьет коня')
else Writeln('Фигуры не угрожают друг другу')
end.