Нарисуйте цветную кошечку в Паскале АВС

Question

Информатика

Еня

23 октября, 14:22

Нарисуйте цветную кошечку в Паскале АВС

+3

Ответы (1)

Знаете ответ?

Кеня · Answer 1

Uses graphABC; beginsetwindowsize (600,500) ; setbrushcolor (clMedGray) ; Ellipse (320,30,490,400) ; Ellipse (120,30,300,400) ; setbrushcolor (clCream) ; Ellipse (335,40,480,380) ; Ellipse (140,40,280,380) ; setbrushcolor (clMedGray) ; Ellipse (100,430,500,130) ; setbrushcolor (clNavy) ; Ellipse (250,240,200,310) ; Ellipse (350,240,400,310) ; setbrushcolor (clwhite) ; Ellipse (240,270,220,300) ; Ellipse (360,270,380,300) ;

setbrushcolor (clblack) ; Ellipse (270,330,330,370) ; line (300,370,300,400) ; Arc (300,280,120,220,-40) ;

line (50,350,200,350) ; line (30,340,190,340) ; line (10,330,180,330) ;

line (410,330,570,330) ; line (400,340,560,340) ; line (390,350,550,350) ;

line (240,230,220,150) ; line (230,230,180,80) ; line (220,230,180,150) ;

line (360,230,380,150) ; line (370,230,430,80) ; line (380,230,430,150) ;

end.