Изобразить движение тела брошенного по параболе под действием тяжести - QBasic

Узнай цену своей работы

Формулировка задачи:

Изобразить движение тела брошенного по параболе под действием тяжести

Решение задачи: «Изобразить движение тела брошенного по параболе под действием тяжести»

textual
Листинг программы
DEFSNG I, X-Y
CLS
SCREEN 12
WINDOW (0, 480)-(640, 0)
LINE (0, 55)-(639, 55), 10
 
x = 40
y = 400 - .004 * (x - 320) ^ 2
CIRCLE (x, y), 30, 14
FOR i = 1 TO 200000: NEXT i
 
FOR x = 40 TO 600
   y = 400 - .004 * (x - 320) ^ 2
   CIRCLE (x, y), 30, 14
   FOR i = 1 TO 20000: NEXT i
   CIRCLE (x, y), 30, 0
NEXT x
 
x = 600
y = 400 - .004 * (x - 320) ^ 2
CIRCLE (x, y), 30, 14
END

Оцени полезность:

7   голосов , оценка 4.429 из 5
Похожие ответы