Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/4: Рейтинг темы: голосов - 4, средняя оценка - 4.50
русский
0 / 0 / 0
Регистрация: 21.02.2010
Сообщений: 16
#1

Задать движение для изображения по траектории

18.04.2011, 22:07. Просмотров 658. Ответов 1
Метки нет (Все метки)

Необходимо задать движение для данного изображения..вправо по траектории
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
uses graph;
var
   driver,mode:integer;
   i:string;
begin
     driver :=0;
     initgraph(driver,mode,'egavga.bgi');
 
     setbkcolor(3); 
     setcolor(8);
 
     setfillstyle(1,7); 
 
     fillellipse(300,280,50,70); 
     circle(300,165,50);
 
     line(302,165,304,180);
     line(304,180,300,179);
 
     arc(300,175,190,350,25);
     circle(280,160,6);
     circle(320,160,6);  
     fillellipse(270,90,20,45);
     fillellipse(330,90,20,45);
     setfillstyle(1,7);
 
     fillellipse(320,370,18,30); 
     fillellipse(280,370,18,30);
 
     fillellipse(370,240,30,18);     
     fillellipse(230,240,30,18);
 
     floodfill(200,130,8);
     floodfill(300,165,8);
     floodfill(360,165,8);
 
     setfillstyle(1,14);
     line(351,300,251,300);   
     floodfill(300,280,8);
     setfillstyle(1,0);
        setfillstyle(1,15);
       fillellipse(270,90,15,35);
     fillellipse(330,90,15,35);
     setfillstyle(1,1);
     floodfill(280,160,8);
     floodfill(320,160,8);
     floodfill(405,165,8);
     floodfill(195,165,8);
     line(0,400,700,400);
     setfillstyle(1,2);
     floodfill(20,450,8);
     outtextxy(285,150,'krolik');
     readln;
     readln(i);
     setfillstyle(1,14);
     floodfill(340,160,1);
     readln;
     closegraph;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
18.04.2011, 22:07
Ответы с готовыми решениями:

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

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

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

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

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

1
LeDep
74 / 74 / 44
Регистрация: 12.02.2011
Сообщений: 380
18.04.2011, 22:55 #2
если совсем уж просто - сделай 2 цикла и прибавляй к каждой линии и дуге .
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
18.04.2011, 22:55

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

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

Анимация: Движение точки по заданной траектории
Прошу помочь с программой. Движение точки(или круга) по заданной траектории.


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

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

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