Меры безопасности при сборке компьютеров

LOCATE 11, 2: INPUT "Расходы на эксплуатацию в год для третьей модели, млн. руб ", r3

LOCATE 12, 2: INPUT "Расходы на эксплуатацию в год для модели-образца, млн. руб ", r0

CLS

'РАСЧЕТ ДИФФЕРЕНЦИАЛЬНЫМ МЕТОДОМ

a1 = .3

a2 = .5

a3 = .2

'РАСЧЕТ ПО ТЕХНИЧЕСКИМ ПАРАМЕТРАМ

q11 = Mhz1 / Mhz0

q12 = Mb1 / mb0

q13 = o1 / o0

q21 = Mhz2 / Mhz0

q22 = Mb2 / mb0

q23 = o2 / o0

q31 = Mhz3 / Mhz0

q32 = Mb3 / mb0

q33 = o3 / o0

'РАСЧЕТ ПО ЭКОНОМИЧЕСКИМ ПАРАМЕТРАМ

qe1 = p0 / p1

qe2 = p0 / p2

qe3 = p0 / p3

'РАСЧЕТ КОМПЛЕКСНЫМ МЕТОДОМ

'РАСЧЕТ ПО ТЕХНИЧЕСКИМ ПАРАМЕТРАМ

itp1 = q11 * a1 + q12 * a2 + q13 * a3

itp2 = q21 * a1 + q22 * a2 + q23 * a3

itp3 = q31 * a1 + q32 * a2 + q33 * a3

'РАСЧЕТ ПО ЭКОНОМИЧЕСКИМ ПАРАМЕТРАМ

iep1 = (p1 + r1 * (1 + .877 + .77 + .675)) / (p0 + r0 * (1 + .877 + .77 + .675))

iep2 = (p2 + r2 * (1 + .877 + .77 + .675)) / (p0 + r0 * (1 + .877 + .77 + .675))

iep3 = (p3 + r3 * (1 + .877 + .77 + .675)) / (p0 + r0 * (1 + .877 + .77 + .675))

'РАСЧЕТ ИНТЕГРАЛЬНОГО ПОКАЗАТЕЛЯ

k1 = itp1 / iep1

k2 = itp2 / iep2

k3 = itp3 / iep3

IF itp1 = itp2 AND itp2 = itp3 THEN GOTO andy

GOTO parametrs:

andy: IF iep1 = iep2 AND iep2 = iep3 THEN GOTO andy1

GOTO parametrs:

andy1: IF k1 = k2 AND k2 = k3 THEN GOTO jokefromandy

GOTO parametrs:

parametrs:

CLS

PRINT "Единичные показатели по техническим параметрам для первой модели:"

PRINT ; q11

PRINT ; q12

PRINT ; q13

PRINT

PRINT "Единичные показатели по техническим параметрам для второй модели:"

PRINT ; q21

PRINT ; q22

PRINT ; q23

PRINT

PRINT "Единичные показатели по техническим параметрам для третьей модели:"

PRINT ; q31

PRINT ; q32

PRINT ; q33

PRINT

PRINT "Единичные показатели по экономическим параметрам:"

PRINT "Для первой модели "; qe1

PRINT "Для второй модели "; qe2

PRINT "Для третьей модели "; qe3

PRINT

SLEEP 0

CLS

PRINT "Групповые показатели по техническим параметрам:"

PRINT "Для первой модели "; itp1

PRINT "Для второй модели "; itp2

PRINT "Для третьей модели "; itp3

PRINT

PRINT "Групповые показатели по экономическим параметрам:"

PRINT "Для первой модели "; iep1

PRINT "Для второй модели "; iep2

PRINT "Для третьей модели "; iep3

PRINT

PRINT "Интегральный показатель:"

PRINT "Для первой модели "; k1

PRINT "Для второй модели "; k2

PRINT "Для третьей модели "; k3

SLEEP 0

'ВЫВОДЫ

IF itp1 < itp2 AND itp2 < itp3 THEN GOTO 200

IF itp1 < itp3 AND itp3 < itp2 THEN GOTO 201

IF itp2 < itp1 AND itp1 < itp3 THEN GOTO 202

IF itp2 < itp3 AND itp3 < itp1 THEN GOTO 203

IF itp3 < itp2 AND itp2 < itp1 THEN GOTO 204

IF itp3 < itp AND itp1 < itp2 THEN GOTO 205