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

I затрат = ∑z[sub]1[/sub]q[sub]1[/sub] / ∑z[sub]0[/sub]q[sub]0[/sub],

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

РЕШЕНИЕ:

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

10 PRINT "РАСЧЕТ ИНДЕКСА ЗАТРАТ"
20 INPUT N
30 LET SQZ=0 : LET SQZO=0
40 LET J=1
50 INPUT ZI
55 INPUT QI
60 INPUT ZO
70 INPUT QO
80 LET SQZ=SQZ+QI*ZI
90 LET SQZO=SQZO+QO*ZO
100 LET J=J+1
110 IF J<=N GOTO 50
120 I= SQZ/ SQZO
130 PRINT I
140 END

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

10 PRINT "РАСЧЕТ ИНДЕКСА ЗАТРАТ "
20 INPUT N
30 LET SQZ=0 : LET SQZO=0
40 FOR J=1 TO N STEP 1
50 INPUT ZI
55 INPUT QI
60 INPUT ZO
70 INPUT QO
80 LET SQZ=SQZ+QI*ZI
90 LET SQZO=SQZO+QO*ZO
100 NEXT J
110 I= SQZ/ SQZO
120 PRINT I
130 END