Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 10, средняя оценка - 5.00
Alist3r
0 / 0 / 0
Регистрация: 27.01.2014
Сообщений: 6
#1

Нарисовать мальчика, кидающего мяч в кольцо - Pascal ABC

27.01.2014, 09:30. Просмотров 1583. Ответов 3
Метки нет (Все метки)

Нарисовать мальчика, кидающего мяч в кольцо. Нарисовал через 3 изображения, a нужно по синусоиде что бы мяч летел в кольцо плавно. Pascal ABC
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
uses crt, GraphABC;
var
  x,y:integer;
begin
 
for x := 1 to 180 do
 begin
 x:=x+1; y:=y-2;
   clearwindow;
   {голова}
    SetPenColor(clblack);
SetBrushColor(7777777);
 circle(100,200,18);
 circle(105,195,3);
 circle(111,195,3);
 circle(105,195,2);
 circle(111,195,2);
 line(108,200,108,205);
 {руки, тело}
 line(100,218,100,290);
 line(100,240,130,240);
 line(100,240,130,225);
 {ноги}
 line(100,290,90,320);
 line(100,290,110,320);
 {щит,кольцо}
SetBrushColor(9545634);
 rectangle(300,30,450,120);
SetBrushColor(467465);
 rectangle(360,120,390,350);
SetBrushColor(4771777);
 circle( 375,100,25);
 line(370,75,370,65);
 line(380,75,380,65);
 {волосы}
 SetPenColor(clbrown);
 line(97,183,86,178);
 line(97,183,93,176);
 line(97,183,99,174);
  {мяч}
 SetBrushColor(60128);
 circle(147+x,235+y,20);
  Delay (10);
 end;
 for y:=50 to 93 do   begin
clearwindow;
   {голова}
    SetPenColor(clblack);
SetBrushColor(7777777);
 circle(100,200,18);
 circle(105,195,3);
 circle(111,195,3);
 circle(105,195,2);
 circle(111,195,2);
  line(108,200,108,205);
 {руки, тело}
 line(100,218,100,290);
 line(100,240,130,240);
 line(100,240,130,225);
 {ноги}
 line(100,290,90,320);
 line(100,290,110,320);
 {щит,кольцо}
SetBrushColor(9545634);
 rectangle(300,30,450,120);
SetBrushColor(467465);
 rectangle(360,120,390,350);
SetBrushColor(4771777);
 circle( 375,100,25);
 line(370,75,370,65);
 line(380,75,380,65);
 {волосы}
 SetPenColor(clbrown);
 line(97,183,86,178);
 line(97,183,93,176);
 line(97,183,99,174);
 x:=x+2;  y:=y+1;
  SetBrushColor(60128);
 circle(148+x,10+y,20);
  Delay (15); {мяч}
   end;
   
for y:=103 to 350 do begin
clearwindow;
   {голова}
    SetPenColor(clblack);
SetBrushColor(7777777);
 circle(100,200,18);
 circle(105,195,3);
 circle(111,195,3);
 circle(105,195,2);
 circle(111,195,2);
  line(108,200,108,205);
 {руки, тело}
 line(100,218,100,290);
 line(100,240,130,240);
 line(100,240,130,225);
 {ноги}
 line(100,290,90,320);
 line(100,290,110,320);
 {щит,кольцо}
SetBrushColor(9545634);
 rectangle(300,30,450,120);
SetBrushColor(467465);
 rectangle(360,120,390,350);
SetBrushColor(4771777);
 circle( 375,100,25);
 line(370,75,370,65);
 line(380,75,380,65);
 {волосы}
 SetPenColor(clbrown);
 line(97,183,86,178);
 line(97,183,93,176);
 line(97,183,99,174);
 x:=x+2;  y:=y+1;
  SetBrushColor(60128);
 circle(375,10+y,20);
  Delay (10); {мяч}
   end;
  end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.01.2014, 09:30
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Нарисовать мальчика, кидающего мяч в кольцо (Pascal ABC):

Нарисовать мальчика и девочку
Нарисовать мальчика и девочку, у девочки в руке должна быть сумочка, они должны...

Определить самого болеющего мальчика
Сформировать запись,имеющую следующую структуру type ребенок=record...

Изобразить мальчика, рядом с которым падает мячик
Не соображаю в этом. Завтра уже нужно сдать. Выручайте, ребят. Нужно...

Подсчитать, сколько патронов у мальчика осталось и в какую цифру он чаще всего попадал
Здравствуйте, помогите, пожалуйста, с решением вот такой задачи: "Мальчик...

Двум солдатам необходимо переправиться на другой берег, в лодке катаются два мальчика
Задача: Двум солдатам необходимо переправиться на другой берег,в лодке катаются...

Игра в мяч.
Задача 1. Игра в мяч Дети встали в круг и бросают друг другу мяч. Известно,...

3
Puporev
Модератор
54149 / 41782 / 28889
Регистрация: 18.05.2008
Сообщений: 98,331
27.01.2014, 11:26 #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
uses GraphABC;
procedure fon;
begin
{ãîëîâГ*}
SetPenColor(clblack);
SetBrushColor(7777777);
circle(100,200,18);
circle(105,195,3);
circle(111,195,3);
circle(105,195,2);
circle(111,195,2);
line(108,200,108,205);
{ðóêè, òåëî}
line(100,218,100,290);
line(100,240,130,240);
line(100,240,130,225);
{Г*îãè}
line(100,290,90,320);
line(100,290,110,320);
{ùèò,êîëüöî}
SetBrushColor(9545634);
rectangle(300,30,450,120);
SetBrushColor(467465);
rectangle(360,120,390,350);
SetBrushColor(4771777);
circle( 375,100,25);
line(370,75,370,65);
line(380,75,380,65);
{âîëîñû}
SetPenColor(clbrown);
line(97,183,86,178);
line(97,183,93,176);
line(97,183,99,174);
end;
procedure myach(x,y:integer);
var y1:integer;
begin
SetBrushColor(60128);
circle(x,y,20);
end;
var x,y:integer;
begin
x:=148;
y:=235;
repeat
clearwindow;
fon;
if x<=374 then
 begin
  x:=x+2;
  y:=235-round(sin((x-148)/100)*180);
 end
else y:=y+4;
myach(x,y);
sleep(50);
redraw
until y>330;
end.
1
Alist3r
0 / 0 / 0
Регистрация: 27.01.2014
Сообщений: 6
27.01.2014, 11:33  [ТС] #3
Большое спасибо
0
Puporev
Модератор
54149 / 41782 / 28889
Регистрация: 18.05.2008
Сообщений: 98,331
27.01.2014, 11:37 #4
Слушай, пропустил я строку
Pascal
1
2
3
y:=235;
lockdrawing;//это вставь
repeat
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
27.01.2014, 11:37
Привет! Вот еще темы с решениями:

Скачущий мяч
Нужна анимация прыгающего на плоскости мяча:)

Желательно обычный мяч
Помогите создать простую графику в паскале! Желательно обычный мяч. За ранее...

забить мяч в ворота
Помогите забить мяч в варота! После пусть выйдет надпись гоол! Очень надо...

Изобразить мяч, который прыгает
Есть тут 2 задачки , графику в паскале я знаю на уровне рисования...


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

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru