Trabb Pardo–Knuth algorithm: Difference between revisions
PascalABC.NET
m (→{{header|Wren}}: Minor tidy) |
(PascalABC.NET) |
||
Line 3,285:
"overflow", 322.0000000000000000000000000, 136.7320508075688772935274463, 41.414
21356237309504880168872, 6.000000000000000000000000000]</pre>
=={{header|PascalABC.NET}}==
<syntaxhighlight lang="delphi">
function f(x:real) := Sqrt(x) + 5 *x ** 3;
begin
var seq := ReadArrInteger(11).Reverse;
foreach var x in seq do
begin
var fx := f(x);
Println($'f({x}): {fx > 400 ? ''overflow'' : fx.ToString}');
end;
end.
</syntaxhighlight>
{{out}}
<pre>
1 2 3 4 5 6 7 8 9 10 11
f(11): overflow
f(10): overflow
f(9): overflow
f(8): overflow
f(7): overflow
f(6): overflow
f(5): overflow
f(4): 322
f(3): 136.732050807569
f(2): 41.4142135623731
f(1): 6
</pre>
=={{header|Perl}}==
| |||