Реферат Розрахунок початкових координат об'єктів Raketa і Sputuik

Тема: Новые рефераты

tify"> ang $=«ta» + Ad $

формування фрагмента рядка оператора DRAW END SUB

SUB comm (vs, da, v, ar, com $)=6.2830 - число 2? i=l TO 1000

старт швидкість ракета перехоплення супутник

уповільнюючий цикл, необхідний для того, щоб натиснута клавіша була прийнята оператором INKFY $. Якщо не натиснута жодна клавіша, значення змінної соm $ одно порожній рядку і рух об'єкта «Ракета» триває зі старими значеннями параметрів v і аг

com $=INKEY;: IF com; <> «» THEN EXIT FORiRIGHTS (com $, I)=«M» THEN ar=ar - da

натиснута клавіша RIGHT, кут зменшився

IF RIGHTS (com $, 1)=«К» THEN ar=ar + da

натиснута клавіша LEFT, кут збільшився

IF ar> pi2 THEN ar=ar - pi2

контролюється повний оборот, так як значення кута не може перевищувати 2? по модулю

IF ar <-Pi2 THEN ar=ar + pi2 IF v> 0 THEN SOUND 37 + v * 500, .1

при збільшенні швидкості збільшується частота супроводжуючого звуку. END SUB

SUB contact (хс, ус, st, xl, yl

розрахунок умови контакту

DIM xo (10), yo (10), dxo (10), dyo (10)

dist=SQR ((x 1 - хс) ^ 2 + (yl - ус) ^ 2)

розрахунок відстані між об'єктами

IF dist < 50 THEN

при відстані менше 50 пікселів фіксується контакт (прапор st дорівнює. одиниці) st=1

RANDOMIZE TIMER

FOR i=l TO 10

розрахунок початкових координат фрагментів об'єкта Sputuik

xo (i)=x1: yo (i)=yl (i)=10 * RND: dyo (i)=20 * RNDii=l TO 10

зображення фрагментів у вигляді розлітаються білих гуртків радіуса 5 пікселів (збільшення координат їх центрів випадкові, тому кожен гурток переміщається у своєму напрямку)

xo (i)=xo (i) + dxo (i): yo (i)=yo (i) + dyo (i) (xo (i), yo (i)), 5iWHILE xo (1) < 1000 OR yo (1) < 750

рух фрагментів припиняється, коли перший фрагмент досягне межі екрану

END IFSUBcoord (v, ar, dt, x, y)

координати х і у об'єкту Raketa розраховуються за законами механіки

dx =-v * SIN (ar) * dt: dy=v * COS (ar) * dt=x + dx: у=у + dy

END SUBcoord 1 (xl, yl, t, dt, i, vx, vy, angl $)

розрахунок координат руху об'єкта Sputnik х1 і у1 (розраховуються

за законами механіки)

x1=600 * sin (ang1)=600 * cos (ang1)

розраховуються координати об'єкта Sputnik

vy=5 * SIN (ang1)

vx=5 * COS (ang1)