Делфи.поле шахматной доски определяется парой натуральных чисел, каждое из которых не превосходит 8: - id497868020220624 от Andrey0116 24.06.2022 04:44

Question

Информатика: Делфи.поле шахматной доски определяется парой натуральных чисел, каждое из которых не превосходит 8: первое число– номер вертикали (при счете слева направо), второе — номер горизонтали (при счете снизу-вверх). даны натуральные числа a, b, c,d, каждое из которых не превосходит 8. а) на поле (a, b) расположена ладья. определить, угрожает ли она полю (с, d); б) на поле (a, b) расположен слон. определить, угрожает ли он полю (c, d); в) на поле (a, b) расположен король. определить, может ли он одним

Andrey0116 · Accepted Answer

ответ: 5940

var steps := 12; // За кол-во ходов
var Xend := 7; // В точку с координатой X
var Yend := 3; // ... и Y

var vars := 0; procedure Find(step, X, Y : Integer);

begin
  if step = 0 then
  vars += (X = Xend) and (Y = Yend) ? 1 : 0
  else
  begin
Find(step - 1, X + 1, Y );
Find(step - 1, X - 1, Y );
Find(step - 1, X , Y + 1);
Find(step - 1, X , Y - 1);
  end;
end;
begin
Find(steps, 0, 0);
Print(vars);
end.

MOGZ ответил