Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Пожалуйста помогите решить задачу в Паскаль! Дана шахматная доска(8 на8 клеток). Король стоит на клетке с координатой (x,y). Определить, может ли король за один ход перейти на клетку с координатой ( x1,y1)
Координаты (x,y) (x1,y1) задаются с клавиатуры

Ответ оставил Гость

Координаты клеток - целые числа из диапазона от 1 до 8
var x,y,x1,y1:byte; b:boolean;
beginwriteln(x, y:);readln(x,y);
writeln(x1, y1:);readln(x1,y1);
b:=(abs(x1-x)=1)and(y1=y); //на 1 вертикали
b:=b or (abs(y1-y)=1)and(x1=x); //на 1 горизонтали
b:=b or (abs(x1-x)=1)and(abs(y1-y)=1);//рядом по диагонали
if b then writeln(Может) else writeln(Не может);
end.