Версия для печати темы
Форум «Всё о Паскале» _ Теоретические вопросы _ Как заставить точку двигаться по кругу?
Автор: Gendalf 11.03.2006 1:38
Если вас не затруднит - ответьте! Как в графическом режиме нарисовать прямую, один конец которой лежит в центре окружности, а бругой - перемещается по её поверхности, через определённый промежуток времени. Но не точку на окружности мне нужно нарисовать. Её я нарисовал процедурой Arc с углом в один радиус.
Автор: APAL 11.03.2006 1:40
Уравнение окружности: X^2+Y^2=R^2
Автор: Gendalf 11.03.2006 1:46
Спасибо за помощь, APAL, но я уже так пробовал, он пишет переполнение стека. От этой ошибки я ни как не могу избавиться. Есть ли другой способ? Совсем забыл. Я пишу на Tp 7.0.
Автор: APAL 11.03.2006 1:55
Цитата(Gendalf @ 10.03.2006 21:46)
Спасибо за помощь, APAL, но я уже так пробовал, он пишет переполнение стека. От этой ошибки я ни как не могу избавиться. Есть ли другой способ? Совсем забыл. Я пишу на Tp 7.0.
С чего это вдруг переполнение стека??? Я думаю просто реализовано было все не очень правильно...
Автор: volvo 11.03.2006 1:55
http://forum.pascal.net.ru/index.php?showtopic=6562&hl=radar*
?
Автор: LOSOS 13.03.2006 13:56
Цитата(Gendalf @ 10.03.2006 21:38)
Если вас не затруднит - ответьте! Как в графическом режиме нарисовать прямую, один конец которой лежит в центре окружности, а бругой - перемещается по её поверхности, через определённый промежуток времени. Но не точку на окружности мне нужно нарисовать. Её я нарисовал процедурой Arc с углом в один радиус.
разбей окружность на четыре сектора и опиши случаи
я так когдато делал
Автор: volvo 13.03.2006 14:13
LOSOS, во-первых, не надо советовать так делать! Ты хочешь, чтобы человек вместо одной написал 4 программы? Зачем? Только потому, что ты с этим мучался, теперь все остальные тоже должны через это пройти? Все прекрасно делается безо всяких разбиений на сектора...
А во-вторых, ты по ссылке ходил?
Автор: LOSOS 13.03.2006 14:17
Цитата(volvo @ 13.03.2006 10:13)
LOSOS, во-первых, не надо советовать так делать! Ты хочешь, чтобы человек вместо одной написал 4 программы? Зачем? Только потому, что ты с этим мучался, теперь все остальные тоже должны через это пройти? Все прекрасно делается безо всяких разбиений на сектора...
А во-вторых, ты по ссылке ходил?
да посотрел но там тоже не коротко а на сектора когда разбиваешь просто тупо скопировал и слегка поменял
Автор: LOSOS 13.03.2006 18:04
Цитата(APAL @ 10.03.2006 21:40)
Уравнение окружности: X^2+Y^2=R^2
УРАВНЕНИЕ ОКРУЖНОСТИ ВыГЛЯДИТ ТАК: (x-a)^2+(y-b)^2=R^2 где (a,b) координаты центра
Автор: volvo 13.03.2006 18:11
Цитата
но там тоже не коротко
А знаешь, почему? Потому, что та программа позволяет ОДНОВРЕМЕННО отрисовывать до 10 (а может и больше) таких вот крутящихся "радаров"... Если делать для одного, то решение займет 3 строки...
Цитата
а на сектора когда разбиваешь просто тупо скопировал и слегка поменял
Вообще-то программировать с умом надо...
Автор: han 14.03.2006 13:13
а я использовал полярную систему координат...
---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)
если интересно - вот примерно так(см файл)
Прикрепленные файлы
point.pas ( 537 байт )
Кол-во скачиваний: 367
Автор: volvo 14.03.2006 13:19
han,
еще раз ссылку привести? Неужели трудно кликнуть, посмотреть, как СОВЕТУЮТ делать, а потом комментировать? Или ты не заметил, что там именно полярная система и используется?
Автор: han 14.03.2006 13:24
все все
больше не буду
Автор: Gendalf 20.03.2006 1:32
Извините, что долго не был на форуме, дела. Volvo за ссылку огромное спасибо, она мне очень помогла
Автор: where can i buy plaquenil withou 18.09.2021 10:32
Amoxil For Ear Infections
Автор: propecia online pharmacy new yor 29.10.2021 20:23
Non Prescription Viagra Reviews
Автор: best place to buy furosemide onl 10.11.2021 9:03
Priligy Modo De Usar
Автор: better business bureau online ph 16.11.2021 19:25
Cialis Medikament Bestellen