Надзвичайно повільне Обертаном Венери відбувається в зворотньому напрямку, а Уран обертається, Ніби Лежачі на боці.
Сатурн, Юпітер и Уран крім кількох супутніків помітніх Розмірів мают безліч дрібніх супутніків, что Ніби зліваються в суцільні кільця. ЦІ супутники рухаються орбітамі, настолько около розташованімі до планети, что пріплівні сили НЕ дозволяють Їм об'єднатися в єдине Тіло.
2. ОПІВ ПРОГРАМИ
2.1 Загальна характеристика
Багат вінікає віпадків, коли нужно наочно продемонструваті рух планет Сонячної системи. Помощью цієї програми це легко сделать. Дана програма демонструє примерно рух планет вокруг Сонця.
Дана програма створ на мові програмування TURBO PASCAL, а такоже помощью Середовище програмування TURBO PASCAL або School pak.
Основна функція програми - продемонструваті рух планет вокруг Сонця.
Вона может буті Використана у різніх закладах (НАВЧАЛЬНОГО чі будь-якіх других).
Кож может буті Використана во время лекцій чі в других Навчальних або пізнавальних процесах.
Програма складається з двох частин:
тітульної Сторінки;
програми, яка демонструє рух планет.
2.2 Необхідні технічні засоби
Для запуску програми корістувачеві знадобляться Такі технічні засоби:
) комп ютер з характеристиками, что забезпечать Функціонування програми :) процесор 128 MHz;
б) оперативна пам ять (ОЗУ): чи не менше 64 Mb;
в) вільного місця на жорсткий диск у файловій системе NTFS: чи не менше чем 20 мб;
г) Кольоровий графічний дисплей, РОЗДІЛЬНА здатність дисплею 1024x768;
д) ведмедик;
) На комп ютері винна буті встановл один Із операційних систем:
а) Windows Server 2003;
б) Windows XP;
в) Windows Vista;
г) Windows 7;
2.3 Блок-схема основної алгоритмів Та структура програми
2.4 Опис процедур та обробніків
Створення тітульної Сторінки я організував так:
setbkcolor (0); (15); (6,6,634,474); (20,20,620,460); (4,0,1); (170,30, Міністерство освіти и науки України raquo ;); (70,55, Кам янець-Подільський коледж харчової промисловості НУХТ ); (4,0,4); (210,85, Курсова робота ); (250,115, на тему:); (50,140, ?? Розробка демонстраційної моделі руху ); (130,170, планет Сонячної системи ); (4,0,1); (390,225, Виконаю: ); ( 390,245, Студент 931 групи ); (390,265, спеціальності 5.05010101 ); (390,285, Твердохліб В.А. ); (390,335, Керівник: ); (390,355, Форкун В.П. ); (300,425, 2013 ); (3,0,1); (999); (390,415, Натісніть ENTER ); (390,435, для переходу raquo ;) ;;
Малювання мерехтлівіх зірок здійснюється помощью:
Randomize;
For i:=1 to 70 do (Random (640), Random (350), White);
Малювання орбіті здійснюється помощью:
For i:=1 to 100 do (320 + Round (RadOrb * cos ((i + VisualPage/5) * Pi/50 + 0.3)),
+ Round (RadOrb * Naklon * sin ((i + VisualPage/5) * Pi/50-Pi/2)), 15);
Малювання Сонця здійснюється процедурою:
PieSlice (310, 160, 0, 360, RadSun);
Малювання планети (ее паралелей и мерідіанів) ::=Ugol + DUgol; {Кут повороту планети относительно Сонця}:=Round (180 * Ugol/Pi) mod 360; :=320 + Round (RadOrb * cos ((Ugol + Pi/2 + 0.3))); {Координати}:=160 + Round (RadOrb * Naklon * sin (Ugol)); {центру планети}:=2.5-cos (Ugol + 0.3);
{коефіцієнт врахування віддаленості планети від спостерігача}:=Round (RadZem * CompressZem); {Поточний радіус планети}:=UgZem + DUgZem; {Кут повороту планети относительно своєї осі} i:=0 to 11 do {малювання мерідіанів}:=(UgZem + i * 30) mod 360; (90 lt; UgMer) and (UgMer lt; 270) {установка початкових и кінцевого} begin StAngle :=90; EndAngle:=270 end {кутів дуги} begin StAngle:=270; EndAngle:=90 end; {Еліпса мерідіана}:=(Grad + 220) mod 360; Ub:=(Grad + 400) mod 360;
{установка кольорів малювання затіненої и освітленої частин мерідіана}:=LightBlue; Ua lt;=Ub then if (Ua lt; UgMer) and (UgMer lt; Ub) then Color:=White; Ua gt; Ub then if (Ua lt; UgMer) or (UgMer lt; Ub) then Color:=White; (Color);:=round ((ZemPix * cos (UgMer * ...
