24 lines
407 B
Plaintext
24 lines
407 B
Plaintext
10 rem Trabb Pardo-Knuth algorithm
|
|
20 cls
|
|
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
|
|
160 'Results
|
|
170 for i = 10 to 0 step -1
|
|
180 print "f( " s(i)") = ";
|
|
190 r = f(s(i))
|
|
200 if r > 400 then
|
|
210 print "-=< overflow >=-"
|
|
220 else
|
|
230 print r
|
|
240 endif
|
|
250 next i
|
|
260 end
|
|
270 function f(n)
|
|
280 f = sqr(abs(n))+5*n^3
|
|
290 return
|