Напишите подпрограмму, которая рисует домик.

Например, подпрограмму, которая рисует домик, можно написать с помощью простых графических команд. Домик обычно состоит из квадрата или прямоугольника — это стены, треугольника — это крыша, а также двери и окна.

Пример на языке PascalABC.NET с использованием модуля GraphABC:

pascal
uses GraphABC;

procedure Domik(x, y: integer);
begin
  { Стены домика }
  SetBrushColor(clYellow);
  Rectangle(x, y, x + 120, y + 100);

  { Крыша }
  SetBrushColor(clRed);
  Polygon(
    Point(x - 10, y),
    Point(x + 60, y - 70),
    Point(x + 130, y)
  );

  { Дверь }
  SetBrushColor(clBrown);
  Rectangle(x + 45, y + 45, x + 75, y + 100);

  { Окно слева }
  SetBrushColor(clSkyBlue);
  Rectangle(x + 15, y + 25, x + 40, y + 50);

  { Окно справа }
  Rectangle(x + 80, y + 25, x + 105, y + 50);
end;

begin
  SetWindowSize(400, 300);
  Domik(140, 130);
end.

Здесь Domik — это подпрограмма-процедура. Она получает координаты x и y, от которых начинается рисование домика. Благодаря этому домик можно нарисовать в любом месте экрана.

Например, команда:

pascal
Domik(140, 130);

рисует домик с начальной точкой в координатах (140, 130).

Внутри процедуры:

pascal
Rectangle(x, y, x + 120, y + 100);

рисует прямоугольные стены домика.

Команда:

pascal
Polygon(
  Point(x - 10, y),
  Point(x + 60, y - 70),
  Point(x + 130, y)
);

рисует треугольную крышу.

Дверь и окна также рисуются прямоугольниками. Цвета задаются с помощью команды SetBrushColor.

Можно вызвать эту подпрограмму несколько раз с разными координатами:

pascal
Domik(50, 150);
Domik(200, 150);

Тогда на экране появятся два домика.