Реферат: Пример программирония на Бейсике (результаты сессии 25 студентов, сдавших 5 экзаменов)
Задания №1
В чем состоят особенности организации пакетного режима работы ЭВМ, режимаразделения времени и режима реального времени?
ОТВЕТ:
Особенностьпакетного режима работы ЭВМ состоят в том что, одновременно могут работать,сразу несколько программ не зависимо друг — друга. Количество программы,которая работает одновременно, указывается пользователем в файле CONFIG.SYS. Режим разделениявремени назначается процессором. Процессор разделяет время между работающимипрограммами и устройствами. Промежуток этого времени так мало, что пользовательне замечает, ему кажется, что устройства работает параллельно. Сущность режимареального времени в том, что в это время устройства работает с своей скоростью.(Работа дискета, печать, сканирования и т.д.)
Задания №2Сформировать файл, содержащий результаты сессиистудентов одной группы в виде матрицы в каждой строке, которой хранятсярезультаты сессии (пять экзаменов) для одного студента. В группе 25 студентов,их фамилии хранятся в отдельном файле. Используя сформированный файл, вывестина экран фамилии отличников.
ОТВЕТ:
10CLS: DIM fa$(25), re(25, 5)
PRINT: PRINT "###################### работает программа: РЗУЛЬТАТЫСЕССЫ##############": PRINT
PRINT«1. Создания файла для фамилий»
PRINT«2. Создания файла для результатов сессий»
PRINT«3. Просмотр результатов сессий»
PRINT«4. END»: PRINT
11INPUT «Введите порядок работы:»; n: IF n > 4 OR n < 1 THEN 11
ONn 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 «Файл для фамилий создан»
LOCATE24, 1: PRINT «Для продолжения нажмите любую клавишу»
110IF INKEY$ = "" THEN 110
GOTO10
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 «Файл для результатов создан»
LOCATE24, 1: PRINT «Для продолжения нажмите любую клавишу»
210IF INKEY$ = "" THEN 210
GOTO10
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«Для продолжения нажмите любую клавишу»
300IF INKEY$ = "" THEN 300
GOTO10
400END
Результатыработы программы
(на экранекомпьютера)
Список студентов
№ Ф.И.О оценки № Ф.И.О оценки
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 Бейсебаева
Литературы:
1. В. Э. Фигурнов. «IBM PC дляпользователя.» 7-е издания М-1997
2. Симашков А. С. и др. «Специальнаяинформатика». Москва-1999
3. Г. И. Светозарова и др. «Практикумпо програмированию на языке Бейсик». М. Наука-1983.