Работа 1.5 Упр.5 ГДЗ Семакин 10 класс (Информатика)

Задача

Описать с помощью векторных команд следующие рисунки (цвет заливки произвольный).

Подробный ответ

По рисунку составим программу на языке GraphABC, используя команды рисования окружностей, прямоугольников и отрезков. Цвет заливки можно выбрать произвольно, поэтому оставим стандартные цвета.

uses GraphABC;
begin
  setwindowsize(1200,400);
  setpencolor(clblack);
  setpenwidth(5);
  centerwindow;
  // смайлик
  circle(600,200,180);
  floodfill(600,200, clyellow);
  circle(550,100,40);
  circle(650,100,40);
  floodfill(550,100, clwhite);
  floodfill(650,100, clwhite);
  line(550,300,650,300);
  line(600,250,600,150);
  // домик
  rectangle(50,350,350,200);
  floodfill(200,250, clbrown);
  rectangle(125,300,275,225);
  floodfill(200,250, clblue);
  line(200,255,200,300);
  line(125,255,275,255);
  line(50,200,200,50);
  line(350,200,200,50);
  floodfill(200,100, clgreen);
  // кораблик
  line(850,250,1150,250);
  line(850,250,950,350);
  line(1100,350,1150,250);
  line(1100,350,950,350);
  line(1000,250,1000,50);
  line(1000,50,1100,100);
  line(1000,150,1100,100);
  floodfill(1010,125, clred);
  floodfill(1000,300, clorange);
end.