 Движущийся рисунок, С использованием модуля Graph |
Прочтите прежде чем задавать вопрос!
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
  |
| MrDeath |
 16.03.2006 13:01
Сообщение
#1
|
|
Группа: Пользователи Сообщений: 5 Пол: Мужской Репутация:  0   |
Надо нарисовать рисунок колеса обозрения (см. прикреплённый файл). И что бы маленькие колёсики внутрии двигались по кругу. Вообщем статичный рисунок я нарисовал, а как заставить его двигаться - хз. ПРобывал пустить их по формуле круга но идёт несовпадения типов (реал в формле и интегер в кординатах).
Эскизы прикрепленных изображений 
|
   |
 
|
| volvo |
16.03.2006 13:12
Сообщение
#2
|
|
Гость |
Прикрепи программу, которую сделал...
Преобразование Real -> Integer делается через Round или Trunc ... |
|
|
|
| MrDeath |
17.03.2006 11:09
Сообщение
#3
|
|
Группа: Пользователи Сообщений: 5 Пол: Мужской Репутация: 0 |
Вот. То что в фигурных скобках - не смотрите.
Сделал по формуле круга. А и Б ввёл координаты центра - а маленький кружок езди в нижней части непонятно как. Клирдевайс специально не ставил что бы видеть по какой траектории кружок ездит. НО даже если получется заставить кружок ездить как надо - я хз как сделать таких кружков 7  Прикрепленные файлы 
RISUMOK.PAS ( 1.03 килобайт )
Кол-во скачиваний: 179 |
|
|
|
| volvo |
17.03.2006 12:08
Сообщение
#4
|
|
Гость |
Вот тут был:
Модуль Graph, подшипник ? Попробуй модифицировать программу, как тебе нужно, самостоятельно... |
|
|
|
|
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 28.07.2025 5:35 |