Урок 4 задача 6, Pascal

Урок 4 задача 6

{
Поле шахматной доски определяется парой натуральных чисел, каждое из которых не превосходит 8.
По введенным координатам двух полей ( k, l ) и ( m, n ) выясните, 
угрожает ли ферзь, находящийся на поле ( k, l ), полю ( m, n )?

Входные данные
На вход программе подаются четыре целых числа k, l, m, n.

Выходные данные
Выведите YES или NO в зависимости от ответа на вопрос задачи.

Примеры
Входные данные
1 1 2 2 
Выходные данные
YES
Входные данные
1 1 2 3
Выходные данные
NO
}
{
    Возможны три варианта расположения ферзя F и других фигур: Q, R, S.
    Ферзь на диагонали с фигурой R.
    Ферзь на горизонтали с фигурой S.
    Ферзь на вертикали с фигурой Q.
          l     n
          |     | 
      1 2 3 4 5 6 7 8
    1 B W B W B W B W 
m - 2 W B W B W R W B
    3 B W Q W B W B W 
    4 W B W B W B W B
k - 5 B W F W B W S W 
    6 W B W B W B W B
    7 B W B W B W B W 
    8 W B W B W B W B
    
Если ферзь и фигура (R) на одной диагонали, то математический это означает, что
|k-m| = |l-n|. Это так, потому что диагональ расположена под углом 45 градусов и
приращение по горизонтали совпадает с приращением по вертикали.
В двух других случаях одна из координат ферзя совпадает с одной из координат фигуры
(по горизонтали или по вертикали), то есть k = m, если ферзь и фигура (S) на одной горизонтали
или l = n, если ферзь и фигура (Q) на вертикали.
}
var
k, l, m, n : integer;
begin
    readln (k, l, m, n );
    writeln ( ( abs ( k - m ) = abs ( l - n ) ) or ( k = m ) or (l = n ));
end.


run \| edit \| history \| help	0