Пожалуйста помогите решить задачу в Паскаль! Дана шахматная доска(8 на8 клеток). Король стоит на клетке с координатой (x,y). Определить, может ли король за один ход перейти на клетку с координатой ( x1,y1) Координаты (x,y) (x1,...
Пожалуйста помогите решить задачу в Паскаль! Дана шахматная доска(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.
Не нашли ответ?
Похожие вопросы