31 lines
942 B
Plaintext
31 lines
942 B
Plaintext
100 DIM n(10)
|
|
110 FOR i = 1 TO 10 : n(i) = i : NEXT i
|
|
120 SUB cat(cnt,op$)
|
|
130 temp = n(1)
|
|
140 FOR i = 2 TO cnt
|
|
150 IF op$ = "+" THEN temp = temp+n(i)
|
|
160 IF op$ = "-" THEN temp = temp-n(i)
|
|
170 IF op$ = "*" THEN temp = temp*n(i)
|
|
180 IF op$ = "/" THEN temp = temp/n(i)
|
|
190 IF op$ = "^" THEN temp = temp^n(i)
|
|
200 IF op$ = "max" THEN temp = FN MAX(temp,n(i))
|
|
210 IF op$ = "min" THEN temp = FN MIN(temp,n(i))
|
|
220 IF op$ = "avg" THEN temp = temp+n(i)
|
|
230 IF op$ = "cat" THEN temp$ = temp$+STR$(n(i))
|
|
240 NEXT i
|
|
250 IF op$ = "avg" THEN temp = temp/cnt
|
|
260 IF op$ = "cat" THEN temp = VAL(STR$(n(1))+temp$)
|
|
270 cat = temp
|
|
280 END SUB
|
|
290 '
|
|
300 PRINT " +: ";cat(10,"+")
|
|
310 PRINT " -: ";cat(10,"-")
|
|
320 PRINT " *: ";cat(10,"*")
|
|
330 PRINT " /: ";cat(10,"/")
|
|
340 PRINT " ^: ";cat(10,"^")
|
|
350 PRINT "min: ";cat(10,"min")
|
|
360 PRINT "max: ";cat(10,"max")
|
|
370 PRINT "avg: ";cat(10,"avg")
|
|
380 PRINT "cat: ";cat(10,"cat")
|
|
390 END
|