Анимация ходьбы человека по зелёному газону

@Turok123 · Регистрация: 01.05.2013

Студворк — интернет-сервис помощи студентам

Здравствуйте. Задание, используя начальные значения x=40,y=100 и изменяя их (прибавлением/вычитанием) целых чисел, сделать анимацию идущего по зелёному газону человека.

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
uses GraphABC;
procedure twoleg(x,y:integer);
begin
circle(x-2,y,10);
ellipse(x-20,y+10,x+15,y+70);
line(x-5,y+70,x-20,y+100);
line(x-5,y+70,x+10,y+100);
end;
procedure oneleg(x,y:integer);
begin
circle(x-2,y,10);
ellipse(x-20,y+10,x+15,y+70);
line(x-5,y+70,x-5,y+100);
end;
var x,y,i:integer;
begin
x:=40;
y:=100;
i:=1;
SetWindowSize(640,480);
repeat
  LockDrawing;
  ClearWindow;
  setpenwidth(4);
  if odd(i) then twoleg(x,y)
  else oneleg(x,y);
  setpenwidth(8);
  line(0,200,windowwidth,200);
  Redraw;
  Sleep(100);
  x+=10;
  i+=1;
until x>=windowwidth-25;
end.

Вот мой код. Человек ходит,а вот загон зелёный не получается сделать. Пробовал через floodfill, сколько бы не подбирал координаты не удаётся попасть в нижнюю зону под линией.
Помогите.

@JuriiMW · 24.05.2019, 04:05

Сообщение от Turok123

загон зелёный

— правильно! всех этих ублюдков в загоны…

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
uses GraphABC;
procedure twoleg(x,y:integer);
begin
circle(x-2,y,10);
ellipse(x-20,y+10,x+15,y+70);
line(x-5,y+70,x-20,y+100);
line(x-5,y+70,x+10,y+100);
end;
procedure oneleg(x,y:integer);
begin
circle(x-2,y,10);
ellipse(x-20,y+10,x+15,y+70);
line(x-5,y+70,x-5,y+100);
end;
var x,y,i:integer;
begin
x:=40;
y:=100;
i:=1;
SetWindowSize(640,480);
  LockDrawing;
repeat
  ClearWindow;
  Pen.Style := psClear;
  Brush.Color := clGreen;
  Rectangle(0,200,Window.Width,Window.Height);
  Pen.Style := psSolid;
  setpenwidth(4);
  if odd(i) then twoleg(x,y)
  else oneleg(x,y);
  setpenwidth(8);
  //line(0,200,windowwidth,200);
  Redraw;
  Sleep(100);
  x+=10;
  i+=1;
until x>=windowwidth-25;
end.

@Turok123 · 24.05.2019, 13:59 **[ТС]**

JuriiMW, здравствуйте. Нужно оказывается ещё чтобы при ходьбе руки болтались. Поможете?

@JuriiMW · 24.05.2019, 14:25

Нет!

@Сергей Игнатьев · 24.05.2019, 14:50

Turok123, Попробуйте мой вариант:

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
uses GraphABC;
var k:integer:=1;
procedure twoleg(x,y:integer);
begin
k:=-k;
circle(x-2,y,10);
ellipse(x-20,y+10,x+15,y+70);
line(x-5,y+70,x-20,y+100);
line(x-5,y+70,x+10,y+100);
if k>0 then line(x-5,y+25,x-20,y+60)else
line(x-5,y+25,x+10,y+60);
end;
procedure oneleg(x,y:integer);
begin
circle(x-2,y,10);
ellipse(x-20,y+10,x+15,y+70);
line(x-5,y+70,x-5,y+100);
line(x-5,y+25,x-5,y+60);
end;
var x,y,i:integer;
begin
x:=40;
y:=100;
i:=1;
SetWindowSize(640,480);
repeat
  LockDrawing;
  ClearWindow;
  setbrushcolor(clgreen);
  rectangle(0,200,640,480);
  setbrushcolor(clwhite);
  setpenwidth(4);
  if odd(i) then twoleg(x,y)
  else oneleg(x,y);
  setpenwidth(2);
  line(0,200,windowwidth,200);
  Redraw;
  Sleep(100);
  x+=10;
  i+=1;
