Задача B.01: Конь в поле
Эта задача с открытыми тестами. Ее решением является набор ответов, а не программа на языке программирования. Тесты указаны в самом условии, от вас требуется лишь ввести ответы на них в тестирующую систему.
На шахматном поле размером N × N клеток пасется шахматный конь. Сейчас он находится в клетке с координатами (x1, y1). Сегодня шахматный конь узнал, что на клетке с координатами (x2, y2) начала расти его любимая шахматная трава и он захотел добраться туда как можно быстрее, пока трава не завяла.
Вам требуется определить, за какое наименьшее количество ходов он сможет добраться до этой клетки.
Напомним, что шахматный конь за один ход изменяет одну из координат на 2, а другую на 1. Например, если конь стоит в клетке (3, 4), то за один ход он может попасть в клетки (1, 3), (1, 5), (2, 2), (2, 6), (4, 2), (4, 6), (5, 3) и (5, 5). Конь не может выходить за пределы шахматного поля.
Формат входных данных
Тест №1: N = 4, (x1, y1) = (1, 1), (x2, y2) = (2, 2);
Тест №2: N = 5, (x1, y1) = (4, 2), (x2, y2) = (2, 1);
Тест №3: N = 6, (x1, y1) = (2, 5), (x2, y2) = (4, 1);
Тест №4: N = 7, (x1, y1) = (2, 1), (x2, y2) = (7, 3);
Тест №5: N = 8, (x1, y1) = (6, 2), (x2, y2) = (4, 7);
Тест №6: N = 9, (x1, y1) = (8, 3), (x2, y2) = (1, 2);
Тест №7: N = 10, (x1, y1) = (10, 4), (x2, y2) = (10, 6);
Тест №8: N = 11, (x1, y1) = (10, 3), (x2, y2) = (8, 10);
Тест №9: N = 12, (x1, y1) = (12, 9), (x2, y2) = (1, 9);
Тест №10: N = 13, (x1, y1) = (1, 13), (x2, y2) = (12, 1);
Формат результата
В поле ввода ответа впишите единственное число — наименьшее количество шагов, за которое шахматный конь сможет добраться от клетки с координатами (x1, y1) до клетки с координатами (x2, y2).
Const
n=4;
Var
ma:array[1..n,1..n] of integer;
i,j:integer;
begin
randomize;
for i:=1 to n do
begin
for j:=1 to n do
begin
ma[i,j]:=random(50)-20;
write(ma[i,j]:4);
end;
writeln;
end;
writeln('Сторки:');
for i:=1 to n do
begin
write(i,':');
for j:=1 to n do
if ma[i,j]<0 then
begin
writeln(j);
break;
end;
writeln;
end;
writeln('Столбцы:');
for j:=1 to n do
begin
write(j,':');
for i:=1 to n do
if ma[i,j]<0 then
begin
writeln(i);
break;
end;
writeln;
end;
end.