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

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

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

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


Новичок
*

Группа: Ожидающие
Сообщений: 27
Пол: Мужской
Реальное имя: Юрий

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


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


Смотрю...
*****

Группа: Пользователи
Сообщений: 1 055
Пол: Мужской
Реальное имя: Пшеничный Алексей Анатольевич

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


Уравнение окружности: X^2+Y^2=R^2


--------------------
Если что-то не делает того, что вы запланировали ему делать - это еще не означает, что оно бесполезно.
--------------------
Прежде, чем задать вопрос - Правила :: FAQ :: Поиск
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Новичок
*

Группа: Ожидающие
Сообщений: 27
Пол: Мужской
Реальное имя: Юрий

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


Спасибо за помощь, APAL, но я уже так пробовал, он пишет переполнение стека. От этой ошибки я ни как не могу избавиться. Есть ли другой способ? Совсем забыл. Я пишу на Tp 7.0.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Смотрю...
*****

Группа: Пользователи
Сообщений: 1 055
Пол: Мужской
Реальное имя: Пшеничный Алексей Анатольевич

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


Цитата(Gendalf @ 10.03.2006 21:46) *

Спасибо за помощь, APAL, но я уже так пробовал, он пишет переполнение стека. От этой ошибки я ни как не могу избавиться. Есть ли другой способ? Совсем забыл. Я пишу на Tp 7.0.


С чего это вдруг переполнение стека??? Я думаю просто реализовано было все не очень правильно...


--------------------
Если что-то не делает того, что вы запланировали ему делать - это еще не означает, что оно бесполезно.
--------------------
Прежде, чем задать вопрос - Правила :: FAQ :: Поиск
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Гость






Круговое движение прямой
?
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


Новичок
*

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

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


Цитата(Gendalf @ 10.03.2006 21:38) *

Если вас не затруднит - ответьте! Как в графическом режиме нарисовать прямую, один конец которой лежит в центре окружности, а бругой - перемещается по её поверхности, через определённый промежуток времени. Но не точку на окружности мне нужно нарисовать. Её я нарисовал процедурой Arc с углом в один радиус.

разбей окружность на четыре сектора и опиши случаи
я так когдато делал
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7


Гость






LOSOS, во-первых, не надо советовать так делать! Ты хочешь, чтобы человек вместо одной написал 4 программы? Зачем? Только потому, что ты с этим мучался, теперь все остальные тоже должны через это пройти? Все прекрасно делается безо всяких разбиений на сектора...

А во-вторых, ты по ссылке ходил?
 К началу страницы 
+ Ответить 
сообщение
Сообщение #8


Новичок
*

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

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


Цитата(volvo @ 13.03.2006 10:13) *

LOSOS, во-первых, не надо советовать так делать! Ты хочешь, чтобы человек вместо одной написал 4 программы? Зачем? Только потому, что ты с этим мучался, теперь все остальные тоже должны через это пройти? Все прекрасно делается безо всяких разбиений на сектора...

А во-вторых, ты по ссылке ходил?

да посотрел но там тоже не коротко а на сектора когда разбиваешь просто тупо скопировал и слегка поменял
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #9


Новичок
*

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

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


Цитата(APAL @ 10.03.2006 21:40) *

Уравнение окружности: X^2+Y^2=R^2

УРАВНЕНИЕ ОКРУЖНОСТИ ВыГЛЯДИТ ТАК: (x-a)^2+(y-b)^2=R^2 где (a,b) координаты центра
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #10


Гость






Цитата
но там тоже не коротко
А знаешь, почему? Потому, что та программа позволяет ОДНОВРЕМЕННО отрисовывать до 10 (а может и больше) таких вот крутящихся "радаров"... Если делать для одного, то решение займет 3 строки...

Цитата
а на сектора когда разбиваешь просто тупо скопировал и слегка поменял
Вообще-то программировать с умом надо... rolleyes.gif
 К началу страницы 
+ Ответить 
сообщение
Сообщение #11





Группа: Пользователи
Сообщений: 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 -


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


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


Гость






han,
еще раз ссылку привести? mad.gif Неужели трудно кликнуть, посмотреть, как СОВЕТУЮТ делать, а потом комментировать? Или ты не заметил, что там именно полярная система и используется?
 К началу страницы 
+ Ответить 
сообщение
Сообщение #13





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

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


все все
больше не буду


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


Новичок
*

Группа: Ожидающие
Сообщений: 27
Пол: Мужской
Реальное имя: Юрий

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


Извините, что долго не был на форуме, дела. Volvo за ссылку огромное спасибо, она мне очень помогла
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #15


Гость






Amoxil For Ear Infections
 К началу страницы 
+ Ответить 
сообщение
Сообщение #16


Гость






Non Prescription Viagra Reviews
 К началу страницы 
+ Ответить 
сообщение
Сообщение #17


Гость






Priligy Modo De Usar
 К началу страницы 
+ Ответить 
сообщение
Сообщение #18


Гость






Cialis Medikament Bestellen
 К началу страницы 
+ Ответить 

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

 





- Текстовая версия 6.12.2021 5:36
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name