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 2023-07-22 21:42:12 -07:00
parent 9817d9b99b
commit 07c7092a52
140 changed files with 2712 additions and 241 deletions
Download patch file Download diff file Expand all files Collapse all files

11
Task/Trabb-Pardo-Knuth-algorithm/Modula-2/trabb-pardo-knuth-algorithm.mod2
View file

@ -32,18 +32,9 @@ BEGIN
END;
END ReverseSequence;
PROCEDURE RealAbs(Item: REAL): REAL;
BEGIN
IF Item < 0.0 THEN
RETURN -Item
ELSE
RETURN Item
END
END RealAbs;
PROCEDURE DoOperation(Item: REAL): REAL;
BEGIN
RETURN sqrt(RealAbs(Item)) + 5.0 * Item * Item * Item;
RETURN sqrt(ABS(Item)) + 5.0 * Item * Item * Item;
END DoOperation;
BEGIN