Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 19.05.2010, 21:44   #1
Dancewithevil
Пользователь
 
Регистрация: 14.03.2010
Сообщений: 18
По умолчанию Нарисовать спутники возле планет

Тут вопрос возник. Нужно математически просчитать ,а у меня голова не варит, да и бегаю сдаю другие предметы. Посмотрите исходник, кому не лень, может что-то сообразите.)
http://www.fayloobmennik.net/31590

само задание:

Имеется центральная планета П с рядом спутников, у каждого из которых свои спутники, у тех - свои и т.д. Очевидно, что каждый спутник может рассматриваться как планета с соответствующими спутниками. Изобразить на экране модель планетарной системы, подчиняющейся данному алгоритму, если уровней вложенности N, а соответствующий алгоритм изображения имеет вид:
алг Планета (арг цел x, y, рад, н, нсп, вещ к_орб, к_спут)
// х, у - координаты планеты; рад - ее радиус
// нсп - число спутников у каждой планеты
// к_спут - отношение радиуса спутника к радиусу “своей” планеты
// к_орб - то же для радиуса орбиты спутников.
нач цел i, x1, e1, вещ угол, рад_орб
если н>0 то
поз (х,у) // центр планеты
окружность (рад) // планета
рад_орб := рад*к_орб //радиус орбиты спутников
угол := 6.28 / нсп //угол между спутниками
нц для i от 1 до нсп //для каждого спутника
x1 := x + рад_орб*cos (угол*i) // координаты центра i-го спутника
у1 := y + рад_орб*sin (угол*i)
// вызываем алгоритм Планета с новыми аргументами
Планета (x1, y1, int(рад*к_спут), н-1 нсп, к_орб, к_спут)
кц
все
кон
Dancewithevil вне форума Ответить с цитированием
Старый 19.05.2010, 21:59   #2
W0LF
Форумчанин
 
Аватар для W0LF
 
Регистрация: 28.03.2008
Сообщений: 940
По умолчанию

1. Тут вам не кто не будет писать программу!!!
2. Создайте тему в ветке "Помощь студентам" и задайте вопрос который вас интересует и возможно вам помогут.
3. Не хотите заморачиваться - идите к фрилансерам, за плату они вам напишут, возможно...
W0LF вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
С. Нарисовать Ромб Николай Денисюк Помощь студентам 4 13.11.2015 17:55
нарисовать guverr Общие вопросы Delphi 1 29.04.2010 10:23
Нарисовать треуголник в си Гамбит Помощь студентам 2 05.03.2010 22:33
Нарисовать карандаш Настенька..Блонди Общие вопросы Delphi 6 21.05.2009 11:28