Шахматы. Delphi!

[mugla]

ВЕТВЛЕНИЕ! Поле шахматной доски определяется парой натуральных чисел, каждое из которых не превосходит 8: первое число– номер вертикали (при счете слева направо), второе — номер горизонтали (при счете снизу вверх). Даны натуральные числа a, b, c,d, каждое из которых не превосходит 8.
а) на поле (a, b) расположена ладья. Определить, угрожает ли она полю (с, d);
б) на поле (a, b) расположен слон. Определить, угрожает ли он полю (c, d);
в) на поле (a, b) расположен король. Определить, может ли он одним ходом попасть на поле (с, d);
г) на поле (a, b) расположен ферзь. Определить, угрожает ли он полю (c, d)
д) на поле (a, b) расположена белая пешка. Определить, может ли она одним ходом попасть на поле (с, d):

Наброски уже есть, но код очень длинный и, бывают, с Королем проблемы, может есть решение короче 340 строк!

[BDA]

а) (a = c) or (b = d)
б) abs(a - c) = abs(b - d)
в) (abs(a - c) <= 1) and (abs(b - d) <= 1)
г) (a = c) or (b = d) or (abs(a - c) = abs(b - d))
д) (c = a) and (((b = 2) and (d - b = 2)) or (d - b = 1))

Сообщение от Utkin

В шахматах есть какое-то правило, что пешка может рубить проходящую мимо пешку, в случае если она еще не двигалась.

Предложенный мной вариант предполагает, что поле пусто. (просто уточнение)

[Utkin]

а) на поле (a, b) расположена ладья. Определить, угрожает ли она полю (с, d);

Если а совпадает с с, и/или b совпадает с d, то условие выполнено.

в) на поле (a, b) расположен король. Определить, может ли он одним ходом попасть на поле (с, d);

If (abs(a-c)<2) and (abs(b-d))<2 then действие

Как-то так.

д) на поле (a, b) расположена белая пешка. Определить, может ли она одним ходом попасть на поле (с, d):

Здесь составное условие. В шахматах есть какое-то правило, что пешка может рубить проходящую мимо пешку, в случае если она еще не двигалась.

[mugla]

а можешь также расписать когда не угрожают? У меня немного получилось, но я запутался

[mugla]

огромное спасибо

[mugla]

if (abs(a-c)<2) and ((abs(b-d))<2) then Edit25.Text:='Король угрожает полю cd!'; //Король

Как можно прописать, что он не угрожает?

[BDA]

...then Edit25.Text:='Король угрожает полю cd!' else Edit25.Text:='Не угрожает';

[mugla]

спасибо! и, последний вопрос, как прописать, что пешка угрожает? в 1 случаи получается, а во втором нет

[BDA]

А какие случаи Вы рассматриваете?

[mugla]

Бывает вот так получается if (a-1=c) and (b+1=d)then Edit27.Text:='Пешка угрожает полю cd!'