aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy döt Net 2024-07-13 15:19:22 -07:00
parent 29a5eea0d4
commit 5c1bb7bfa9
2011 changed files with 35081 additions and 3229 deletions
Download patch file Download diff file Expand all files Collapse all files

10
Task/Trabb-Pardo-Knuth-algorithm/PascalABC.NET/trabb-pardo-knuth-algorithm.pas Normal file
View file

@ -0,0 +1,10 @@
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.