10 rem this program performs numerical integration to calculate the
20 rem speed and distance of fall as a function of time for a
30 rem freely-falling body
40 print "Enter the total time of fall and the number of intervals"
50 input "Total time = ";tt
60 input "Number of intervals = ";n
70 input "What is the mass of the body?";m
80 input "What is the coefficient of resistance?";k
90 dt = tt/n : rem dt is delta t
100 g = 9.8
110 i = 0 : t = 0 : y = 0 : v = 0 : a = 9.8 : rem next initialize other variables
120 rem i is counter, t is time, x is distance, v is velocity, a is accel.
130 print "   i      t          a              v              y"
140 print "___________________________________________________________"
150 for i = 0 to n
160 print using "####";i;" ";
170 print using "####.###";t,a,v,y
180 t = t+dt
190 v = v+a*dt
200 y = y+v*dt
210 a = g-(k/m)*v^2
220 next i
230 end