№ 1
Составить программу расчета средней квадратической взвешенной по формуле:
x = √(∑x[sup]2[/sup]f / ∑f),
где x − варианты, f − частоты.

РЕШЕНИЕ:

Программа расчета средней квадратической взвешенной с использованием оператора условного перехода имеет вид:

10 PRINT "РАСЧЕТ СРЕДНЕЙ КВАДРАТИЧЕСКОЙ ВЗВЕШЕННОЙ"
20 INPUT N
30 LET SXF=0 : LET SF=0
40 LET I=1
50 INPUT X,F
60 LET SXF=SXF+X*X*F
70 LET SF=SF+F
80 LET I=I+1
90 IF I<=N GOTO 50
100 X= SQR (SXF/SF)
110 PRINT X
120 END

При использовании операторов цикла программа принимает вид:

10 PRINT "РАСЧЕТ СРЕДНЕЙ КВАДРАТИЧЕСКОЙ ВЗВЕШЕННОЙ"
20 INPUT N
30 LET SXF=0 : LET SF=0
40 FOR I=1 TO N STEP 1
50 INPUT X,F
60 LET SXF=SXF+X*X*F
70 LET SF=SF+F
80 NEXT I
90 X= SQR (SXF/SF)
100 PRINT X
110 END