Версия для печати темы

Автор: Романтик 3.07.2006 19:21

Дана исходная позиция (x1,y1). Возможно ли за один ход попасть из данной позиции в позицию (x2,y2). возможна задача уже решалась. я делал в лоб. но мне интересны различные варианты решения.

Автор: klem4 3.07.2006 19:54

 uses crt;
type
  TPnt = record
    row, col : integer;
  end;

function Check(p1, p2 : TPnt) : boolean;
begin
  Check :=
  ((abs(p1.row - p2.row) = 2) and (abs(p1.col - p2.col) = 1)) or
  ((abs(p1.row - p2.row) = 1) and (abs(p1.col - p2.col) = 2));
end;

var
  p1, p2 : TPnt;

begin
  clrscr;
  p1.row := 5; p1.col := 4;
  p2.row := 3; p2.col := 3;
  writeln(Check(p1, p2));
  readln;
end.