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

Вопрос школьника по предмету Другие предметы

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

Ответ учителя по предмету Другие предметы

Выделить код

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.