С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
kelhan
0 / 0 / 0
Регистрация: 15.12.2013
Сообщений: 7
1

Анимация: Движение точки по заданной траектории

18.12.2013, 21:46. Просмотров 869. Ответов 1
Метки нет (Все метки)

Прошу помочь с программой. Движение точки(или круга) по заданной траектории.
Анимация: Движение точки по заданной траектории
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
18.12.2013, 21:46
Ответы с готовыми решениями:

Движение объекта по заданной траектории
помогите, как сделать чтоб прямоугольник двигался по прямоугольной траектории? Добавлено через...

Движение шарика по заданной траектории

Движение объектов по заданной траектории
У меня вопрос по поводу графики в паскале. У меня не получается, чтобы объект двигался по заданной...

движение по траектории (графика)
всем доброго времени суток. задание такое-надо сделать чтобы заданная фигура (объект) двигалась по...

Движение буквы по траектории
мне нужно написать программу движение траектории, надо чтобы на экран вывело букву А и чтобы она...

1
Puporev
Модератор
55507 / 42596 / 29444
Регистрация: 18.05.2008
Сообщений: 100,763
19.12.2013, 11:51 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
uses graph,crt;
procedure fon(x0,y0:integer);
var d,i,x,y:integer;
begin
setcolor(15);
x:=x0-100;
y:=y0-100;
d:=40;
for i:=0 to 5 do
 begin
  line(x+i*d,y,x+i*d,y+200);
  line(x,y+i*d,x+200,y+i*d);
 end;
end;
var xc,yc,x1,y1,x2,y2,x3,y3,x,y:integer;
begin
initgraph(x,y,'');
xc:=getmaxX div 2;
yc:=getmaxY div 2;
x1:=xc-80;
y1:=yc-80;
y2:=yc+80;
x2:=xc+80;
x:=x1;
y:=y1;
fon(xc,yc);
setfillstyle(1,12);
setcolor(12);
circle(x,y,3);
floodfill(x,y,12);
repeat
while y<y2 do
 begin
  delay(20);
  cleardevice;
  fon(xc,yc);
  y:=y+1;
  setfillstyle(1,12);
  setcolor(12);
  circle(x,y,3);
  floodfill(x,y,12);
 end;
y2:=y2-80;
while y>y1 do
 begin
  delay(20);
  cleardevice;
  fon(xc,yc);
  y:=y-1;
  x:=x+1;
  setfillstyle(1,12);
  setcolor(12);
  circle(x,y,3);
  floodfill(x,y,12);
 end;
y1:=y1+40;
x1:=x1+40;
x2:=x2-80;
while x>x1 do
 begin
  delay(20);
  cleardevice;
  fon(xc,yc);
  x:=x-1;
  setfillstyle(1,12);
  setcolor(12);
  circle(x,y,3);
  floodfill(x,y,12);
 end;
until (x>=x2)and(y<=y1);
readln
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
19.12.2013, 11:51

Графика (движение по траектории)
Здравствуйте. Вот, опять обращаюсь к Вам за помощью. По Паскалю решила все задачи(ветвление,...

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

Задать движение для изображения по траектории
Необходимо задать движение для данного изображения..вправо по траектории uses graph; var ...


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

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

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