Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

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

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


Донат для форума - использовать для поднятия настроения себе и модераторам

А ещё здесь можно купить рекламу за 15 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru

Ответ
 
Опции темы
Старый 29.04.2019, 14:30   #1
АнТро
Новичок
 
Регистрация: 19.10.2017
Сообщений: 1
Репутация: 10
Восклицание Вопросы по задаче.

Здравствуйте. Пытаюсь разобраться в модуле 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 в 14:45.
АнТро вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

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


00:37.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.

Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru