27 lines
662 B
Plaintext
27 lines
662 B
Plaintext
100 REM Trabb Pardo-Knuth algorithm
|
|
110 REM Used "magic numbers" because of strict specification of the algorithm.
|
|
120 DEF FNF(N) = SQR(ABS(N)) + 5 * N * N * N
|
|
130 DIM S(0 TO 10)
|
|
140 PRINT "Enter 11 numbers."
|
|
150 FOR I = 0 TO 10
|
|
160 INPUT PROMPT STR$(I + 1) & ":": S(I)
|
|
170 NEXT I
|
|
180 PRINT
|
|
190 REM Reverse
|
|
200 FOR I = 0 TO INT(10 / 2)
|
|
210 LET Tmp = S(I)
|
|
220 LET S(I) = S(10 - I)
|
|
230 LET S(10 - I) = Tmp
|
|
240 NEXT I
|
|
250 REM Results
|
|
260 FOR I = 0 TO 10
|
|
270 LET R = FNF(S(I))
|
|
280 PRINT USING "f(####.###) = ": S(I);
|
|
290 IF R > 400 THEN
|
|
300 PRINT "overflow"
|
|
310 ELSE
|
|
320 PRINT USING "####.###": R
|
|
330 END IF
|
|
340 NEXT I
|
|
350 END
|