|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
19.05.2010, 22:32 | #1 |
Пользователь
Регистрация: 14.03.2010
Сообщений: 18
|
Работа с канвой Delphi (Математический расчёт)
Тут вопрос возник. Нужно математически просчитать ,а у меня голова не варит, да и бегаю сдаю другие предметы. Посмотрите исходник, кому не лень, может что-то сообразите.)
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 нсп, к_орб, к_спут) кц все кон |
20.05.2010, 10:13 | #2 |
Форумчанин
Регистрация: 04.05.2010
Сообщений: 495
|
Нажми на весы, поставь +
Для благодарностей : WebMoney WMR R252732729948 |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Математический маятник | StudeHt | Помощь студентам | 0 | 15.03.2010 16:48 |
Расчёт проходного балла (работа с массивами и цикл в Excel без VB) | dark.angel | Microsoft Office Excel | 6 | 23.02.2010 23:27 |
как работать с канвой | лорд преисподней | Помощь студентам | 10 | 26.11.2009 19:35 |
Математический софт! | Mr.User | Софт | 4 | 08.12.2007 06:51 |