Anonymous user
Trabb Pardo–Knuth algorithm: Difference between revisions
→{{header|Commodore BASIC}}: Added
m (→{{header|XBasic}}: Name in comment) |
(→{{header|Commodore BASIC}}: Added) |
||
Line 520:
f( 2 ) : 41.4142 !
f( 1 ) : 6 !</pre>
==={{header|Commodore BASIC}}===
{{trans|XBasic}}
{{works with|Commodore BASIC|4.5}}
<lang basic>
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
</lang>
{{out}}
<pre>
ENTER 11 NUMBERS.
1? -5
2? -3
3? -2
4? -1
5? 0
6? 1
7? 2
8? 3
9? 4
10? 5
11? 6
F( 6) = OVERFLOW
F( 5) = OVERFLOW
F( 4) = 322
F( 3) = 136.732051
F( 2) = 41.4142136
F( 1) = 6
F( 0) = 0
F(-1) =-4
F(-2) =-38.5857864
F(-3) =-133.267949
F(-5) =-622.763932
</pre>
=={{header|Common Lisp}}==
| |||