Listing of file='POLY.BAS;01' on disk='vmedia/chip_36-sector.ccvf'
1 REM POLYNOMIAL EVALUATION MAY 7, 1981 2 REM 3 REM EVALUATES POLYNOMIALS FOR ENTERED VALUES 5 REM 16K COMPUCOLOR 6 REM 9 REM PROGRAM WRITTEN BY DARLENE JAMES, STUDENT TEACHER 10 REM UNDER THE DIRECTION OF MARJORIE A. FITTING 11 REM PROFESSOR OF MATHEMATICS AND COMPUTER SCIENCE 12 REM SAN JOSE STATE UNIVERSITY, SAN JOSE, CA 95192 20 REM 21 REM "______________________________" 22 REM "! SAN MATEO COUNTY !" 23 REM "! OFFICE OF EDUCATION !" 24 REM "! & !" 25 REM "! COMPUTER-USING EDUCATORS !" 26 REM "! !" 27 REM "! SOFTSWAP !" 28 REM "! !" 29 REM "!333 MAIN STREET, REDWOOD CITY!" 30 REM "!CA 94063 (415)364-5600 EX4401!" 31 REM "_______________________________" 40 REM "_______________________________" 41 REM "! PROGRAMS MAY BE COPIED FOR !" 42 REM "! EDUCATIONAL USE ONLY AND !" 43 REM "! ARE NOT TO BE SOLD. !" 44 REM "!!" 50 REM 60 REM 70 REM USER ENTERS DEGREE OF POLYNOMIAL TO BE EVALUATED 71 REM AND THE COEFFICIENTS OF EACH TERM FROM HIGHEST TO LOWEST 72 REM USER ENTERS VALUES TO BE SUBSTITUTED IN THE POLYNOMIAL 73 REM PROGRAM EVALUATES EACH AND DISPLAYS THE RESULT. 90 PRINT CHR$ (12):PRINT " "; 100 PRINT "HI! I'M POLY, & I WILL HELP YOU EVALUATE POLYNOMIALS" 110 PRINT " 190 DIM A(10) 200 INPUT "WHAT IS THE HIGHEST DEGREE OF YOUR POLYNOMIAL? ";N 210 PRINT "ENTER THE COEFFICIENTS OF EACH TERM." 220 FOR K= 0TO N 230 PRINT :PRINT " X ^ ";N- K; 240 INPUT " COEFFICIENT? ";A(N- K) 250 NEXT K 300 PRINT 310 INPUT "FOR WHICH VALUE OF X DO YOU WISH COMPUTATION? ";X 320 T= 0 330 FOR K= NTO 0STEP - 1 340 T= T* X+ A(K) 350 NEXT K 400 PRINT "FOR X = ";X;" THE POLYNOMIAL VALUE IS ";T;"." 410 INPUT "ANOTHER VALUE? (Y OR N)";Y$ 420 IF Y$> = "Y"THEN GOTO 300 430 LOAD "MENU":RUN 500 END