13 lines
343 B
Text
13 lines
343 B
Text
scope # TPK algorithm in Agena
|
|
local y;
|
|
local a := [];
|
|
local proc f( t :: number ) :: number return sqrt(abs(t))+5*t*t*t end;
|
|
for i from 0 to 10 do a[i] := tonumber( io.read() ) od;
|
|
for i from 10 to 0 by - 1 do
|
|
y:=f(a[i]);
|
|
if y > 400
|
|
then print( "TOO LARGE" )
|
|
else printf( "%10.4f\n", y )
|
|
fi
|
|
od
|
|
end
|