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

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

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

РЕШЕНИЕ:

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

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