С Новым годом! Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль) > Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.66/41: Рейтинг темы: голосов - 41, средняя оценка - 4.66
 Аватар для blondino4ka
0 / 0 / 1
Регистрация: 16.12.2009
Сообщений: 27

Графика Pascal ABC. Ползущая гусеница.

14.06.2010, 01:11. Показов 8384. Ответов 2
Метки нет (Все метки)
Студворк — интернет-сервис помощи студентам
Как сделать через процедуры?
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91

program Gusinica;
uses GraphABC;
var i:integer;
//Procedure Gusinica(x,y,x1,y1:integer);
begin
SetWindowWidth(800);
SetWindowHeight(460);
LockDrawing;
for i:=50 to 200 do
begin
SetBrushColor(clGreen);
circle(i-10,200,30);
SetBrushColor(clMoneyGreen);
circle(i+50,200,30);
SetBrushColor(clGreen);
circle(i+110,200,30);
SetBrushColor(clMoneyGreen);
circle(i+170,200,30);
SetBrushColor(clGreen);
circle(i+230,200,30);
SetBrushColor(clMoneyGreen);
circle(i+290,200,30);
SetBrushColor(clGreen);
circle(i+350,200,30);
//Голова
SetBrushColor(clMoneyGreen);
circle(i+419,190,40);
//Глазки
SetBrushColor(clblack);
circle(i+410,170,4);
SetBrushColor(clblack);
circle(i+430,170,4);
//Носик
SetPenWidth(3);
Arc(i+418,190,5,150,10);
//Ротик
Arc(i+415,210,4,120,10);
SetBrushColor(clblack);
//Ушки
Line(i+400,115,i+410,152);
SetBrushColor(clblack);
Line(i+440,115,i+430,152);
SetBrushColor(clblack);
circle(i+400,110,6);
SetBrushColor(clblack);
circle(i+440,110,6);
 
//2
{SetBrushColor(clGreen);
circle(i+30,200,30);
SetBrushColor(clMoneyGreen);
circle(i+90,200,30);
SetBrushColor(clGreen);
circle(i+145,180,30);
SetBrushColor(clMoneyGreen);
circle(i+190,140,30);
SetBrushColor(clGreen);
circle(i+250,140,30);
SetBrushColor(clMoneyGreen);
circle(i+295,180,30);
SetBrushColor(clGreen);
circle(i+350,200,30);
//Голова
SetBrushColor(clMoneyGreen);
circle(i+419,190,40);
//Глазки
SetBrushColor(clblack);
circle(i+410,170,4);
SetBrushColor(clblack);
circle(i+430,170,4);
//Носик
SetPenWidth(3);
Arc(i+418,190,5,150,10);
//Ротик
Arc(i+415,210,4,120,10);
SetBrushColor(clblack);
//Ушки
Line(i+400,115,i+410,152);
SetBrushColor(clblack);
Line(i+440,115,i+430,152);
SetBrushColor(clblack);
circle(i+400,110,6);
SetBrushColor(clblack);
circle(i+440,110,6); }
 
RedRaw;
Sleep(10);
ClearWindow(clwhite);
 
end;
end.
Добавлено через 7 часов 41 минуту
Кто знает как через процедуру сделать, что б она ползла! Мне сказали два вида положения гусеницы надо нарисовать, что я и сделала вот:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65

//1-ое положение гусеницы
SetPenWidth(3);
SetBrushColor(clGreen);
circle(i-10,200,30);
SetBrushColor(clMoneyGreen);
circle(i+50,200,30);
SetBrushColor(clGreen);
circle(i+110,200,30);
SetBrushColor(clMoneyGreen);
circle(i+170,200,30);
SetBrushColor(clGreen);
circle(i+230,200,30);
SetBrushColor(clMoneyGreen);
circle(i+290,200,30);
SetBrushColor(clGreen);
circle(i+350,200,30);
//Голова
SetBrushColor(clMoneyGreen);
circle(i+419,190,40);
//Глазки
SetBrushColor(clblack);
circle(i+410,170,4);
circle(i+430,170,4);
//Носик
Arc(i+418,190,5,150,10);
//Ротик
Arc(i+415,210,4,120,10);
//Ушки
Line(i+400,115,i+410,152);
Line(i+440,115,i+430,152);
circle(i+400,110,6);
circle(i+440,110,6);
 
//2-ое положение гусеницы
SetPenWidth(3);
SetBrushColor(clGreen);
circle(i+30,200,30);
SetBrushColor(clMoneyGreen);
circle(i+90,200,30);
SetBrushColor(clGreen);
circle(i+145,180,30);
SetBrushColor(clMoneyGreen);
circle(i+190,140,30);
SetBrushColor(clGreen);
circle(i+250,140,30);
SetBrushColor(clMoneyGreen);
circle(i+295,180,30);
SetBrushColor(clGreen);
circle(i+350,200,30);
//Голова
SetBrushColor(clMoneyGreen);
circle(i+419,190,40);
//Глазки
SetBrushColor(clblack);
circle(i+410,170,4);
circle(i+430,170,4);
//Носик
Arc(i+418,190,5,150,10);
//Ротик
Arc(i+415,210,4,120,10);
//Ушки
Line(i+400,115,i+410,152);
Line(i+440,115,i+430,152);
circle(i+400,110,6);
circle(i+440,110,6);
Может как-то по другому можно сделать?
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
 14.06.2010, 01:11
