24 lines
504 B
Plaintext
24 lines
504 B
Plaintext
10 REM TRABB PARDO-KNUTH ALGORITHM
|
|
20 REM USED "MAGIC NUMBERS" BECAUSE OF STRICT SPECIFICATION OF THE ALGORITHM.
|
|
30 DEF FNF(N)=SQR(ABS(N))+5*N*N*N
|
|
40 DIM S(10)
|
|
50 PRINT "ENTER 11 NUMBERS."
|
|
60 FOR I=0 TO 10
|
|
70 PRINT STR$(I+1);
|
|
80 INPUT S(I)
|
|
90 NEXT I
|
|
100 PRINT
|
|
110 REM REVERSE
|
|
120 FOR I=0 TO 10/2
|
|
130 TMP=S(I)
|
|
140 S(I)=S(10-I)
|
|
150 S(10-I)=TMP
|
|
160 NEXT I
|
|
170 REM RESULTS
|
|
180 FOR I=0 TO 10
|
|
190 PRINT "F(";STR$(S(I));") =";
|
|
200 R=FNF(S(I))
|
|
210 IF R>400 THEN PRINT " OVERFLOW":ELSE PRINT R
|
|
220 NEXT I
|
|
230 END
|