Anonymous user
Trabb Pardo–Knuth algorithm: Difference between revisions
→{{header|Liberty BASIC}}: Added
m (→{{header|Commodore BASIC}}: Header) |
(→{{header|Liberty BASIC}}: Added) |
||
Line 1,810:
-4
Overflow</pre>
=={{header|Liberty BASIC}}==
{{trans|XBasic}}
{{works with|Just BASIC|any}}
<lang lb>
' Trabb Pardo-Knuth algorithm
' Used "magic numbers" because of strict specification of the algorithm.
dim s(10)
print "Enter 11 numbers."
for i = 0 to 10
print i + 1;
input " => "; s(i)
next i
print
' Reverse
for i = 0 to 10 / 2
tmp = s(i)
s(i) = s(10 - i)
s(10 - i) = tmp
next i
'Results
for i = 0 to 10
print "f("; s(i); ") = ";
r = f(s(i))
if r > 400 then
print "overflow"
else
print r
end if
next i
end
function f(n)
f = sqr(abs(n)) + 5 * n * n * n
end function
</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|Lua}}==
| |||