Data update

Task/Trabb-Pardo-Knuth-algorithm/ANSI-BASIC/trabb-pardo-knuth-algorithm.basic

@@ -0,0 +1,26 @@
+100 REM Trabb Pardo-Knuth algorithm
+110 REM Used "magic numbers" because of strict specification of the algorithm.
+120 DEF FNF(N) = SQR(ABS(N)) + 5 * N * N * N
+130 DIM S(0 TO 10)
+140 PRINT "Enter 11 numbers."
+150 FOR I = 0 TO 10
+160    INPUT PROMPT STR$(I + 1) & ":": S(I)
+170 NEXT I
+180 PRINT
+190 REM Reverse
+200 FOR I = 0 TO INT(10 / 2)
+210    LET Tmp = S(I)
+220    LET S(I) = S(10 - I)
+230    LET S(10 - I) = Tmp
+240 NEXT I
+250 REM Results
+260 FOR I = 0 TO 10
+270    LET R = FNF(S(I))
+280    PRINT USING "f(####.###) = ": S(I);
+290    IF R > 400 THEN
+300       PRINT "overflow"
+310    ELSE
+320       PRINT USING "####.###": R
+330    END IF
+340 NEXT I
+350 END

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

@@ -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