Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.81/16: Рейтинг темы: голосов - 16, средняя оценка - 4.81
0 / 0 / 0
Регистрация: 27.01.2012
Сообщений: 4
1

Движение картинки горизонтально слева направо

27.01.2012, 12:24. Показов 3298. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
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
uses graphABC; 
var x, y, i: integer; 
begin 
 
x:=0; y:=0; 
for i:=1 to 10 do 
begin 
clearWindow (clSkyBlue); 
SetBrushColor (clBrown); 
SetPenColor (clBrown); 
circle (170+x,170+y, 50); 
circle (90+x,170+y, 50); 
circle (250+x,170+y, 50); 
circle (170+x,260+y, 50); 
Pie(95+x,275+y,50,220,35); 
Pie(245+x,275+y,50,-35,135); 
Pie(115+x,340+y,50,0,180); 
Pie(225+x,340+y,50,0,180); 
SetPenColor (clBlack); 
circle (150+x,160+y, 10); 
circle (190+x,160+y, 10); 
line (150+x,150+y,150+x,170+y); 
line (190+x,150+y,190+x,170+y); 
floodfill(145+x,160+y,clwhite); 
floodfill(185+x,160+y,clwhite); 
floodfill(155+x,160+y,clBlack); 
floodfill(195+x,160+y,clBlack); 
line (170+x,175+y,175+x,185+y); 
line (175+x,185+y,165+x,185+y); 
line (165+x,185+y,170+x,175+y); 
floodfill(170+x,180+y,clBlack); 
Arc(170+x,180+y,30,0,-180); 
x:=x+20; 
y:=y+20; 
sleep (100); 
redraw; 
end; 
for i:=1 to 10 do 
begin 
 
clearWindow (clSkyBlue); 
SetBrushColor (clBrown); 
SetPenColor (clBrown); 
circle (170+x,170+y, 50); 
circle (90+x,170+y, 50); 
circle (250+x,170+y, 50); 
circle (170+x,260+y, 50); 
Pie(95+x,275+y,50,220,35); 
Pie(245+x,275+y,50,-35,135); 
Pie(115+x,340+y,50,0,180); 
Pie(225+x,340+y,50,0,180); 
SetPenColor (clBlack); 
circle (150+x,160+y, 10); 
circle (190+x,160+y, 10); 
line (150+x,150+y,150+x,170+y); 
line (190+x,150+y,190+x,170+y); 
floodfill(145+x,160+y,clwhite); 
floodfill(185+x,160+y,clwhite); 
floodfill(155+x,160+y,clBlack); 
floodfill(195+x,160+y,clBlack); 
line (170+x,175+y,175+x,185+y); 
line (175+x,185+y,165+x,185+y); 
line (165+x,185+y,170+x,175+y); 
floodfill(170+x,180+y,clBlack); 
Arc(170+x,180+y,30,0,-180); 
x:=x+20; 
y:=y-20; 
sleep (100); 
 
redraw; 
end; 
end.

Помогите переделать, надо чтобы чебурашка двигался с лева на право, умоляю помогите. Надо, чтобы было по прямой

Добавлено через 22 минуты
тема закрыта, я дурак сам не догодался сперва как)))
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
27.01.2012, 12:24
Ответы с готовыми решениями:

Движение снеговика слева направо
Program Zhenya; uses graphABC; begin FloodFill(50,80,clYellow); setpenwidth(3);...

Движущуюя точка слева направо
Помоготе задать движение точке с лева на право.program nomber1; uses GraphABC; begin...

Вычислить 1-1/2+1/3-...1/9999 последовательно слева направо
Вычислить 1-1/2+1/3-...1/9999 последовательно слева направо.

Сложить по mod 10 слева направо цифры
Сложить по mod 10 слева направо соответствующие цифры двух натуральных чисел k и n: 375 + 1436...

1
Puporev
27.01.2012, 12:44     Движение картинки горизонтально слева направо
  #2

Не по теме:

Цитата Сообщение от misha11.94 Посмотреть сообщение
я дурак сам не догодался сперва как)))
Раз догадался, значит не дурак...

0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
27.01.2012, 12:44

По экрану слева направо в течение 60 сек движется стрелка
По экрану слева направо в течение 60 сек движется стрелка =>, скорость начала в два раза выше...

Заполнить двумерный массив по спирали слева направо и сверху вниз
Заполнить двумерный массива размером 5x5 следующим образом (по спирали слева направо и сверху...

Сосчитать количество пятизначных чисел, которое одинаково читается слева направо
Сосчитать количество пятизначных чисел, которое одинаково читается с лева на право , так и справа...

Буква «Н» перемещается слева направо и уменьшается к концу движения в два раза
буква «Н» перемещается слева направо и уменьшается к концу движения в два раза


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru