Раскрасить человечка и сделать фон,вот в этой я не умею(программа паскаль авс) program chelovek; uses graphabc; procedure p1(x,y: integer); begin circle(x,y,10); ellipse(x-15,y+10,x+15,y+70); line(x,y+70,x-15,y+100); line(x,y+70,x+15,y+100); end; procedure p2(x,y: integer); begin circle(x,y,10); ellipse(x-15,y+10,x+15,y+70); line(x,y+70,x,y+100); end; var x,y,i: integer; begin x: =40; y: =100; i: =1; repeat lockdrawing; clearwindow; setpenwidth(3); if odd(i) then p1(x,y) else p2(x,y); setpenwidth(10); line(0,y+100,windowwidth,y+100); redraw; sleep(500); x: =x+5; i: =i+1; until x> =windowwidth-20; end.

128

130

Посмотреть ответы 2

Ответы на вопрос:

mozg206

Информатика

4,8(63 оценок)

Uses graphabc; procedure p1(x,y: integer); begincircle(x,y,10); floodfill(x,y,clyellow); ellipse(x-15,y+10,x+15,y+70); floodfill(x,y+20,clyellow); line(x,y+70,x-15,y+100); line(x,y+70,x+15,y+100); end; procedure p2(x,y: integer); begincircle(x,y,10); floodfill(x,y,clyellow); ellipse(x-15,y+10,x+15,y+70); floodfill(x,y+20,clyellow); line(x,y+70,x,y+100); end; var x,y,i: integer; beginx: =40; y: =100; i: =1; repeat lockdrawing; clearwindow(clgreen); setpenwidth(3); if odd(i) then p1(x,y) else p2(x,y); setpenwidth(10); line(0,y+100,windowwidth,y+100); redraw; sleep(500); x: =x+5; i: =i+1; until x> =windowwidth-20; end.

katuschaglebtsc

Информатика

4,6(50 оценок)

Сам не знаю сам не знаю

Объяснение:

Хз

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.