9 lines
413 B
Text
9 lines
413 B
Text
|
valueList$ = "1 2 3 4 5 6 7 8 9 10"
|
||
|
|
while word$(valueList$,i +1) <> "" ' grab values from list
|
||
|
|
thisValue = val(word$(valueList$,i +1)) ' turn values into numbers
|
||
|
|
sumSquares = sumSquares + thisValue ^ 2 ' sum up the squares
|
||
|
|
i = i +1 '
|
||
|
|
wend
|
||
|
|
print "List of Values:";valueList$;" containing ";i;" values"
|
||
|
|
print "Root Mean Square =";(sumSquares/i)^0.5
|