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

I себестоимости = ∑z[sub]1[/sub]q[sub]1[/sub] /∑z[sub]0[/sub]q[sub]1[/sub] ,

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

РЕШЕНИЕ:

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

10 PRINT "РАСЧЕТ ИНДЕКСА СЕБЕСТОИМОСТИ"
20 INPUT N
30 LET SQZ=0 : LET SQZO=0
40 LET J=1
50 INPUT ZI
60 INPUT ZO
70 INPUT QI
80 LET SQZ=SQZ+QI*ZI
90 LET SQZO=SQZO+QI*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
60 INPUT ZO
70 INPUT QI
80 LET SQZ=SQZ+QI*ZI
90 LET SQZO=SQZO+QI*ZO
100 NEXT J
110 I= SQZ/ SQZO
120 PRINT I
130 END