19 lines
413 B
Plaintext
19 lines
413 B
Plaintext
10 REM Trabb Pardo-Knuth algorithm
|
|
20 HOME : REM 20 CLS for Chipmunk Basic or GW-BASIC
|
|
30 DIM S(10)
|
|
40 PRINT "Enter 11 numbers."
|
|
50 FOR I = 0 TO 10
|
|
60 PRINT I+1;
|
|
70 INPUT "=> ";S(I)
|
|
80 NEXT I
|
|
90 PRINT
|
|
100 REM Results
|
|
110 FOR I = 10 TO 0 STEP -1
|
|
120 PRINT "f( " S(I)") = ";
|
|
130 F = S(I)
|
|
140 R = SQR(ABS(F))+5*F^3
|
|
150 IF R > 400 THEN PRINT "-=< overflow >=-"
|
|
160 IF R <= 400 THEN PRINT R
|
|
170 NEXT I
|
|
180 END
|