[GoryachevEugeneS]

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

Осталось сделать для Короля и Пешки. Помогите плиз!

[M.A.D.M.A.N.]

В чем проблема то? Пешка ходит на одну клетку вперед (на первом ходу через одну), король на одну клетку в любую сторону.

[GoryachevEugeneS]

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

А как прописать, когда не угрожает?

[Mrak]

не забудьте про взятие на проходе

[Pyro]

Код:

if .. then 'угр' else 'нет';
//или
if .. then 'угр';
if not(..) then 'нет';

почему-то сказано что пешка именно белая, ещё вместо кучи edit-ов для вывода можно использовать один memo

[M.A.D.M.A.N.]

Код:

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