until x>=windowwidth-25;
end.

@Turok123 · 24.05.2019, 18:10 **[ТС]**

Сергей Игнатьев, спасибо,но я сам что-то допёр и написал))

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
uses GraphABC;
procedure twoleg1(x,y:integer);
begin
circle(x-2,y,10);
ellipse(x-20,y+10,x+15,y+70);
line(x-5,y+70,x-20,y+100);
line(x-5,y+70,x+10,y+100);
line(x-3,y+20,x+9,y+50);
end;
procedure oneleg(x,y:integer);
begin
circle(x-2,y,10);
ellipse(x-20,y+10,x+15,y+70);
line(x-5,y+70,x-5,y+100);
line(x-3,y+20,x-3,y+50);
end;
procedure twoleg2(x,y:integer);
begin
circle(x-2,y,10);
ellipse(x-20,y+10,x+15,y+70);
line(x-5,y+70,x-20,y+100);
line(x-5,y+70,x+10,y+100);
line(x-3,y+20,x-11,y+50);
end;
var x,y,i:integer;
     n:boolean;
begin
x:=40;
y:=100;
i:=1;
n:=true;
SetWindowSize(640,480);
repeat
  LockDrawing;
  ClearWindow;
  Pen.Style := psClear;
  Brush.Color := clGreen;
  Rectangle(0,200,windowwidth,windowheight);
  Brush.Color := clWhite;
  Pen.Style := psSolid;
  setpenwidth(4);
  if (odd(i)) and (n) then twoleg1(x,y);
  if (odd(i)) and not (n) then twoleg2(x,y);
  if i mod 2 = 0 then
  begin
    oneleg(x,y);
    n:=not n;
  end;
  Redraw;
  Sleep(100);
  x+=10;
  i+=1;
until x>=windowwidth-25;
end.

От преподавателя прилетели новые сюрпризы вроде надень на человечка рубашку,штаны,овальную обувь,нарисовать небо,солнце и деревья.

@Сергей Игнатьев · 26.05.2019, 09:12

Штаны и обувь можно, конечно, но лень!

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
uses GraphABC;
var k:integer:=1;
//процедура рисования облака
procedure Cloud(x,y: integer);
begin
setpencolor(clwhite);
setbrushcolor(clwhite);
rectangle(x,y-20,x+100,y);
circle(x,y-10,10);
circle(x+100,y-10,10);
circle(x+20,y-20,20);
circle(x+80,y-20,20);
circle(x+50,y-30,20);
end;
//процедура рисования дерева
procedure tree(x1,y1: integer);
begin
setbrushcolor(clBrown);
rectangle(x1,y1,x1+20,y1+100);
setbrushcolor(clYellowGreen);
ellipse(x1-80,y1-250,x1+90,y1+20);
end;
procedure twoleg(x,y:integer);
begin
k:=-k;
circle(x-2,y,10);
ellipse(x-20,y+10,x+15,y+70);
line(x-5,y+70,x-20,y+100);
line(x-5,y+70,x+10,y+100);
if k>0 then line(x-5,y+25,x-20,y+60)else
line(x-5,y+25,x+10,y+60);
end;
procedure oneleg(x,y:integer);
begin
circle(x-2,y,10);
ellipse(x-20,y+10,x+15,y+70);
line(x-5,y+70,x-5,y+100);
line(x-5,y+25,x-5,y+60);
end;
var (x,y,i):=(40,200,1);
begin
SetWindowSize(640,480);
repeat
  LockDrawing;
    Clearwindow(clskyblue);  
    Cloud(250,60);
    Cloud(450,80);
    setbrushcolor(clyellow);
    circle(20,70,50);  
  setpencolor(clgreen); 
  setbrushcolor(clgreen);
  rectangle(0,300,640,480);
  setpencolor(clBlack);
  setbrushcolor(clwhite);
  setpenwidth(3);
  if odd(i) then twoleg(x,y)
  else oneleg(x,y);
  setpenwidth(2);
  tree(170,300);
  tree(390,350);
  Redraw;
  Sleep(100);
  x+=10;
  i+=1;
