home *** CD-ROM | disk | FTP | other *** search
- 90 PRINTCHR$(147)
- 100 PRINT
- 110 PRINT"THIS PROGRAM COMPUTES THE SLOPE OF A"
- 120 PRINT"POLYNOMIAL P(X) FOR ANY X."
- 130 PRINT
- 140 PRINT"WHAT IS THE DEGREE OF THE POLYNOMIAL";
- 150 INPUT N
- 160 PRINT"ENTER THE COEFFICIENTS."
- 170 FOR I=N TO 0 STEP -1
- 180 PRINT "X^";I;
- 190 INPUT A(I)
- 200 NEXT I
- 210 PRINT
- 220 PRINT "AT WHAT X VALUE DO YOU WANT THE SLOPE";
- 230 INPUT X
- 240 LET D=0
- 250 FORI=N TO 1 STEP -1
- 260 LET D = D + I * A(I) * X^(I-1)
- 270 NEXT I
- 280 PRINT
- 290 PRINT"SLOPE AT X = ";X;" IS ";D
- 300 PRINT
- 310 PRINT"ANOTHER X VALUE FOR SAME FUNCTION"
- 320 PRINT"(1=YES,0=NO)";
- 330 INPUT Q
- 340 IFQ=1THEN210
- 350 PRINT"ANOTHER FUNCTION (1=YES,0=NO)";
- 360 INPUT Q
- 370 IF Q = 1 THEN 90
- 380 PRINT
- 390 END
-