Определить, бьет ли ферзь, стоящий на клетке (k, l), фигуру, стоящую на клетке (m, n) - VB
Формулировка задачи:
В программу вводятся натуральные числа k, l, m, n, которые являются координатами клеток шахматной доски. Каждое значение должно принадлежать диапазону 1—8. Программа должна определить, бьет ли ферзь, стоящий на клетке (k, l), фигуру, стоящую на клетке (m, n).
Решение задачи: «Определить, бьет ли ферзь, стоящий на клетке (k, l), фигуру, стоящую на клетке (m, n)»
textual
Листинг программы
Function бьет_ли_ферзь(k, l, m, n) As Boolean бьет_ли_ферзь = k = m Or l = n Or Abs(k - m) = Abs(l - n) End Function