Initial data commit

Task/Trabb-Pardo-Knuth-algorithm/ERRE/trabb-pardo-knuth-algorithm.erre

@@ -0,0 +1,22 @@
+!Trabb Pardo-Knuth algorithm
+PROGRAM TPK
+!VAR I%,Y
+DIM A[10]
+
+FUNCTION F(T)
+    F=SQR(ABS(T))+5*T^3
+END FUNCTION
+
+BEGIN
+  DATA(10,-1,1,2,3,4,4.3,4.305,4.303,4.302,4.301)
+  FOR I%=0 TO 10 DO
+      READ(A[I%])
+  END FOR
+  FOR I%=10 TO 0 STEP -1 DO
+       Y=F(A[I%])
+       PRINT("F(";A[I%];")=";)
+       IF Y>400 THEN PRINT("--->too large<---")
+                ELSE PRINT(Y)
+       END IF
+  END FOR
+END PROGRAM