Пример программирования на Бейсике (результаты сессии 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
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 Мукатаев
19 Отеулин
20 Торекулов
21 Тажиев
22 Тусупов
23 Шагылбаева
24 Калымбаева
25 Бейсебаева
|
Литературы:
1.
В. Э. Фигурнов. «IBM PC для
пользователя.» 7-е издания М-1997
2.
Симашков А. С. и др. «Специальная
информатика». Москва-1999
3.
Г. И. Светозарова и др.
«Практикум по програмированию на языке Бейсик». М. Наука-1983.