Initial data commit

2023-07-01 11:58:00 -04:00 · 2023-07-01 11:58:00 -04:00 · f23f22d71c
commit f23f22d71c
parent 72d218235f
199087 changed files with 3378941 additions and 0 deletions
--- a/Task/Trabb-Pardo-Knuth-algorithm/QBasic/trabb-pardo-knuth-algorithm.basic
+++ b/Task/Trabb-Pardo-Knuth-algorithm/QBasic/trabb-pardo-knuth-algorithm.basic
@ -0,0 +1,25 @@
+FUNCTION f (n!)
+    f = SQR(ABS(n)) + 5 * n ^ 3
+END FUNCTION
+
+DIM s(1 TO 11)
+PRINT "enter 11 numbers"
+FOR i = 1 TO 11
+    PRINT STR$(i);
+    INPUT " => ", s(i)
+NEXT i
+
+PRINT : PRINT STRING$(20, "-")
+
+i = i - 1
+DO
+    PRINT "f("; STR$(s(i)); ") = ";
+    x = f(s(i))
+    IF x > 400 THEN
+        PRINT "-=< overflow >=-"
+    ELSE
+        PRINT x
+    END IF
+    i = i - 1
+LOOP UNTIL i < 1
+END