Пример программирония на Бейсике (результаты сессии 25 студентов, сдавших 5 экзаменов)

Задания №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 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 5 5 5 5 5 5 4 4 5 4 4 5 5 5 3 5 5 5 5 5 5 5 5 5 5 4 5 3 3 5 4 5 5 4 5 4 5 4 5 5 5 5 5 5 5 5 5 5 4 3 3 3 4 4 4 4 4 4 4 4 4 3 3 3 3 3 3 3 3 3 3 3 3 3 3 4 4 4 4 4 4 4 5 5 5 4 4 4 4 4 4 4 4 4 4 4 4 4 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 4 4 4 4 4 4 5 5 5 5 5 5 Файл для фамилии: (для тестирования программы) Имя файла: fam 1 Абирбаев 2 Азимханов 3 Алимхожаева 4 Баймуратова 5 Байтугелов 6 Байманасов 7 Даулеталиев 8 Ержуманова 9 Жайлбаев 10 Жексенбино 11 Жоламанов 12 Жанбыршиев 13 Каденов 14 Копбаева 15 калымханов 16 Каршыгабек 17 Мукатаев 18 Наурызбаев 19 Отеулин 20 Торекулов 21 Тажиев 22 Тусупов 23 Шагылбаева 24 Калымбаева 25 Бейсебаева Литературы: В. Э. Фигурнов. “IBM PC для пользователя. ” 7-е издания М-1997 Симашков А. С. и др. “Специальная информатика”. Москва-1999 Г. И. Светозарова и др. “Практикум по програмированию на языке Бейсик”. М. Наука-1983.