26 lines
389 B
Plaintext
26 lines
389 B
Plaintext
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
|