Ответы на вопрос:
1 uses graphABC,crt;
2 var i,x,y,x2,y2,x3,y3: integer;
3 begin
4 setwindowsize(500,500);
5 lockdrawing;
6 hidecursor;
7 repeat
8 clearwindow;
9 setpenwidth(1);
10 setbrushcolor(clblack);
11 circle(250,200,20);
12 setbrushcolor(clbrown);
13 rectangle(100,200,400,400);
14 setbrushcolor(clwhite);
15 roundrect(110,210,350,390,40,40);
16 for i:=1 to 10000 do
17 putpixel(random(235)+112,random(171)+215,clblack);
18 setbrushcolor(clblack);
19 for i:=1 to 5 do
20 circle(375,210+(i*25),10);
21 circle(375,370,15);
22 setbrushcolor(clwhite);
23 rectangle(372,360,378,380);
24 setpenwidth(5);
25 x:=250; y:=197;
26 x2:=x-40-random(10);
27 y2:=y-150-random(10);
28 x3:=x++40+random(10);
29 y3:=y-150-random(10);
30 line(x,y,x2,y2);
31 line(x,y,x3,y3);
32 circle(x2,y2,10);
33 circle(x3,y3,10);
34 sleep(2);
35 redraw;
36 until keypressed;
37 end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
Владислава318812501.08.2020 02:25
-
mumina706.03.2022 06:29
-
алисатян230.06.2022 17:38
-
Нм6шиш11.05.2020 10:55
-
fegancev10.05.2023 18:30
-
Black1349518.05.2020 15:49
-
vanyushkachushka7920.02.2022 18:52
-
саша1010312.12.2022 13:09
-
vddrobysheva08.03.2021 05:26
-
Monika95004.03.2023 00:21
![Caktus Image](/tpl/img/cactus.png)
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.