Pascalabc.netкак заставить ёлку двигаться вправо до конца экрана по нажатию клавиши е вот сама программа: program anima; uses thermal,graphabc; var k,x,y,x1,y1,x2,y2,readkey: integer; begin setwindowwidth(1000); setwindowheight(800); line(0,700,1500,700); floodfill(5,710,clmoneygreen); kqad(50,700,450,400); floodfill(60,600,clpurple); trngl(250,300,450,400,50,400); floodfill(250,310,clmaroon); kqad(80,420,160,560); line(120,420,120,560); line(80,490,160,490); floodfill(85,495,clcyan); floodfill(150,500,clcyan); floodfill(100,430,clcyan); floodfill(150,430,clcyan); kqad(200,700,300,500); floodfill(250,600,clsilver); ball4(290,610,4); floodfill(291,610,clyellow); floodfill(800,100,clpink); kqad(320,420,400,560); line(360,420,360,560); line(320,490,400,490); floodfill(325,495,clcyan); floodfill(390,500,clcyan); floodfill(340,430,clcyan); floodfill(390,430,clcyan); tree(800,450,850,500,750,500); floodfill(800,460,clgreen); floodfill(800,520,clgreen); floodfill(800,580,clgreen); kqad(780,590,820,700); floodfill(800,600,clmaroon); ball4(900,100,100); floodfill(950,100,clyellow); где thermal - это мой модуль, а tree - сама ёлкамодуль -unit thermal; uses graphabc; procedure ball4(x,y,r: integer); begin circle(x,y,r); end; procedure kqad(x,y,x1,y1: integer); begin rectangle(x,y,x1,y1); end; procedure trngl(x,y,x1,y1,x2,y2: integer); begin line(x,y,x1,y1); line(x1,y1,x2,y2); line(x2,y2,x,y); end; procedure tree(x,y,x1,y1,x2,y2: integer); begin pen.color: =(clgreen); trngl(x,y,x1,y1,x2,y2); trngl(x,y+50,x1+20,y1+50,x2-20,y2+50); trngl(x,y+100,x1+30,y1+90,x2-30,y2+90); end;

283

456

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

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

danil3331116

Информатика

4,5(41 оценок)

a b c b& c неb& c bv не b& c a& (b не b& c)

0 0 0 0 1 1 0

0 0 1 0 1 1 0

0 1 0 0 1 1 0

0 1 1 1 0 1 0

1 0 0 0 1 1 1

1 0 1 0 1 1 1

1 1 0 0 1 1 1

1 1 1 1 0 1 1

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

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

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

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

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

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