RosettaCodeData/Task/Averages-Root-mean-square/BASIC/averages-root-mean-square-4.basic

9 lines
113 B
Text
Raw Permalink Normal View History

2019-09-12 10:33:56 -07:00
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