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