home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Educational / SLOPE-FORMULA (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  640 b   |  32 lines
  1. 90 PRINTCHR$(147)
  2. 100 PRINT
  3. 110 PRINT"THIS PROGRAM COMPUTES THE SLOPE OF A"
  4. 120 PRINT"POLYNOMIAL P(X) FOR ANY X."
  5. 130 PRINT
  6. 140 PRINT"WHAT IS THE DEGREE OF THE POLYNOMIAL";
  7. 150 INPUT N
  8. 160 PRINT"ENTER THE COEFFICIENTS."
  9. 170 FOR I=N TO 0 STEP -1
  10. 180 PRINT "X^";I;
  11. 190 INPUT A(I)
  12. 200 NEXT I
  13. 210 PRINT
  14. 220 PRINT "AT WHAT X VALUE DO YOU WANT THE SLOPE";
  15. 230 INPUT X
  16. 240 LET D=0
  17. 250 FORI=N TO 1 STEP -1
  18. 260 LET D = D + I * A(I) * X^(I-1)
  19. 270 NEXT I
  20. 280 PRINT
  21. 290 PRINT"SLOPE AT X = ";X;" IS ";D
  22. 300 PRINT
  23. 310 PRINT"ANOTHER X VALUE FOR SAME FUNCTION"
  24. 320 PRINT"(1=YES,0=NO)";
  25. 330 INPUT Q
  26. 340 IFQ=1THEN210
  27. 350 PRINT"ANOTHER FUNCTION (1=YES,0=NO)";
  28. 360 INPUT Q
  29. 370 IF Q = 1 THEN 90
  30. 380 PRINT
  31. 390 END
  32.