Question

Составьте алгоритм проверки, бьют ли друг друга два ферзя, если известны их координаты на шахматном поле;

Answer 1

Var
   x1,x2:char;
   y1,y2:byte;
Begin
WriteLn('Координаты белого ферзя:');
Write('           x(a..h) = ');ReadLn(x1);
Write('           y(1..8) = ');ReadLn(y1);
WriteLn('Координаты чёрного ферзя:');
Write('           x(a..h) = ');ReadLn(x2);
Write('           y(1..8) = ');ReadLn(y2);
y1:=Abs(y1-y2);
y2:=Abs(Ord(x1)-Ord(x2));
if (y2=0)or(y1=0)or(y2-y1=0)or(y1<2)and(y2<2) then WriteLn('Бьёт')
else WriteLn('Не бьёт');
End.