29 lines
696 B
Plaintext
29 lines
696 B
Plaintext
dim n(10)
|
|
for i = 1 to 10 : n(i) = i : next i
|
|
|
|
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")
|
|
end
|
|
|
|
sub cat(cont,op$)
|
|
cat = n(1)
|
|
for i = 2 to cont
|
|
if op$ = "+" cat = cat + n(i)
|
|
if op$ = "-" cat = cat - n(i)
|
|
if op$ = "*" cat = cat * n(i)
|
|
if op$ = "/" cat = cat / n(i)
|
|
if op$ = "^" cat = cat ^ n(i)
|
|
if op$ = "max" cat = max(cat,n(i))
|
|
if op$ = "min" cat = min(cat,n(i))
|
|
if op$ = "avg" cat = cat + n(i)
|
|
next i
|
|
if op$ = "avg" cat = cat / cont
|
|
return cat
|
|
end sub
|