home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpm / basic / math.ark / UNIFMOT.BAS < prev   
Encoding:
BASIC Source File  |  1986-12-21  |  512 b   |  20 lines
  1. 10 DIM T(1002),S(1000),V(1000),A(1000)
  2. 20 INPUT "ACCELERATION FACTOR =";R
  3. 30 FOR N = 0 TO 1000
  4. 40 T(N) = N
  5. 50 NEXT N
  6. 60 FOR N = 1 TO 200
  7. 70 S(N) = R/2*T(N)^2
  8. 80 V(N) = (S(N)-S(N-1))/(T(N)-T(N-1))
  9. 90 A(N) = (V(N)-V(N-1))/(T(N)-T(N-1))
  10. 100 M = M + 1
  11. 110 NEXT N
  12. 120 FOR N = 1 TO M
  13. 130 LPRINT "N =";N;TAB(20)"S =";S(N)
  14. 140 LPRINT TAB(40);"V =";V(N)
  15. 150 LPRINT TAB(60);"A =";A(N)
  16. 160 NEXT N
  17. OR N = 1 TO M
  18. 130 LPRINT "N =";N;TAB(20)"S =";S(N)
  19. 140 LPRINT TAB(40);"V =";V(N)
  20. 150 LPRINT TAB(60);"A =";