Доработайте программу "Домик": 1) закрасить чердачное окно желтым цветом; 2) дом закрасить коричневым цветом; 3) крышу закрасить серебристым; 4) увеличить ширину окна до 1200 пикселей и справа от дома нарисовать человечка.

Решение:

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

1. Закрашиваем чердачное окно желтым цветом:

Найдите строку, отвечающую за чердачное окно (обычно это Circle или аналогичная фигура), и добавьте перед ней вызов SetBrushColor(clYellow);.

2. Закрашиваем дом коричневым цветом:

Найдите строку, отвечающую за отрисовку основного контура дома (обычно это Rectangle), и добавьте перед ней вызов SetBrushColor(clBrown);.

3. Закрашиваем крышу серебристым:

Найдите строки, отвечающие за отрисовку крыши (обычно это Line или Polygon), и добавьте перед ними вызов SetBrushColor(clSilver);. Если крыша состоит из нескольких линий, возможно, потребуется использовать SetPenColor(clSilver); для линий и SetBrushColor(clSilver); для заливки, если это полигон.

4. Увеличиваем ширину окна программы и рисуем человечка:

Увеличение ширины окна: Измените значение в функции SetWindowWidth() на 1200:

SetWindowWidth(1200);

Рисование человечка: Для рисования человечка справа от дома, нам понадобится использовать набор команд для отрисовки простых фигур (например, прямоугольники и круги) или использовать координаты для построения более сложного силуэта. Примерный код может выглядеть так:

// Координаты для человечка (примерные, подбираются относительно дома)
// Тело
Rectangle(700, 450, 750, 550);
// Голова
Circle(725, 430, 25);
// Глаза
Circle(715, 425, 5);
Circle(735, 425, 5);
// Рука (одна)
Line(750, 480, 800, 450);
// Ноги (примерно)
Line(710, 550, 700, 600);
Line(740, 550, 750, 600);

Program Домик_доработанный;
uses GraphAbc;
begin
  SetWindowWidth(1200);
  SetWindowHeight(600);
  SetPenWidth(3);

  // Закраска чердачного окна
  SetBrushColor(clYellow);
  Circle(400,225, 40); 

  // Закраска дома
  SetBrushColor(clBrown);
  Rectangle(200, 300, 600,600);

  // Закраска крыши
  SetBrushColor(clSilver);
  Line(200,300,400,150); 
  Line(400,150,600,300);

  // Окно (остается голубым, если не указано иное)
  SetBrushColor(clSkyBlue);
  FillRect(300, 400,500,500);
  Line(400,400,400,500);
  Line(300,450,500,450);

  // Труба (остается без заливки, если не указано иное)
  Line(480,210,480,160);
  Line(480,160,520,160);
  Line(520,160,520,240);

  // Рисование человечка справа от дома
  SetBrushColor(clGray); // Цвет человечка, можно выбрать другой
  SetPenColor(clBlack);  // Цвет контура человечка
  
  // Тело
  Rectangle(700, 450, 750, 550);
  // Голова
  Circle(725, 430, 25);
  // Глаза
  SetBrushColor(clWhite);
  Circle(715, 425, 5);
  Circle(735, 425, 5);

end.