Как сделать клоуна в паскале ABC

Как сделать клоуна в паскале ABC

14-09-2019 02:03 Просмотры: 1
Ответы (1)
Гильберт Кобак
+6
2019-09-14 03:46:29

Выделить код 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 Program aaa; uses GraphABC; var i:integer; begin lockdrawing; for i:=1 to 500 do begin Circle(315,288,75); Circle(315,288,25); Circle(300,260,10); Circle(330,260,10); Line(264,230,230,235); Line(362,230,400,236); Line(393,243,420,248); Line(399,237,392,245); Line(230,235,240,243); Line(210,245,240,243); Line(210,245,220,250); Line(178,255,219,250); Line(178,255,242,259); Line(418,248,404,250); Line(446,255,404,250); Line(440,255,384,258); Line(357,358,390,375); Line(240,374,273,359); Line(240,376,390,374); redraw; sleep(10); setbrushcolor(clwhite); fillrect(0,0,1000,1000); end; end.