Или используй расширенный поиск.

НА ПАСКАЛЕ ABC: Требуется определить, бьет ли конь, стоящий на клетке с указанными к??ординатами

НА ПАСКАЛЕ ABC: Требуется определить, бьет ли конь, стоящий на клетке с указанными к??ординатами (номер строки и номер столбца), фигуру, стоящую на другой указанной клетке.
входные данные
1
1
3
2
выходные данные
YES
входные данные
1
1
3
3
выходные данные
NO
Помогите, пожалуйста
Категория: Информатика 3 года назад
На вопрос 3 года назад
Tobol

Ответы (1)

Var
x, y, x1, y1: integer;
 begin
  readln(x);
  readln(y);
  readln(x1);
  readln(y1);
  if(x + 1 = x1) and (y + 2 = y1) and (x + 1 < 9) and (y + 2 < 9) then begin write('YES');exit; end;
  if(x - 1 = x1) and (y + 2 = y1) and (x - 1 > 0) and (y + 2 < 9) then begin write('YES');exit; end;
  if(x + 2 = x1) and (y + 1 = y1) and (x + 2 < 9) and (y + 1 < 9) then begin write('YES');exit; end;
  if(x - 2 = x1) and (y + 1 = y1) and (x - 2 > 0) and (y + 1 < 9) then begin write('YES');exit; end;
  if(x + 1 = x1) and (y - 2 = y1) and (x + 1 < 9) and (y - 2 > 0) then begin write('YES');exit; end;
  if(x + 2 = x1) and (y - 1 = y1) and (x + 2 < 9) and (y - 1 > 0) then begin write('YES');exit; end;
  if(x - 1 = x1) and (y - 2 = y1) and (x - 1 > 0) and (y - 2 > 0) then begin write('YES');exit; end;
  if(x - 2 = x1) and (y - 1 = y1) and (x - 2 > 0) and (y - 1 > 0) then begin write('YES');exit; end;
  write('NO');
end.
Ответ получен 3 года назад
Tobol
Пожалуйста зарегистрируйтесь/войдите для ответа на вопрос.  Нажмите для входа

Войти на сайт