Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 29.04.2019, 13:30   #1
АнТро
Новичок
Джуниор
 
Регистрация: 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.
АнТро вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Код к задаче! sg-ua Помощь студентам 5 25.09.2013 19:26
Что то не так в задаче djyuroktm Помощь студентам 9 15.12.2010 15:15
C++. Что не так в задаче?? ((((( LeNus'Ka Помощь студентам 13 16.10.2010 12:35
Вопросы к задаче о спичках bol2909 Общие вопросы C/C++ 0 12.12.2009 23:16