Режимы работы ЭВМ. Разработка программы на языке Бейсик

6

Задания № 1

В чем состоят особенности организации пакетного режима работы ЭВМ, режима разделения времени и режима реального времени?

ОТВЕТ:

Особенность пакетного режима работы ЭВМ состоят в том что, одновременно могут работать, сразу несколько программ не зависимо друг - друга. Количество программы, которая работает одновременно, указывается пользователем в файле CONFIG. SYS. Режим разделения времени назначается процессором. Процессор разделяет время между работающими программами и устройствами. Промежуток этого времени так мало, что пользователь не замечает, ему кажется, что устройства работает параллельно. Сущность режима реального времени в том, что в это время устройства работает с своей скоростью. (Работа дискета, печать, сканирования и т.д.)

Задание № 2

Сформировать файл, содержащий результаты сессии студентов одной группы в виде матрицы в каждой строке, которой хранятся результаты сессии (пять экзаменов) для одного студента. В группе 25 студентов, их фамилии хранятся в отдельном файле. Используя сформированный файл, вывести на экран фамилии отличников.

ОТВЕТ:

10 CLS: DIM fa$ (25), re (25,5)

PRINT: PRINT "###################### работает программа: РЗУЛЬТАТЫ СЕССЫ##############": PRINT

PRINT "1. Создания файла для фамилий"

PRINT "2. Создания файла для результатов сессий"

PRINT "3. Просмотр результатов сессий"

PRINT "4. END": PRINT

11 INPUT "Введите порядок работы: "; n: IF n > 4 OR n < 1 THEN 11

ON n GOTO fem, rez, otl, 400

fem: CLS: PRINT "1. Создания файла для фамилий ": PRINT: PRINT

PRINT "Введите фамилий студентов по одному на строке: "

OPEN "fam" FOR OUTPUT AS #1

FOR i = 1 TO 25: INPUT fa$ (i): NEXT i

FOR i = 1 TO 25: PRINT #1, fa$ (i): NEXT i

FOR i = 1 TO 25: PRINT fa$ (i): NEXT i

CLOSE

PRINT "Файл для фамилий создан"

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

110 IF INKEY$ = "" THEN 110

GOTO 10

rez: CLS: PRINT "2. Создания файла для результатов сессий ": PRINT: PRINT

PRINT " Введите результаты сессий по одному на строке "

OPEN "rez" FOR OUTPUT AS #1

FOR j = 1 TO 25

FOR i = 1 TO 5

INPUT re (j, i): PRINT #1, re (j, i)

NEXT i, j

CLOSE

PRINT "Файл для результатов создан"

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

210 IF INKEY$ = "" THEN 210

GOTO 10

otl: CLS

OPEN "fam" FOR INPUT AS #1

OPEN "rez" FOR INPUT AS #2

FOR i = 1 TO 25: INPUT #1, fa$ (i): NEXT i

FOR i = 1 TO 25

FOR j = 1 TO 5

INPUT #2, re (i, j)

NEXT j, i

CLOSE

CLS: x = 0: z = 1: PRINT " Список студентов"

PRINT " № Ф, И, О оценки № Ф, И, О оценки "

FOR i = 1 TO 25

z = z + 1: IF z > 14 THEN z = 2: x = x + 30

LOCATE z + 1, x + 1: PRINT i; fa$ (i);

LOCATE z + 1, x + 15

FOR j = 1 TO 5

PRINT re (i, j);

NEXT j

PRINT

NEXT i

PRINT:

PRINT " " Отличники: ": s = 0: k = 0

FOR i = 1 TO 25

FOR j = 1 TO 5

s = s + re (i, j)

NEXT j

IF s > 24 THEN: k = k + 1: PRINT k; "_______ "; fa$ (i)

s = 0

NEXT i: PRINT

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

300 IF INKEY$ = "" THEN 300

GOTO 10

400 END

Результаты работы программы (на экране компьютера)

Список студентов:

№ Ф.И.О. оценки № Ф.И.О. оценки

1 Абирбаев 5 5 5 5 5 14 Копбаева 3 3 3 3 3

2 Азимханов 5 4 4 5 4 15 Калымханов 3 3 3 3 3

3 Алимхожаева 4 5 5 5 3 16 Каршыгабек 4 4 4 4 4

4 Баймуратова 5 5 5 5 5 17 Мукатаев 4 4 5 5 5

5 Байтугелов 5 5 5 5 5 18 Наурызбаев 4 4 4 4 4

6 Байманасов 4 5 3 3 5 19 Отеулин 4 4 4 4 4

7 Даулеталиев 4 0 5 4 5 20 Торекулов 4 4 4 3 3

8 Ержуманова 4 5 4 5 5 21 Тажиев 3 3 3 3 3

9 Жайлбаев 5 5 5 5 5 22 Тусупов 3 3 3 3 3

10 Жексенбино 5 5 5 4 3 23 Шагылбаева 3 3 3 4 4

11 Жоламанов 3 3 4 4 4 24 Калымбаева 4 4 4 4 5

12 Жанбыршиев 4 4 4 4 4 25 Бейсебаева 5 5 5 5 5

13 Каденов 4 3 3 3 3

Фамилия отличников:

1 _______ Абирбаев

2 _______ Баймуратова

3 _______ Байтугелов

4 _______ Жайлбаев

5 _______ Бейсебаева

для продолжения нажмите любую клавишу

Файл результатов: (для тестирования программы)

Имя файла: rez

Файл для фамилии: (для тестирования программы)

Имя файла: fam

Литература

1. В.Э. Фигурнов. "IBM PC для пользователя", 7-е издание. М-1997

2. Симашков А.С. и др. "Специальная информатика". Москва-1999

3. Г.И. Светозарова и др. "Практикум по программированию на языке Бейсик". М. Наука-1983.