Дуги и фигуры из них - Pascal ABC

Узнай цену своей работы

Формулировка задачи:

Ребят, привет. Вызвался помочь сестре со школьной задачей. И не справился) Проходят геометрические фигуры, дуги. Помогите на Pascal ABC изобразить вторую (правую) картинку. С первой я справился.

Решение задачи: «Дуги и фигуры из них»

textual
Листинг программы
Program Caterpillar;
uses GraphABC;
begin
 SetPenWidth(10);
 SetBrushColor(clwhite);
     SetPenColor(clAqua);
     arc(90,150,80,330,210);
     arc(90,240,80,30,270);
     arc(160,280,80,90,330);
     arc(225,240,80,150,30);
     arc(230,150,80,210,90);
     arc(160,110,80,270,150);
     SetPenColor(clwhite);
     SetPenWidth(0);
     SetBrushColor(clwhite);
     Circle(160,190,60);
     SetPenWidth(10);
     SetPenColor(clYellow);
     SetBrushColor(clWhite);
     arc(160,160,30,30,270);
     arc(190,175,30,330,210);
     arc(190,205,30,270,150);
     arc(160,225,30,210,90);
     arc(130,210,30,150,30);
     arc(130,180,30,90,330);
     SetPenColor(clAqua);
     circle(160,190,5);
 
end.

Объяснение кода листинга программы

  1. Устанавливаем ширину пера в 10 единиц.
  2. Устанавливаем цвет кисти на белый.
  3. Устанавливаем цвет пера на зеленый.
  4. Рисуем дугу с координатами начала 90,150, радиусом 80, углом 330 градусов и высотой 210.
  5. Рисуем дугу с координатами начала 90,240, радиусом 80, углом 30 градусов и высотой 270.
  6. Рисуем дугу с координатами начала 160,280, радиусом 80, углом 90 градусов и высотой 330.
  7. Возвращаем цвет пера и ширину пера к начальным значениям.
  8. Рисуем окружность с координатами центра 160,190, радиусом 60.
  9. Устанавливаем цвет пера на желтый и цвет кисти на белый.
  10. Рисуем дугу с координатами начала 160,160, радиусом 30, углом 30 градусов и высотой 270.
  11. Рисуем дугу с координатами начала 190,175, радиусом 30, углом 330 градусов и высотой 210.
  12. Рисуем дугу с координатами начала 190,205, радиусом 30, углом 270 градусов и высотой 150.
  13. Рисуем дугу с координатами начала 160,225, радиусом 30, углом 210 градусов и высотой 90.
  14. Рисуем дугу с координатами начала 130,210, радиусом 30, углом 150 градусов и высотой 30.
  15. Рисуем дугу с координатами начала 130,180, радиусом 30, углом 90 градусов и высотой 330.
  16. Устанавливаем цвет пера на зеленый и цвет кисти на белый.
  17. Рисуем окружность с координатами центра 160,190, радиусом 5.

Оцени полезность:

10   голосов , оценка 4.5 из 5
Похожие ответы