Polina15505

13.10.2022 03:08

Информатика

Есть ответ 👍

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;