until x>=windowwidth-25;
end.

@Turok123 · 27.05.2019, 21:55 **[ТС]**

Сергей Игнатьев, В принципе рубашку преподаватель разрешил сделать с помощью клетчатой зарисовки тела эллипса), а вот рукава нарисовать,точнее чтоб болтались, не получается. Помогите.

@Сергей Игнатьев · 29.05.2019, 19:11

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
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
uses GraphABC;
var k:integer:=1;
var xr,yr:array [1..20,1..2]of integer; // массив координат яблок
const Nm=9;
type mass=array[1..Nm] of integer;
var dx:mass:=(-12,-15,5,8,13,0,0,0,0); //кепка
    dy:mass:=(-3,-8,-11,-7,-6,0,0,0,0);
    dx0:mass:=(-15,-20,-17,-10,8,10,11,12,10);  //куртка
    dy0:mass:=(55,30,15,10,17,17,20,30,55);
    dx1:mass:=(-10,8,12,0,0,0,0,0,0);  // воротник
    dy1:mass:=(10,20,15,0,0,0,0,0,0);    
    dx2:mass:=(-12,-13,-20,-10,2,5,0,0,0); //нога 1
    dy2:mass:= (60,70,100,98,73,60,0,0,0);  
    dx3:mass:=(-13,-13,8,18,5,5,0,0,0);//нога 2
    dy3:mass:=(60,70,100,98,73,60,0,0,0);
    dx4:mass:=(-13,-13,-6,4,5,5,0,0,0); //нога прямая (не используется)
    dy4:mass:= (60,70,100,100,73,60,0,0,0);    
    dx5:mass:=(-12,-24,-18,-1,0,0,0,0,0); //рука 1
    dy5:mass:=(25,60,62,31,0,0,0,0,0); 
    dx6:mass:=(2,14,8,-9,0,0,0,0,0);  //рука 2
    dy6:mass:=(25,60,62,31,0,0,0,0,0);
var (x,y,i):=(40,200,1);
//процедура рисования облака
procedure Cloud(x,y: integer);
begin
setpencolor(clwhite);
setbrushcolor(clwhite);
rectangle(x,y-20,x+100,y);
circle(x,y-10,10);
circle(x+100,y-10,10);
circle(x+20,y-20,20);
circle(x+80,y-20,20);
circle(x+50,y-30,20);
end;
//процедура рисования дерева
procedure tree(x1,y1: integer);
begin 
setpencolor(clgreen); 
setbrushcolor(clBrown);
rectangle(x1,y1,x1+20,y1+100);
setbrushcolor(clYellowGreen);
ellipse(x1-80,y1-250,x1+90,y1+20);
end;
procedure apples(n,x2,y2: integer);
begin //процедура рисования яблок
for var i:=1 to 15 do
  begin
  var  x1:=xr[i,n]+x2-50;
  var  y1:=yr[i,n]+y2-200;
  setpencolor(clred);
  setbrushcolor(clred);
  circle(x1,y1,10);
  setpencolor(clyellow);
  setbrushcolor(clyellow);
  circle(x1-4,y1-4,5);
  end;
end;
procedure BrushUp(x0,y0,n:integer;dx,dy:mass);
begin //прорисовка фигур
  var L := new List<Point>;
  for var i := 1 to n do 
  L.Add(new Point(x0 + dx[i], y0 + dy[i])); 
  Polygon(L.ToArray);
end;
procedure twoleg(x,y:integer);
begin
k:=-k;
setpencolor(clYellow);
setpenwidth(4);
line(x-5,y+60,x-5,y+70);
if k>0 then line(x-5,y+70,x-15,y+100) else
line(x-5,y+70,x+15,y+100);
end;
BEGIN
SetWindowSize(780,480);
for var m:=1 to 2 do
for var j:=1 to 15 do
   begin //заполнение деревьев яблоками
    xr[j,m]:=random(120);
    yr[j,m]:=random(180);
   end;  
