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

Iфизического объема продукции = ∑q[sub]1[/sub]p / ∑q[sub]0[/sub]p ,

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

РЕШЕНИЕ:

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

10 PRINT "РАСЧЕТ ИНДЕКСА ФИЗИЧЕСКОГО ОБЪЕМА ПРОДУКЦИИ"
20 INPUT N
30 LET SQP=0 : LET SQPO=0
40 LET J=1
50 INPUT P
60 INPUT Q0
70 INPUT QI
80 LET SQP=SQP+QI*P
90 LET SQPO=SQPO+QO*P
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 P
60 INPUT Q0
70 INPUT QI
80 LET SQP=SQP+QI*P
90 LET SQPO=SQPO+QO*P
100 NEXT J
110 I= SQP/ SQPO
120 PRINT I
130 END