Пример программирования на Бейсике (результаты сессии 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 5555 14 Копбаева 33333
2 Азимханов 5445 4 15 калымханов 33333
3 Алимхожаева 45553 16 Каршыгабек 44444
4 Баймуратова 55555 17 Мукатаев 44555
5 Байтугелов 55555 18 Наурызбаев 44444
6 Байманасов 45335 19 Отеулин 4 4444
7 Даулеталиев 405 45 20 Торекулов 44 433
8 Ержуманова 45 455 21 Тажиев 3 3333
9 Жайлбаев 55555 22 Тусупов 3 3333
10 Жексенбино 5554 3 23 Шагылбаева33344
11 Жоламанов 33444 24 Калымбаева 44445
12 Жанбыршиев 44444 25 Бейсебаева 55555
13 Каденов 43333
Фамилия отличников
1 _______ Абирбаев
2 _______ Баймуратова
3 _______ Байтугелов
4 _______ Жайлбаев
5 _______ Бейсебаева
для продолжения нажмите любую клавишу
Файл результатов: (для тестирования программы)
Имя файла:rez
|
55555 5 4454 4 5553 55555 55555 4 5335 4 5545 4 5455 555 55 55543 33444 44444 4 3333 33333 |
33333 44444 44555 44444 44444 44433 33333 33333 33344 44445 55555 |
Файл для фамилии: (для тестирования программы)
Имя файла: 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 Бейсебаева |
Литературы:
1. В. Э. Фигурнов. «IBM PC для пользователя.» 7-е издания М-1997
2. Симашков А. С. и др. «Специальная информатика».Москва-1999
3. Г. И. Светозарова и др. «Практикум по програмированию на языке Бейсик». М. Наука-1983.