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

100 PRINT RMS(10)
110 DEF RMS(N)
120   LET R=0
130   FOR X=1 TO N
140     LET R=R+X^2
150   NEXT
160   LET RMS=SQR(R/N)
170 END DEF
September Morn Update 2019-09-12 10:33:56 -07:00			`100 PRINT RMS(10)`
			`110 DEF RMS(N)`
			`120 LET R=0`
			`130 FOR X=1 TO N`
			`140 LET R=R+X^2`
			`150 NEXT`
			`160 LET RMS=SQR(R/N)`
			`170 END DEF`