Помощь - Поиск - Пользователи - Календарь
Полная версия: Разветвляющиеся алгоритмы
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Painkiller
Помогите! Срочно нужно решить..

На шахматной доске стоят черный король и белые ладья и слон (ладья бьёт по горизонтали и вертикали, слон – по диагоналям). Проверить, есть ли угроза королю и если есть то от кого именно. Учесть возможность защиты (например, ладья не бьёт через слона).
klem4
Поиск = шахмат*
klem4
В принципе задача не особо тривиальная, по этому решил сделать, 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.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.