IPB
ЛогинПароль:

> Правила раздела!

1. Заголовок или название темы должно быть информативным !
2. Все тексты фрагментов программ должны помещаться в теги [code] ... [/code] или [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ" и используйте ПОИСК !
4. НЕ используйте форум для личного общения!
5. Самое главное - это раздел теоретический, т.е. никаких задач и программ (за исключением небольших фрагментов) - для этого есть отдельный раздел!

> Как заставить точку двигаться по кругу?, Вграфическом режиме нарисовать вращающийся радиус окружности
Gendalf
сообщение 10.03.2006 21:38
Сообщение #1


Гость






Если вас не затруднит - ответьте! Как в графическом режиме нарисовать прямую, один конец которой лежит в центре окружности, а бругой - перемещается по её поверхности, через определённый промежуток времени. Но не точку на окружности мне нужно нарисовать. Её я нарисовал процедурой Arc с углом в один радиус.
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
han
сообщение 14.03.2006 9:13
Сообщение #2





Группа: Пользователи
Сообщений: 9
Пол: Мужской
Реальное имя: Хан Башкирский

Репутация: -  0  +


а я использовал полярную систему координат...
---R=x*cos(a)+y*sin(a)---
честно говоря не помню точно, как это выглядело, но работало все прекрасно...

здесь ведь надо указать "следующие" координаты точки и практически все...
поправьте меня, если я не прав, но по моему так проще всего...

Цитата(han @ 14.03.2006 11:08) *


---R=x*cos(a)+y*sin(a)---


прошу прощения за ошибку:

x=x0+r*cos(a)
y=y0+r*sin(a)


если интересно - вот примерно так(см файл)

Сообщение отредактировано: han - 14.03.2006 9:22


Прикрепленные файлы
Прикрепленный файл  point.pas ( 537 байт ) Кол-во скачиваний: 181


--------------------
завтра будет.
лучше...
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 21.06.2025 13:23
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"