Нарисовать зайчика, цветочек и солнышко - Pascal ABC

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

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

здравствуйте. я вот не пойму как закрасить уши и хвост зайчика которого я написал. я понимаю возможно разрыв фигуры и он закрашивает полностью он начала пути до конца. Я буду очень благодарен если у кого найдётся минутка дополнить к этому рисунку цветочек и солнышко. я читаю в справочнике в паскале но что то вникнуть особо не получается. Спасибо Заранее!

Решение задачи: «Нарисовать зайчика, цветочек и солнышко»

textual
Листинг программы
uses GraphABC;
begin
SetWindowSize(500,500);
SetPenWidth(5);              // голова
SetPenColor(clGray);
Circle (250, 130, 50);floodfill(250,130,clSilver);
SetPenWidth(2);               // щека
Circle (220, 150, 20);floodfill(220,150,clSilver);
SetPenWidth(2);               // усы
SetPenColor(clBlack);
Line(270,130,220,150);
Line(270,145,223,153);
Line(260,160,222,157);
SetPenColor(clBlack);  SetbrushColor(clBlack);   // носик
Ellipse(202,141,190,150); 
SetPenColor(clGray);SetbrushColor(clwhite);
SetPenWidth(5);               // тело
Circle (320, 230, 75);floodfill(320,230,clSilver);
SetPenWidth(3);               // рука
Circle (250, 230, 25);floodfill(250,230,clSilver);
SetPenWidth(2);             // хвостик
Ellipse(390,270,410,230);
FloodFill (400,250,clSilver);
SetPenWidth(5);              //задняя лапка
circle(340,315,45);floodfill(340,315,clSilver);
setpencolor(clwhite);
rectangle(200,320,400,400);
SetPenColor(clGray);
line(295,315,385,315);
 
 
arc(295,55,40,60,-120); //Arc Выводит на рисунке дугу окружности 
//с центром в точке (x,y) и радиусом r, 
//заключенной между двумя лучами    
//ушки
arc(305,60,40,-120,40);
line(275,85,315,20);
line(275,85,335,35);
FloodFill (280,86,clSilver);
FloodFill (300,55,clSilver);
FloodFill (335,80,clSilver);
 
SetPenWidth(3);           //глазик
line(215,130,235,90);
line(235,90,255,130);
line(255,130,215,130);
 
setpencolor(clblack);
setbrushcolor(clblack);
circle(230,120,7);
setpencolor(clwhite);
line(230,120,240,107);
line(230,120,240,115);
 
 
setbrushcolor(clLime); //травка
Rectangle(0,320,700,600);
 
setbrushcolor(clYellow); //солнце
Circle (100,80,50);
end.

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

  1. Создается окно приложения с помощью функции SetWindowSize.
  2. Устанавливается ширина пера с помощью функции SetPenWidth.
  3. Устанавливается цвет пера с помощью функции SetPenColor.
  4. Рисуется голова зайчика с помощью функции Circle.
  5. Рисуются щеки зайчика с помощью функции Circle.
  6. Рисуются усы зайчика с помощью функции Line.
  7. Рисуется нос зайчика с помощью функции Ellipse.
  8. Рисуется тело зайчика с помощью функции Circle.
  9. Рисуется рука зайчика с помощью функции Circle.
  10. Рисуется хвостик зайчика с помощью функции Ellipse.
  11. Рисуется задняя лапка зайчика с помощью функции circle.
  12. Рисуется дуга окружности с помощью функции arc.
  13. Рисуются ушки зайчика с помощью функции line.
  14. Рисуется глаз зайчика с помощью функции line.
  15. Устанавливается цвет кисти для травы с помощью функции setbrushcolor.
  16. Рисуется трава с помощью функции Rectangle.
  17. Устанавливается цвет кисти для солнца с помощью функции setbrushcolor.
  18. Рисуется солнце с помощью функции Circle.
  19. Код завершается без ошибок или исключений.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

12   голосов , оценка 3.75 из 5