бъет ли ферзь, установленный в поле (k, l) поле (m, n).

[Antua]

Здравствуйте!
Я первый раз обращаюсь за помощью, не откажите...
Всегда шахматы терпеть не могла, так вот еще и задача попалась
в моем варианте... Но что ферзь ходит во все стороны знаю.
Если это возможно, с комментарием.
Задания на VBA (Excel):
Поле шахматной доски определяется парой натуральных чисел, первое из которых задает номер вертикали, а второе – номер горизонтали. Даны натуральные числа k, l , m, n. Требуется выяснить: бъет ли ферзь, установленный в поле (k, l) поле (m, n).


Написать по-русски (прописью)

Спасибо всем кто ответит

Ой, я в чью-то тему влезла, а как удалить не знаю

[Аватар]

1. k=m - на одной вертикали
2. l=n - на одной горизонтали
3. |k-m|=|l-n| - на одной "диагонали"

[evg_m]

если выполнено k=m то фигуры на одной горизонтали
l=n на одной вертикали
k-l = m-n на одной из диагоналей
k+l = m+n на другой диагонали

если выполнено хотя бы одно из условий то бъет
если не выполнено ни одно условие то нет.

[Antua]

Спасибо, ребята!
Обоим жму на весы (как учил один знакомый)

[ros.pro]

есть программа проверки выполнения правильности хода конем. Принцип такой же:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
  turn, letter1, letter2, abc, num: string;
  number1, number2, n1, n2: integer;
begin
  // Проверка правильности хода конем
  assign(input, 'input.txt'); reset(input);
  assign(output, 'output.txt'); rewrite(output);

  abc:='ABCDEFGH';
  num:='12345678';

  read(turn);

  // Проверка на количество символов считанного хода
  if length(turn) < 5 then begin write('ERROR'); exit; end;

  // Проверка на корректность символов
  if (pos(turn[1], abc) = 0) or (pos(turn[2], num) = 0) or (turn[3] <> '-') or (pos(turn[4], abc) = 0) or (pos(turn[5], num) = 0) then begin write('ERROR'); exit; end;

  letter1:=turn[1];
  number1:=strtoint(turn[2]);

  letter2:=turn[4];
  number2:=strtoint(turn[5]);

  n1:=pos(turn[1], abc);
  n2:=pos(turn[4], abc);

  // Определяем направление хода. По горизонтали или вертикали
  // По вертикали. Разница между позициями букв не может быть больше 1. Так же проверяем разность цифр, она не может быть больше 2-х
  if ((n1-n2 = 1) or (n1-n2 = -1)) and ((number1 - number2 = 2) or (number1 - number2 = -2)) then begin write('YES'); exit; end
  // Ход по горизонтали. Проверяем разность цифр, она не может быть больше 1
  else if ((n1-n2 = 2) or (n1-n2 = -2)) and ((number1 - number2 = 1) or (number1 - number2 = -1)) then begin write('YES'); exit; end
  // Если эти условия не подходят, значит конем так не ходят =)
  else write('NO');

end.

[vova_]

Сообщение от Аватар

1. k=m - на одной вертикали
2. l=n - на одной горизонтали
3. |k-m|=|l-n| - на одной "диагонали"

а в коде использовать условие if (k-m)*(l-n)*(abs(k-m)-abs(l-n))<>0 then ...