Міністерство освіти Російської Федерації
АНО
Міжнародний інститут «ІНФО-Рутенія»
Московський державний інститут сталі і сплавів
Курсова робота
по курсу: Алгоритмізація та програмування
Тема:
Розрахунок початкових координат об'єктів Raketa і Sputuik
р. Боровичі
Завдання
Перехоплення супутника ракетою. Супутник летить по круговій орбіті зліва направо. Ракета стартує з лівого нижнього кута екрану. Управління моментом старту і вектором швидкості ракети (швидкість постійна)
Ракета стартує з лівого нижнього кута екрану. Супутник летить зліва направо, починаючи з лівого верхнього кута екрану по круговій орбіті з центром в лівому нижньому кутку екрана і радіусом рівним висоті екрана. Супутник зображений у вигляді витягнутого трикутника. Ракета має малюнок у формі стрілки і управляється під дією натискання стрілок (LEFT або RIGHT - поворот ліворуч або праворуч). При контакті (визначається по відстані між об'єктами) супутник розпадається на фрагменти у вигляді гуртків.
DECLARATE SUB comm (vs, da, ar, com $)
обчислення команди на переміщення об'єкта Raketa ??p>
DECLARATE SUB coord (v, ar, dt, x, y)
обчислення нових координат об'єкту Raketa ??p>
DECLARATE SUB angle (ar, ang $)
обчислення кута розвороту об'єкта Raketa ??p>
DECLARATE SUB Raketa (d $, x, y, ang $, ar, xc.yc, r, st)
переміщення об'єкта RaketaSUB coord (x1, y1, t, dt, vx, vy, ang1 $)
обчислення нових координат об'єкту Sputnik
DECLARATE SUB Sputnik (x1, y1, st, do $, ang1 $)
переміщення об'єкта SputnikSUB contact (xc, yc, st, x1, y1)
реалізація контакту між об'єктами
SCREEN 9. WINDOWS (0, 0) - (800, 600). COLOR, 1
призначення синього кольору фону
t=0: dt=1
призначення відліку поточного часу t інтервалом dt
х=0: у=0
призначення початкової точки малювання об'єкта Raketa ??p>
v=10: vs=0
значення швидкості ракети постійно і інтервал зміни швидкості дорівнює нулю
ar=- 1.5708: da=.15
початкове значення кута розвороту ar об'єкта Raketa в радіанах і інтервал зміни кута da
d $=bu20 e15 r5 f15 d20 y17 g17 u20 br5
макет малюнка об'єкта Raketa (рядок оператора DRAW без символів зафарбовування фігури)
х1=0: y1=600
початкові координати супутника
ar1=- 1.5708: da1=.1
початкове значення кута ar1...