16 lines
439 B
Text
16 lines
439 B
Text
bXsum = 1
|
|
for i = 1 to 10
|
|
sum = sum + i ' sum of 1 -> 10
|
|
bXsum = bXsum * i ' sum i * i
|
|
sum1i = sum1i + (1/i) ' sum 1/i
|
|
next
|
|
|
|
average = sum / 10
|
|
geometric = bXsum ^ (1/10)
|
|
harmonic = 10/sum1i
|
|
|
|
print "ArithmeticMean:";average
|
|
print "Geometric Mean:";geometric
|
|
print " Harmonic Mean:";harmonic
|
|
|
|
if (average >= geometric) and (geometric >= harmonic) then print "True" else print "False"
|