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

Автор: Painkiller 30.06.2006 6:33

Помогите! Срочно нужно решить..

На шахматной доске стоят черный король и белые ладья и слон (ладья бьёт по горизонтали и вертикали, слон – по диагоналям). Проверить, есть ли угроза королю и если есть то от кого именно. Учесть возможность защиты (например, ладья не бьёт через слона).

Автор: klem4 30.06.2006 14:41

http://forum.pascal.net.ru/index.php?act=Search&CODE=show&searchid=e6e771fe6983deb749a01c95574383a3&search_in=posts&result_type=topics&highlite=%2B%F8%E0%F5%EC%E0%F2%2A

Автор: klem4 1.07.2006 15:20

В принципе задача не особо тривиальная, по этому решил сделать, Painkiller, проверяй, разбирайся ...

uses crt;
type

  TPNT = record
    row, col : integer;
  end;

procedure PrintField(k, s, l : TPNT);
var
  i, j : integer;
begin
  for i := 1 to 8 do begin
    for j := 1 to 8 do write('.');
    writeln;
  end;
  GoToXY(k.col, k.row); writeln('K');
  GoToXY(s.col, s.row); writeln('S');
  GoToXY(l.col, l.row); writeln('L');
  GotoXY(1, 9);
end;

function max(a, b : integer) : integer;
begin
  max := a; if b > max then max := b;
end;

function min(a, b : integer) : integer;
begin
  min := a; if b < min then min := b;
end;

function CheckL(k, s, l : TPNT) : boolean;
begin
  CheckL := ((l.row = k.row) and not((s.col in [min(k.col, l.col)..max(k.col, l.col)]) and (s.row = k.row)))
            or
            ((l.col = k.col) and not((s.row in [min(k.row, l.row)..max(k.row, l.row)]) and (s.col = k.col)));
end;

function CheckS(k, s, l : TPNT) : boolean;
begin
  CheckS := (abs(k.row - s.row) = abs(k.col - s.col)) and
  (not((abs(k.row - l.row) = abs(k.col - l.col)) and (l.row in [min(k.row, s.row)..max(k.row, s.row)])));
end;

var

  K, S, L : TPNT;
begin

  clrscr;

  k.row := 4; k.col := 3; // король
  s.row := 7; s.col := 6; // слон
  l.row := 6; l.col := 6; // ладья

  PrintField(k, s, l);

  writeln(CheckS(k, s, l) or CheckL(k, s, l));

  readln;

end.