35 lines
924 B
Plaintext
35 lines
924 B
Plaintext
DIM SHARED n(10)
|
|
FOR i = 1 TO 10: n(i) = i: NEXT i
|
|
|
|
FUNCTION FNMIN (a, b)
|
|
IF (a < b) THEN FNMIN = a ELSE FNMIN = b
|
|
END FUNCTION
|
|
FUNCTION FNMAX (a, b)
|
|
IF (a < b) THEN FNMAX = b ELSE FNMAX = a
|
|
END FUNCTION
|
|
|
|
FUNCTION cat# (cont, op$)
|
|
temp = n(1)
|
|
FOR i = 2 TO cont
|
|
IF op$ = "+" THEN temp = temp + n(i)
|
|
IF op$ = "-" THEN temp = temp - n(i)
|
|
IF op$ = "*" THEN temp = temp * n(i)
|
|
IF op$ = "/" THEN temp = temp / n(i)
|
|
IF op$ = "^" THEN temp = temp ^ n(i)
|
|
IF op$ = "max" THEN temp = FNMAX(temp, n(i))
|
|
IF op$ = "min" THEN temp = FNMIN(temp, n(i))
|
|
IF op$ = "avg" THEN temp = temp + n(i)
|
|
NEXT i
|
|
IF op$ = "avg" THEN temp = temp / cont
|
|
cat = temp
|
|
END FUNCTION
|
|
|
|
PRINT " +: "; " "; cat(10, "+")
|
|
PRINT " -: "; " "; cat(10, "-")
|
|
PRINT " *: "; " "; cat(10, "*")
|
|
PRINT " /: "; " "; cat(10, "/")
|
|
PRINT " ^: "; " "; cat(10, "^")
|
|
PRINT "min: "; " "; cat(10, "min")
|
|
PRINT "max: "; " "; cat(10, "max")
|
|
PRINT "avg: "; " "; cat(10, "avg")
|