Новичок
Джуниор
Регистрация: 19.10.2017
Сообщений: 1
|
Вопросы по задаче.
Здравствуйте. Пытаюсь разобраться в модуле Graph (Паскаль ABC).
Программа практически готова, но есть проблема: у человечка во время движения (до смеха) "разлетаются" ноги и "мелькает" голова, когда проходит мимо дерева (по задаче человечек шагает и во время движения задействует руки). + Требуется помощь и здесь: как реализовать движение рук?
Помогите, пожалуйста.
Программа:
Код:
program domik;
uses graphABC;
var x,y:integer;
begin
x:=0;
lockdrawing;
x:=0;
y:=5;
repeat
clearwindow;
circle (344+x,200,3);
circle (357+x,200,3);
ellipse (400,100,450,200);
floodfill (410,180,clgreen);
rectangle (420,200,430,300);
floodfill (425,205,clbrown);
floodfill (430,210,clskyblue);
line (0,300,2048,300);
circle (60,60,40);
floodfill (50,40,clyellow);
floodfill (420,350,clgreen);
line (150,60,300,100);
line (120,100,150,140);
line (60,125,70,250);
arc (290,70,20,400,500);
arc (320,70,20,500,400);
arc (190,40,20,400,500);
arc (220,40,20,400,500);
line(100,200,200,100);
line(200,100,300,200);
rectangle (110,200,290,300);
floodfill (115,200,clbrown);
line (100,200,300,200);
line (180,220,230,220);
line (180,220,180,260);
circle (200,150,16);
line (180,260,230,260);
line (230,260,230,220);
line (205,220,205,260);
line (240,140,240,110);
line (260,160,260,110);
line (240,110,260,110);
floodfill (250,120,clbrown);
floodfill (200,150,clyellow);
floodfill (200,110,clred);
floodfill (150,210,clpink);
floodfill (200,250,clyellow);
floodfill (220,250,clyellow);
circle (344+x,200,3);
circle (357+x,200,3);
circle (350+x,200,15);
ellipse (330+x,215,x+370,260);
line (335+x,220,320+x,260);
line (345+x,260,340+x+x,300-y); {нога}
line (360+x,255,365+x,300-y); {нога}
line (365+x,220,380+x,260);
sleep (10);
x:=x+5;
y:=y+5;
redraw;
until x>windowwidth;
circle (344,200,3);
circle (357,200,3);
ellipse (400,100,450,200);
floodfill (410,180,clgreen);
rectangle (420,200,430,300);
floodfill (425,205,clbrown);
floodfill (430,210,clskyblue);
line (0,300,2048,300);
circle (60,60,40);
floodfill (50,40,clyellow);
floodfill (420,350,clgreen);
line (150,60,300,100);
line (120,100,150,140);
line (60,125,70,250);
arc (290,70,20,400,500);
arc (320,70,20,500,400);
arc (190,40,20,400,500);
arc (220,40,20,400,500);
line(100,200,200,100);
line(200,100,300,200);
rectangle (110,200,290,300);
floodfill (115,200,clbrown);
line(100,200,300,200);
line (180,220,230,220);
line (180,220,180,260);
circle (200,150,16);
line (180,260,230,260);
line (230,260,230,220);
line (205,220,205,260);
line (240,140,240,110);
line (260,160,260,110);
line (240,110,260,110);
floodfill (250,120,clbrown);
floodfill (200,150,clyellow);
floodfill (200,110,clred);
floodfill (150,210,clpink);
floodfill (200,250,clyellow);
floodfill (220,250,clyellow);
end.
Последний раз редактировалось АнТро; 29.04.2019 в 13:45.
|