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

Программа, приведенная в приложении 1, написана на языке Basic и работает в системе QBasic под DOS. Запускать следует файл start.bat. Дополнительные инструкции в файле read.me.

ПРИЛОЖЕНИЕ 1

ПРОГРАММА ДЛЯ РАСЧЕТА КОНКУРЕНТОСПОСОБНОСТИ

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

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