Boolean38. Даны координаты двух различных полей шахматной доски $$x_1$$, $$y_1$$, $$x_2$$, $$y_2$$ (целые числа, лежащие в диапазоне 1–8). Проверить истинность высказывания: «Слон за один ход может перейти с одного поля на другое».
Решение:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 |
program Boolean38; var x1,y1,x2,y2: Integer; begin Write('Введите 1 координату 1 клетки шахматной доски: '); Readln(x1); Write('Введите 2 координату 1 клетки шахматной доски: '); Readln(y1); Write('Введите 1 координату 2 клетки шахматной доски: '); Readln(x2); Write('Введите 2 координату 2 клетки шахматной доски: '); Readln(y2); if Writeln(abs(x1-x2)=abs(y1-y2)); end. |
Другие задачи из раздела Boolean можно посмотреть здесь.
abs(x1-x2)=abs(y1-y2)
Да, так на много красивее изменил, было
if Writeln(((x1-x2)=(y1-y2)) or ((x1-x2)=(-1)*(y1-y2)));
стало:
if Writeln(abs(x1-x2)=abs(y1-y2));