Изобразить движение тела брошенного по параболе под действием тяжести - 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