home *** CD-ROM | disk | FTP | other *** search
/ Play and Learn 2 / 19941.ZIP / 19941 / EDUCTORY / GEOGRAPY / M16.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1994-02-04  |  512 b   |  21 lines
  1. 0  CLS:PRINT
  2. 10   PRINT "INTEGRATION: TRAPEZOIDAL RULE"
  3. 20   PRINT 
  4. 30   DEF  FNC(X) = X ^ 3
  5. 40   PRINT "(ENTER 0,0 TO END PROGRAM)"
  6. 50   PRINT "INTEGRATION LIMITS (LOWER, UPPER)";
  7. 60   INPUT A,B
  8. 70   IF A = B THEN 190
  9. 80   PRINT "NUMBER OF INTERVALS";
  10. 90   INPUT N
  11. 100  I = 0
  12. 110  D = (B - A) / N
  13. 120   FOR J = A TO B STEP D
  14. 130  I = I +  FNC(J)
  15. 140   NEXT J
  16. 150  I = (I - ( FNC (A) +  FNC(B)) / 2) * D
  17. 160   PRINT "INTEGRAL = ";I
  18. 170   PRINT 
  19. 180   GOTO 50
  20. 190   RUN "MATH"
  21.