Из k,l в m,n за 2 хода

[yzen]

Поле шахматной доски определяется парой натуральных чисел, каждое из которых не превосходит восьми: первое число — номер вертикали (при счете слева направо), второе — номер горизонтали (при счете снизу вверх). Даны натуральные числа k, l, m, n, каждое из которых не превосходит восьми. Требуется:
Выяснить, можно ли с поля (k, l) одним ходом конь попасть на поле (m, n). Если нет, то выяснить, как это можно сделать за два хода (указать поле, на которое приводит первый ход).
Предполагается, что указанные поля имеют один и тот же цвет.

Нужно на паскале

Сделал как за один ход,а как за два не получается.

[Sciv]

Не получается в коде программы или идей просто нет?
Я так думаю, что рекурсивно вызывать ту же функцию вычисления, что и для одного хода, пока k<>m,l<>n и количество рекурсий <2

[yzen]

uses crt;
var k,l,m,n,x,y,s:integer;
begin

repeat
writeln('Введите начальные координаты коня k,l');
readln(k,l);
until (k in [1..8])and(l in [1..8]);
repeat
writeln('Введите конечные координаты коня m,n');
readln(m,n);
until (m in [1..8])and(n in [1..8]) and((k<>m)and(l<>n));
x:=abs(k-m);
y:=abs(l-n);
if ((x=2)and (y=1)) or ((x=1) and (y=2)) then writeln('Можно за один ход.');



end.

для проверки за один ход я сделал так
а как дальше, проверить за 2 хода

[Sciv]

Как-нибудь так:

uses crt;
var k,l,m,n,x,y,s,count:integer;

function Proverka(a,b: byte): boolean;
begin
  x:=abs(a-m);
  y:=abs(b-n);
  if ((x=2)and (y=1)) or ((x=1) and (y=2)) then Proverka:=true
  else if count<>2 then begin
    count:=count+1;
    Proverka(a+x,b+y);
  end
  else Proverka:=false;
end;

begin
  repeat
    writeln('Введите начальные координаты коня k,l');
    readln(k,l);
  until (k in [1..8])and(l in [1..8]);
  repeat
    writeln('Введите конечные координаты коня m,n');
    readln(m,n);
  until (m in [1..8])and(n in [1..8]) and((k<>m)and(l<>n));
  count:=1;
  If Proverka(k,l) then WriteLn('Можно за ',count,' ход(а)')
  else WriteLn('нельзя');
  ReadLn;
end.

[yzen]

Спасибо)
оставил отзыв)
но мог бы еще помочь с указанием 1 первого хода, когда за два

[BDA]

Sciv, не знаю, в чем дело, но Ваша программа говорит "возможно за 2 хода" при любых входных данных - http://ideone.com/sZN5Xi.
19:18 Update Мой вариант (очень топорный - наверное, можно сделать красивее, и нету гарантий правильной работы )

uses
  crt;

var
  k, l, m, n, count, x, y: integer;

function check(x1, y1, x2, y2: integer; var count, x, y: integer): boolean;
var
  t: boolean;
begin
  check := false;
  if (not (x1 in [1..8])) or (not (y1 in [1..8])) then
    exit;
  if count > 2 then
    exit;
  if (x1 = x2) and (y1 = y2) then
  begin
    check := true;
    exit;
  end;
  inc(count);
  t := check(x1 + 2, y1 + 1, x2, y2, count, x, y) or
    check(x1 + 2, y1 - 1, x2, y2, count, x, y) or
    check(x1 - 2, y1 + 1, x2, y2, count, x, y) or
    check(x1 - 2, y1 - 1, x2, y2, count, x, y) or
    check(x1 + 1, y1 + 2, x2, y2, count, x, y) or
    check(x1 + 1, y1 - 2, x2, y2, count, x, y) or
    check(x1 - 1, y1 + 2, x2, y2, count, x, y) or
    check(x1 - 1, y1 - 2, x2, y2, count, x, y);
  if t = true then
  begin
    check := true;
    if x = -1 then
    begin
      x := x1;
      y := y1;
    end;
  end
  else
    dec(count);
end;

begin
  x := -1;
  repeat
    writeln('Введите начальные координаты коня k, l:');
    readln(k, l);
  until (k in [1..8]) and (l in [1..8]);
  repeat
    writeln('Введите конечные координаты коня m, n:');
    readln(m, n);
  until (m in [1..8]) and (n in [1..8]);
  count := 0;
  if (k = m) and (l = n) then
    writeln('Одна и та же точка')
   else
  if check(k, l, m, n, count, x, y) then
    if count = 2 then
      WriteLn('Можно за 2 хода. Промежуточная точка: (', x, ',', y, ')')
    else
      writeLn('Можно за 1 ход')
  else
    WriteLn('Нельзя попасть за 2 хода');
  ReadLn;
end.

13:45 Update

И когда начальная=конечной она не правильно работает.

Да, забыл об этом случае - код исправлен.

[Sciv]

BDA, я знаю.
Топикстартер, дико извиняюсь, программа недоделана, но, думаю, идея понятна.

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

[Sciv]

Вот вроде доделал...

Program Prog;

uses
  crt;

var k,l,m,n,count:byte;

function Proverka(a,b: byte;var c: byte): boolean;
var Res: boolean;
    x,y: integer;
begin
  Res:=false;
  if (a<=8) and (a>=1) and (b<=8) and (b>=1) then begin
    x:=abs(m-a);
    y:=abs(n-b);
    Res:=((x=2)and (y=1)) or ((x=1) and (y=2));
    inc(c);
    if not Res and (c<>2) then
      Res:=Proverka(a+1,b+2,c) or Proverka(a+1,b-2,c) or Proverka(a-1,b+2,c) or Proverka(a-1,b-2,c) or
           Proverka(a+2,b+1,c) or proverka(a+2,b-1,c) or Proverka(a-2,b+1,c) or Proverka(a-2,b-1,c);
    if not Res then dec(c);
  end;
  Proverka:=Res;
end;

begin
  repeat
    writeln('Введите начальные координаты коня k,l');
    readln(k,l);
  until (k in [1..8])and(l in [1..8]);
  repeat
    writeln('Введите конечные координаты коня m,n');
    readln(m,n);
  until (m in [1..8])and(n in [1..8]);
  count:=0;
  If Proverka(k,l,count) then
    WriteLn('Можно за ',count,' ход(а)')
  else
    WriteLn('нельзя');
  ReadLn;
end.

Потестил по-быстрому - работает вроде правильно, с учетом краев поля и тп.

[yzen]

Все отлично работает.
Правда еще твою программу не до понял не много.

И когда начальная=конечной она не правильно работает.

Ну и на этом спасибо.