Ответы с готовыми решениями:

Графика в Pascal ABC
Знаю, что initgraph не нужен. Модуль graph должен записываться как graphABC. но что еще нужно изменить чтобы запустить на pascal ABC? ...

Графика в Pascal ABC
К примеру, есть у меня простая линия. Какую процедуру или функцию мне надо использовать в Pascal ABC, чтобы закрасить эту линию в красный...

Графика в Pascal ABC (Построение циссоиды)
Построить кривые по заданному параметрическому представлению или заданному в полярных координатах: Помогите пожалуйста!!!

2
ЧакЭ одобряЭ
 Аватар для Artishok
285 / 284 / 86
Регистрация: 27.12.2009
Сообщений: 1,767
14.06.2010, 01:21
Всмысле?
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50

Procedure Gusinica;
var
i:integer;
begin
SetWindowWidth(800);
SetWindowHeight(460);
LockDrawing;
for i:=50 to 200 do
begin
SetBrushColor(clGreen);
circle(i-10,200,30);
SetBrushColor(clMoneyGreen);
circle(i+50,200,30);
SetBrushColor(clGreen);
circle(i+110,200,30);
SetBrushColor(clMoneyGreen);
circle(i+170,200,30);
SetBrushColor(clGreen);
circle(i+230,200,30);
SetBrushColor(clMoneyGreen);
circle(i+290,200,30);
SetBrushColor(clGreen);
circle(i+350,200,30);
//Ãîëîâà
SetBrushColor(clMoneyGreen);
circle(i+419,190,40);
//Ãëàçêè
SetBrushColor(clblack);
circle(i+410,170,4);
SetBrushColor(clblack);
circle(i+430,170,4);
//Íîñèê
SetPenWidth(3);
Arc(i+418,190,5,150,10);
//Ðîòèê
Arc(i+415,210,4,120,10);
SetBrushColor(clblack);
//Óøêè
Line(i+400,115,i+410,152);
SetBrushColor(clblack);
Line(i+440,115,i+430,152);
SetBrushColor(clblack);
circle(i+400,110,6);
SetBrushColor(clblack);
circle(i+440,110,6);
RedRaw;
Sleep(10);
ClearWindow(clwhite);
end;
end;
вот в процедуре и движение и сама гусеница.а надо только чтобы там было перемещение ее?
1
 Аватар для blondino4ka
0 / 0 / 1
Регистрация: 16.12.2009
Сообщений: 27
14.06.2010, 21:06  [ТС]
она то двигается, а мне нужно что б она вид меняла на такой:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32

//2-ое положение гусеницы
SetPenWidth(3);
SetBrushColor(clGreen);
circle(i+30,200,30);
SetBrushColor(clMoneyGreen);
circle(i+90,200,30);
SetBrushColor(clGreen);
circle(i+145,180,30);
SetBrushColor(clMoneyGreen);
circle(i+190,140,30);
SetBrushColor(clGreen);
circle(i+250,140,30);
SetBrushColor(clMoneyGreen);
circle(i+295,180,30);
SetBrushColor(clGreen);
circle(i+350,200,30);
//Голова
SetBrushColor(clMoneyGreen);
circle(i+419,190,40);
//Глазки
SetBrushColor(clblack);
circle(i+410,170,4);
circle(i+430,170,4);
//Носик
Arc(i+418,190,5,150,10);
//Ротик
Arc(i+415,210,4,120,10);
//Ушки
Line(i+400,115,i+410,152);
Line(i+440,115,i+430,152);
circle(i+400,110,6);
circle(i+440,110,6);
Добавлено через 19 часов 30 минут
Artishok
я так сделала! больше не знаю как по другому сделать!
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91

