47 lines
1.3 KiB
Plaintext
47 lines
1.3 KiB
Plaintext
SHARE n(10)
|
|
FOR i = 1 to 10
|
|
LET n(i) = i
|
|
NEXT i
|
|
|
|
FUNCTION fnmin(a,b)
|
|
IF (a < b) then LET fnmin = a else LET fnmin = b
|
|
END FUNCTION
|
|
FUNCTION fnmax(a,b)
|
|
IF (a < b) then LET fnmax = b else LET fnmax = a
|
|
END FUNCTION
|
|
|
|
FUNCTION cat(cont, op$)
|
|
LET temp = n(1)
|
|
LET temp$ = ""
|
|
FOR i = 2 TO cont
|
|
IF op$ = "+" then LET temp = temp+n(i)
|
|
IF op$ = "-" then LET temp = temp-n(i)
|
|
IF op$ = "*" then LET temp = temp*n(i)
|
|
IF op$ = "/" then LET temp = temp/n(i)
|
|
IF op$ = "^" then LET temp = temp^n(i)
|
|
IF op$ = "max" then LET temp = fnmax(temp,n(i))
|
|
IF op$ = "min" then LET temp = fnmin(temp,n(i))
|
|
IF op$ = "avg" then LET temp = temp+n(i)
|
|
IF op$ = "cat" then LET temp$ = temp$ & str$(n(i))
|
|
NEXT i
|
|
IF op$ = "avg" then
|
|
LET temp = temp / cont
|
|
END IF
|
|
IF op$ = "cat" then
|
|
LET t$ = str$(n(1)) & temp$
|
|
LET temp = VAL(t$)
|
|
END IF
|
|
LET 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")
|
|
PRINT "cat: "; " "; cat(10, "cat")
|
|
END
|