Question

В системе программирования Pascal ABC выполните проверяемое задание If2 для исполнителя робот( закрасить клетки около стен). Расположение стен на поле может быть разным.

Answer 1

uses Robot;

begin

 Task('if2');

Paint;

Up; if WallFromUp then Paint; Down;

Right; if WallFromRight then Paint; Left;

Down; if WallFromDown then Paint; Up;

Left; if WallFromLeft then Paint; Right;

end.

Answer 2

Вот пример решения задачи в системе программирования Pascal ABC:

pascalCopy code
program If2_Robot;

const
  SIZE = 10; // Размер поля

type
  Field = array[1..SIZE, 1..SIZE] of boolean; // Тип поля

procedure InitializeField(var field: Field);
var
  i, j: integer;
begin
  // Инициализация поля
  for i := 1 to SIZE do
    for j := 1 to SIZE do
      field[i, j] := false;
end;

procedure PlaceWalls(var field: Field);
var
  i, j: integer;
begin
  // Расположение стен на поле (произвольный пример)
  field[2, 2] := true;
  field[2, 3] := true;
  field[2, 4] := true;
  field[3, 4] := true;
  field[4, 4] := true;
  field[4, 3] := true;
  field[4, 2] := true;
end;

procedure PaintAdjacentCells(var field: Field);
var
  i, j: integer;
begin
  for i := 1 to SIZE do
  begin
    for j := 1 to SIZE do
    begin
      if field[i, j] then
      begin
        // Закрашиваем клетки около стен
        if (i > 1) then field[i - 1, j] := true;
        if (i < SIZE) then field[i + 1, j] := true;
        if (j > 1) then field[i, j - 1] := true;
        if (j < SIZE) then field[i, j + 1] := true;
      end;
    end;
  end;
end;

procedure PrintField(field: Field);
var
  i, j: integer;
begin
  for i := 1 to SIZE do
  begin
    for j := 1 to SIZE do
    begin
      if field[i, j] then
        write('X')
      else
        write('_');
    end;
    writeln;
  end;
end;

var
  field: Field;

begin
  InitializeField(field);
  PlaceWalls(field);
  PaintAdjacentCells(field);
  PrintField(field);
end.

В данном примере мы создаем поле размером 10x10, инициализируем его и располагаем стены на поле. Затем мы закрашиваем клетки, которые находятся рядом со стенами, и выводим получившееся поле на экран.

Обратите внимание, что в этом примере я использовал произвольное расположение стен на поле. В реальной программе вам нужно будет определить, как именно расположены стены на поле, чтобы правильно закрасить клетки около них.