program Gusinica;
uses GraphABC;
var i,x,y,k:integer;
procedure Gus; // Процедура рисования 1-го положения гусеницы
begin
SetPenWidth(3);
SetBrushColor(clGreen);
circle(i,y,k);
SetBrushColor(clMoneyGreen);
circle(i+x,y,k);
SetBrushColor(clGreen);
circle(i+x*2,y,k);
SetBrushColor(clMoneyGreen);
circle(i+x*3,y,k);
SetBrushColor(clGreen);
circle(i+x*4,y,k);
SetBrushColor(clMoneyGreen);
circle(i+x*5,y,k);
SetBrushColor(clGreen);
circle(i+x*6,y,k);
//Голова
SetBrushColor(clMoneyGreen);
circle(i+x*7+round(0.3*k),y-round(0.3*k),round(1.3*k));
//Глазки
SetBrushColor(clblack);
circle(i+x*7,y-k,round(0.1*k));
circle(i+x*7+round(0.6*k),y-k,round(0.1*k));
//Носик
Arc(i+x*7+round(0.2*k),y-round(0.3*k),round(0.2*k),k*5,round(0.1*k));
//Ротик
Arc(i+x*7+round(0.2*k),y+round(0.3*k),round(0.1*k),k*4,round(0.1*k));
//Ушки
Line(i+x*7-round(0.3*k),y-round(3.1*k),i+x*7,y-round(1.6*k));
Line(i+x*7+k,y-round(3.1*k),i+x*7+k-10,y-round(1.6*k));
circle(i+x*7-round(0.3*k),y-round(3.1*k),round(0.2*k));
circle(i+x*7+k,y-round(3.1*k),round(0.2*k));
end;
procedure Gus2; //Процедура рисования 2-го положения гусеницы
begin
SetPenWidth(3);
SetBrushColor(clGreen);
circle(i+x,y,k);
SetBrushColor(clMoneyGreen);
circle(i+x*2,y,k);
SetBrushColor(clGreen);
circle(i+x*3-round(0.2*k),y-round(0.6*k),k);
SetBrushColor(clMoneyGreen);
circle(i+x*4-round(0.7*k),y-k*2,k);
SetBrushColor(clGreen);
circle(i+x*5-round(0.7*k),y-k*2,k);
SetBrushColor(clMoneyGreen);
circle(i+x*6-round(1.3*k),y-round(0.6*k),k);
SetBrushColor(clGreen);
circle(i+x*7-round(1.4*k),y,k);
//Голова
SetBrushColor(clMoneyGreen);
circle(i+x*7+round(0.9*k),y-round(0.3*k),round(1.3*k));
//Глазки
SetBrushColor(clblack);
circle(i+x*7+round(0.6*k),y-k,round(0.1*k));
circle(i+x*7+round(1.2*k),y-k,round(0.1*k));
//Носик
Arc(i+x*7+round(0.8*k),y-round(0.3*k),round(0.2*k),k*5,round(0.1*k));
//Ротик
Arc(i+x*7+round(0.8*k),y+round(0.3*k),round(0.1*k),k*4,round(0.1*k));
//Ушки
Line(i+x*7+round(0.2*k),y-round(3.1*k),i+x*7+round(0.6*k),y-round(1.6*k));
Line(i+x*7+round(1.5*k),y-round(3.1*k),i+x*7+round(1.2*k),y-round(1.6*k));
circle(i+x*7+round(0.2*k),y-round(3.1*k),round(0.2*k));
circle(i+x*7+round(1.5*k),y-round(3.1*k),round(0.2*k));
end;
begin
x:=60;
y:=200;
k:=30;
cls;
SetWindowWidth(640);
SetWindowHeight(460);
LockDrawing;
for i:=50 to 500 do
begin
gus;
RedRaw;
Sleep(500);
clearwindow;
gus2;
RedRaw;
Sleep(500);
clearwindow;
end;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
 14.06.2010, 21:06
Помогаю со студенческими работами здесь

Графика Pascal ABC: Процедура рисования треугольника
Сама процедура: procedure triangle(x1,y1,x2,y2:integer); begin line(x1,y2,x2,y2); line(x1,y2,round((x1+x2)/2),y1); ...

Графика Pascal ABC Изобразить на форме отрезок
Изобразить на форме отрезок, который вращается вокруг своей концевой точки.Вокруг произвольной своей точки.Вокруг произвольной точки...

Графика Pascal ABC: Рисование геометрических фигур мышкой
Само рисование я сделал, но получается вот такая штука: Как от этого можно избавиться? P.S. Буквы на скриншоте - баг. Не...

Pascal ABC Графика . Буду благодарен! Переоформил по требованию модератора
Изобразите линии заданные неявно уравнением f(x,y)=0. \frac{{x}^{2}}{25}+\frac{{y}^{2}}{4}-1

Графика Pascal ABC: как запретить / разрешить рисование в определенной области
Пишу потихоньку Paint. Но вот возник вопрос. Как можно сделать так чтобы на голубой панели нельзя было рисовать? Поискал в справке немного...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Новые блоги и статьи
сукцессия микоризы: основная теория в виде двух уравнений.
anaschu 11.01.2026
https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/
WordPad для Windows 11
Jel 10.01.2026
WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .
Classic Notepad for Windows 11
Jel 10.01.2026
Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .
Почему дизайн решает?
Neotwalker 09.01.2026
В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .
Модель микоризы: классовый агентный подход 3
anaschu 06.01.2026
aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114
 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR
ФедосеевПавел 06.01.2026
Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .
Модель микоризы: классовый агентный подход 2
anaschu 06.01.2026
репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .
Расчёт токов в цепи постоянного тока
igorrr37 05.01.2026
/ * Дана цепь постоянного тока с сопротивлениями и источниками (напряжения, ЭДС и тока). Найти токи и напряжения во всех элементах. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Условия использования - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru