27 lines
398 B
Plaintext
27 lines
398 B
Plaintext
FUNCTION f (n)
|
|
LET 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 "--------------------"
|
|
|
|
LET i = i - 1
|
|
DO
|
|
PRINT "f("; STR$(s(i)); ") = ";
|
|
LET x = f(s(i))
|
|
IF x > 400 THEN
|
|
PRINT "-=< overflow >=-"
|
|
ELSE
|
|
PRINT x
|
|
END IF
|
|
LET i = i - 1
|
|
LOOP UNTIL i < 1
|
|
END
|