repeat
  LockDrawing;
    Clearwindow(clskyblue);  
    Cloud(250,60);
    Cloud(450,80);
    Cloud(650,60);
    setbrushcolor(clyellow);
    circle(20,70,50);  
  setpencolor(clgreen); 
  setbrushcolor(clgreen);
  rectangle(0,305,780,480);
  setbrushcolor(clgray);
  rectangle(0,300,780,320);
  setpenwidth(1);
  setpencolor(clBlack);
  for var v:=1 to 20 do  line(v*40,300,v*40,320);
  setbrushcolor(clwhite);
  circle(x-2,y,10);
  setbrushcolor(clbrown); 
  Brush.Color := Color.Brown;
  BrushUp(x,y,5,dx,dy); //Рисуем кепку
  BrushUp(x,y,9,dx0,dy0); //Рисуем куртку
  Brush.Color := Color.yellow; 
  BrushUp(x,y,3,dx1,dy1); //Рисуем воротник
  Brush.Color := Color.yellow;
  rectangle(x-15,y+55,x+11,y+60);//Рисуем пояс
  setpencolor(clyellow);
  if k>0 then
  BrushUp(x,y,4,dx5,dy5) //Рисуем руки
  else BrushUp(x,y,4,dx6,dy6);
  circle(x-5,y+25,7);
  setpencolor(clBlack);
  Brush.Color := Color.brown;
  if k>0 then
   Begin
   BrushUp(x,y,6,dx2,dy2); BrushUp(x,y,6,dx3,dy3);  //Рисуем ноги
   end else
   Begin
   BrushUp(x,y,6,dx3,dy3); BrushUp(x,y,6,dx2,dy2);
    end;
  twoleg(x,y);
  setpenwidth(2);
  tree(170,300);
  tree(390,350);
  apples(1,170,300);
  apples(2,390,350);
  Redraw;
  Sleep(300);
  x+=10;
  i+=1;
until x>=windowwidth-25;
END.

Добавлено через 2 минуты
Turok123, это все , что могу. Улучшать можно до бесконечности !
Желаю удачи !

@Сергей Игнатьев · 31.05.2019, 03:41

Turok123, Я выполнил вашу просьбу на 300%, а в ответ тишина!?
Старуха Шапокляк учила: " Кто людям помогает - тот тратит время зря,
хорошими делами прославиться нельзя! "

@Turok123 · 31.05.2019, 21:31 **[ТС]**

Сергей Игнатьев, извините в тему мельком заглянул. Загружен был. Спасибо вам за всё.

Новые блоги и статьи Все статьи Все блоги /
PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .

@Turok123 4244 / 1743 / 249 Регистрация: 01.05.2013 Сообщений: 7,803
	24.05.2019, 13:59 [ТС]
	JuriiMW, здравствуйте. Нужно оказывается ещё чтобы при ходьбе руки болтались. Поможете? 0

@JuriiMW 5095 / 2661 / 2355 Регистрация: 10.12.2014 Сообщений: 10,059
	24.05.2019, 14:25
	Нет! 0

@Turok123 4244 / 1743 / 249 Регистрация: 01.05.2013 Сообщений: 7,803
	27.05.2019, 21:55 [ТС]
	Сергей Игнатьев, В принципе рубашку преподаватель разрешил сделать с помощью клетчатой зарисовки тела эллипса), а вот рукава нарисовать,точнее чтоб болтались, не получается. Помогите. 0

@Сергей Игнатьев 222 / 57 / 18 Регистрация: 13.03.2017 Сообщений: 295
	31.05.2019, 03:41
	Turok123, Я выполнил вашу просьбу на 300%, а в ответ тишина!? Старуха Шапокляк учила: " Кто людям помогает - тот тратит время зря, хорошими делами прославиться нельзя! " 1

@Turok123 4244 / 1743 / 249 Регистрация: 01.05.2013 Сообщений: 7,803
	31.05.2019, 21:31 [ТС]
	Сергей Игнатьев, извините в тему мельком заглянул. Загружен был. Спасибо вам за всё. 1