Расчет конкурентоспособности отечественных фирм, производящих компьютеры
13
PRINT "Для первой модели "; iep1
PRINT "Для второй модели "; iep2
PRINT "Для третьей модели "; iep3
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
Скачать реферат