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

LOCATE 29, 21: PRINT " МКЭТ 1997"

PSET (145, 130)

q$ = "d110 r385 u110 l385"

DRAW "x" + VARPTR$(q$)

RETURN

vibor:

100 a$ = INKEY$

IF a$ = "" THEN GOTO 100

IF a$ = "1" THEN GOTO shema

IF a$ = "2" THEN GOTO schet

IF a$ = "3" THEN GOTO annot

IF a$ = "4" THEN GOTO 1000

GOTO 100

RETURN

shema:

SHELL "c:\diplom\bitmap.exe screen.bmp"

GOTO 10

schet:

GOSUB help

'ВВОД

LOCATE 2, 2: PRINT "Введите необходимые параметры:"

LOCATE 4, 2: INPUT "Быстродействие первой модели, МГц ", Mhz1

LOCATE 5, 2: INPUT "Быстродействие второй модели, МГц ", Mhz2

LOCATE 6, 2: INPUT "Быстродействие третьей модели, МГц ", Mhz3

LOCATE 7, 2: INPUT "Быстродействие модели-образца, МГц ", Mhz0

LOCATE 9, 2: INPUT "Объем памяти первой модели, Мб ", Mb1

LOCATE 10, 2: INPUT "Объем памяти второй модели, Мб ", Mb2

LOCATE 11, 2: INPUT "Объем памяти третьей модели, Мб ", Mb3

LOCATE 12, 2: INPUT "Объем памяти модели-образца, Мб ", mb0

LOCATE 14, 2: PRINT "Дальше по пятибальной системе !!!"

LOCATE 16, 2: INPUT "Качество обслуживания для первой модели ", o1

LOCATE 17, 2: INPUT "Качество обслуживания для второй модели ", o2

LOCATE 18, 2: INPUT "Качество обслуживания для третьей модели ", o3

LOCATE 19, 2: INPUT "Качество обслуживания для модели-образца ", o0

CLS

LOCATE 4, 2: INPUT "Цена первой модели, млн. руб ", p1

LOCATE 5, 2: INPUT "Цена второй модели, млн. руб ", p2

LOCATE 6, 2: INPUT "Цена третьей модели, млн. руб ", p3

LOCATE 7, 2: INPUT "Цена модели-образца, млн. руб ", p0

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

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

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

Перейти на страницу: 1 2 3

Другие материалы