5. Д. Тейлор "Основы научного менеджмента" Москва, «Высшая школа», 1991.
6. А. И. Курносов, «Безопасность труда в полупроводниковом производстве», Москва, «Высшая школа», 1981.
7. Требования по безопасности ГОСТ Р 50377-92 (МЭК 950-86)
8. ГОСТ 26329-84
9. Соответствие качества выпускаемых изделий по ГОСТ 21552-84 утвержденным техническим условиям
10.По электромагнитной совместимости ГОСТ Р 50628-93
ПРОГРАММА ДЛЯ РАСЧЕТА КОНКУРЕНТОСПОСОБНОСТИ
REM DIPLOM BY ANDY FISENKO 49PA-893
SCREEN 12
10 : CLS
GOSUB menu
GOSUB vibor
1000 END
menu:
CLS
LOCATE 11, 21: PRINT "1. Немного информации к размышлению ..."
LOCATE 12, 21: PRINT "2. Расчет конкурентоспособности отечественных "
LOCATE 13, 21: PRINT " компьютеров фирмы `ВИСТ`."
LOCATE 14, 21: PRINT "3. Краткие теоретические сведения"
LOCATE 15, 21: PRINT "4. Выход из программы"
LOCATE 25, 19: PRINT "Программа по расчету конкурентоспособности"
LOCATE 26, 21: PRINT "отечественных компьютеров фирмы `ВИСТ`."
LOCATE 27, 21: PRINT " Составил Фисенко Андрей Вячеславович"
LOCATE 28, 21: PRINT " группа 49РА-893"
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
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
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
'РАСЧЕТ ДИФФЕРЕНЦИАЛЬНЫМ МЕТОДОМ
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
andy1: IF k1 = k2 AND k2 = k3 THEN GOTO jokefromandy
parametrs:
PRINT "Единичные показатели по техническим параметрам для первой модели:"
PRINT ; q11
PRINT ; q12
PRINT ; q13
PRINT
PRINT "Единичные показатели по техническим параметрам для второй модели:"
PRINT ; q21
PRINT ; q22
PRINT ; q23
PRINT "Единичные показатели по техническим параметрам для третьей модели:"
PRINT ; q31
PRINT ; q32
PRINT ; q33
PRINT "Единичные показатели по экономическим параметрам:"
PRINT "Для первой модели "; qe1
PRINT "Для второй модели "; qe2
PRINT "Для третьей модели "; qe3
SLEEP 0
PRINT "Групповые показатели по техническим параметрам:"
PRINT "Для первой модели "; itp1
PRINT "Для второй модели "; itp2
PRINT "Для третьей модели "; itp3
PRINT "Групповые показатели по экономическим параметрам:"
PRINT "Для первой модели "; iep1
PRINT "Для второй модели "; iep2
PRINT "Для третьей модели "; iep3
PRINT "Интегральный показатель:"
PRINT "Для первой модели "; k1
PRINT "Для второй модели "; k2
PRINT "Для третьей модели "; k3
'ВЫВОДЫ
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 :
help:
LOCATE 28, 30: PRINT "После ввода жми ENTER"
LOCATE 29, 2: PRINT STRING$(50, " ")
annot:
OPEN "annota.txt" FOR INPUT AS #1
50 :
FOR x = 1 TO 6
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
200 :
m$ = "первая"
b$ = "третья"
GOSUB 222
GOTO 300
201 :
b$ = "вторая"
202 :
m$ = "вторая"
203 :
b$ = "первая"
204 :
m$ = "третья"
205 :
301 :
GOSUB 333
GOTO 400
302 :
303 :
222 : CLS
PRINT " В результате полученных групповых показателей по техническим параметрам "; b$
PRINT "модель компьютеров наиболее конкурентоспособная, то есть в целом "; b$; " модель"
PRINT "компьютеров полнее удовлетворяет запросы потребителя, чем все остальные модели"
PRINT "компьютеров. Так как групповой показатель характеризует степень соответствия"
PRINT "исследуемого изделия соответствующим потребностям по всем техническим"
PRINT "параметрам (для данного случая: быстродействие, объем памяти, качество"
PRINT "обслуживания)."
PRINT " А из полученных расчетов по экономическим параметрам видно, что "; m$; " модель"
PRINT "компьютеров более конкурентоспособная по экономическим параметрам из всех"
PRINT "остальных моделей компьютеров, так как имеет самый маленький групповой"
PRINT "показатель. А это значит, что покупатель будет с большей охотой покупать эту"
PRINT "модель компьютеров, чем все остальные. Но так как срок морального старения у"
PRINT "компьютеров очень маленький, то в целом выгоднее "; b$; " модель. Хоть она и"
PRINT "дороже, но по техническим параметрам она вполне конкурентоспособная."
333 :
PRINT " Из расчетов интегрального показателя конкурентоспособности видно, что "; b$
PRINT "модель превосходит образец по конкурентоспособности в целом, потому что у нее"
PRINT "интегральный показатель больше единицы. Это говорит о том,что для российских"
PRINT "покупателей выгоднее именно "; b$; " модель, так как она по техническим"
PRINT "параметрам не уступает образцу, а ее стоимость гораздо меньше."
jokefromandy:
LOCATE 15, 30: PRINT "ЧЕ ИХ СРАВНИВАТЬ-ТО, А ?"
Страницы: 1, 2, 3, 4, 5, 6, 7, 8, 9
