RosettaCodeData/Task/Averages-Root-mean-square/BASIC/averages-root-mean-square-4.basic
2019-09-12 10:33:56 -07:00

8 lines
113 B
Text

10 FAST
20 LET RMS=0
30 FOR X=1 TO 10
40 LET RMS=RMS+X**2
50 NEXT X
60 LET RMS=SQR (RMS/10)
70 SLOW
80 PRINT RMS