home *** CD-ROM | disk | FTP | other *** search
/ Play and Learn 2 / 19941.ZIP / 19941 / EDUCTORY / GEOGRAPY / M17.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1994-02-04  |  384 b   |  12 lines
  1. 0  CLS:PRINT
  2. 10   PRINT "DERIVATIVE"
  3. 20   PRINT 
  4. 30  DEF FNC(X)=X^2+COS(X): REM  - ENTER DEFFNC(X) HERE
  5. 40   PRINT "(ENTER X=99999 TO END PROGRAM)"
  6. 50   INPUT "DERIVATIVE AT X=";X1
  7. 70   IF X1 = 99999 THEN 160
  8. 80  D = 9.9999E-05
  9. 140   PRINT "                IS ";( FN C(X1 + D) -  FN C(X1)) / D
  10. 150   GOTO 50
  11. 160   RUN "MATH"
  12.