CBRR1889 (664673), страница 8

Просмтор этого файла доступен только зарегистрированным пользователям. Но у нас супер быстрая регистрация: достаточно только электронной почты!

Текст из файла (страница 8)

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

300 :

IF k1 >= 1 AND k1 >= k2 AND k1 >= k3 THEN GOTO 301

IF k2 >= 1 AND k2 >= k1 AND k2 >= k3 THEN GOTO 302

IF k3 >= 1 AND k3 >= k2 AND k3 >= k1 THEN GOTO 303

400 :

SLEEP 0

GOTO 10

help:

CLS

LOCATE 28, 30: PRINT "После ввода жми ENTER"

LOCATE 29, 2: PRINT STRING$(50, " ")

RETURN

annot:

CLS

OPEN "annota.txt" FOR INPUT AS #1

50 :

FOR x = 1 TO 6

CLS

FOR y = 0 TO 23

IF EOF(1) THEN GOTO 56

LOCATE 1 + y, 12: PRINT annotation$

LINE INPUT #1, annotation$

NEXT y

LOCATE 28, 21: PRINT "Для продолжения нажмите любую клавишу"

55 : a$ = INKEY$

IF a$ = "" THEN GOTO 55

IF a$ = CHR$(27) THEN GOTO 10

NEXT x

56 : CLOSE

GOTO 10

200 :

m$ = "первая"

b$ = "третья"

GOSUB 222

GOTO 300

201 :

m$ = "первая"

b$ = "вторая"

GOSUB 222

GOTO 300

202 :

m$ = "вторая"

b$ = "третья"

GOSUB 222

GOTO 300

203 :

m$ = "вторая"

b$ = "первая"

GOSUB 222

GOTO 300

204 :

m$ = "третья"

b$ = "первая"

GOSUB 222

GOTO 300

205 :

m$ = "третья"

b$ = "вторая"

GOSUB 222

GOTO 300

301 :

b$ = "первая"

GOSUB 333

GOTO 400

302 :

b$ = "вторая"

GOSUB 333

GOTO 400

303 :

b$ = "третья"

GOSUB 333

GOTO 400

222 : CLS

PRINT " В результате полученных групповых показателей по техническим параметрам "; b$

PRINT "модель компьютеров наиболее конкурентоспособная, то есть в целом "; b$; " модель"

PRINT "компьютеров полнее удовлетворяет запросы потребителя, чем все остальные модели"

PRINT "компьютеров. Так как групповой показатель характеризует степень соответствия"

PRINT "исследуемого изделия соответствующим потребностям по всем техническим"

PRINT "параметрам (для данного случая: быстродействие, объем памяти, качество"

PRINT "обслуживания)."

PRINT " А из полученных расчетов по экономическим параметрам видно, что "; m$; " модель"

PRINT "компьютеров более конкурентоспособная по экономическим параметрам из всех"

PRINT "остальных моделей компьютеров, так как имеет самый маленький групповой"

PRINT "показатель. А это значит, что покупатель будет с большей охотой покупать эту"

PRINT "модель компьютеров, чем все остальные. Но так как срок морального старения у"

PRINT "компьютеров очень маленький, то в целом выгоднее "; b$; " модель. Хоть она и"

PRINT "дороже, но по техническим параметрам она вполне конкурентоспособная."

RETURN

333 :

PRINT " Из расчетов интегрального показателя конкурентоспособности видно, что "; b$

PRINT "модель превосходит образец по конкурентоспособности в целом, потому что у нее"

PRINT "интегральный показатель больше единицы. Это говорит о том,что для российских"

PRINT "покупателей выгоднее именно "; b$; " модель, так как она по техническим"

PRINT "параметрам не уступает образцу, а ее стоимость гораздо меньше."

RETURN

jokefromandy:

LOCATE 15, 30: PRINT "ЧЕ ИХ СРАВНИВАТЬ-ТО, А ?"

SLEEP 0

GOTO 10

- 61 -

Характеристики

Список файлов реферата