№ 1
Составить программу расчета индекса цен по формуле:

I цен = ∑p[sub]1[/sub]q[sub]1[/sub] / ∑p[sub]0[/sub]q[sub]1[/sub],

где p0 и p1 − цена продукции в базисном и отчетном периодах; q1 − объем продукции в отчетном периоде.

РЕШЕНИЕ:

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

10 PRINT "РАСЧЕТ ИНДЕКСА ЦЕН"
20 INPUT N
30 LET SQP=0 : LET SQPO=0
40 LET J=1
50 INPUT PI
60 INPUT PO
70 INPUT QI
80 LET SQP=SQP+QI*PI
90 LET SQPO=SQPO+QI*PO
100 LET J=J+1
110 IF J<=N GOTO 50
120 I= SQP/ SQPO
130 PRINT I
140 END

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

10 PRINT "РАСЧЕТ ИНДЕКСА ЦЕН "
20 INPUT N
30 LET SQP=0 : LET SQPO=0
40 FOR J=1 TO N STEP 1
50 INPUT PI
60 INPUT PO
70 INPUT QI
80 LET SQP=SQP+QI*PI
90 LET SQPO=SQPO+QI*PO
100 NEXT J
110 I= SQP/ SQPO
120 PRINT I
130 END