23 lines
323 B
Plaintext
23 lines
323 B
Plaintext
dim s(10)
|
|
print "Enter 11 numbers."
|
|
for i = 0 to 10
|
|
print i +1;
|
|
input " => "; s(i)
|
|
next i
|
|
print
|
|
'Results
|
|
for i = 10 to 0 step -1
|
|
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
|