Реферат: Пример программирования на Бейсике (результаты сессии 25 студентов, сдавших 5 экзаменов)
Задания №1
<span Times New Roman",«serif»;mso-ansi-language:RU">
<span Times New Roman",«serif»;mso-ansi-language:RU"> В чем состоят особенности организации пакетного режима работы ЭВМ, режима разделения времени и режимареального времени?
<span Times New Roman",«serif»;mso-ansi-language:RU">
<span Times New Roman",«serif»; mso-ansi-language:RU">ОТВЕТ:
<span Times New Roman",«serif»;mso-ansi-language:RU"> Особенность пакетного режимаработы ЭВМ состоят в том что, одновременно могут работать, сразу несколько программне зависимо друг — друга. Количество программы, которая работает одновременно,указывается пользователем в файле
<span Times New Roman",«serif»">CONFIG.SYS<span Times New Roman",«serif»; mso-ansi-language:RU">.<span Times New Roman",«serif»"> <span Times New Roman",«serif»; mso-ansi-language:RU">Режим разделения времени назначается процессором.Процессор разделяет время между работающими программами и устройствами. Промежутокэтого времени так мало, что пользователь не замечает, ему кажется, что устройства работает параллельно. Сущностьрежима реального времени в том, что в это время устройства работает с своейскоростью. (Работа дискета, печать, сканирования и т.д.)<span Times New Roman",«serif»;mso-ansi-language:RU">
Задания №2<span Times New Roman",«serif»;mso-ansi-language:RU">
Сформироватьфайл, содержащий результаты сессии студентов одной группы в виде матрицы вкаждой строке, которой хранятся результаты сессии (пять экзаменов) для одногостудента. В группе 25 студентов, ихфамилии хранятся в отдельном файле. Используя сформированный файл, вывести наэкран фамилии отличников.
<span Times New Roman",«serif»;mso-ansi-language:RU">
<span Times New Roman",«serif»">ОТВЕТ:
<span Times New Roman",«serif»"><span Times New Roman",«serif»">
<span Times New Roman",«serif»">10 CLS: DIM fa$(25), re(25, 5)
<span Times New Roman",«serif»">PRINT: PRINT"###################### работает программа: РЗУЛЬТАТЫСЕССЫ##############": PRINT
<span Times New Roman",«serif»">PRINT «1. Создания файла дляфамилий»
<span Times New Roman",«serif»">PRINT «2. Создания файла длярезультатов сессий»
<span Times New Roman",«serif»">PRINT «3. Просмотр результатовсессий»
<span Times New Roman",«serif»">PRINT «4. END»: PRINT
<span Times New Roman",«serif»">11 INPUT «Введите порядокработы:»; n: IF n > 4 OR n < 1 THEN 11
<span Times New Roman",«serif»">ON n GOTO fem, rez, otl, 400
<span Times New Roman",«serif»">
<span Times New Roman",«serif»">
<span Times New Roman",«serif»; mso-fareast-font-family:«Times New Roman»;mso-ansi-language:RU;mso-fareast-language: RU;mso-bidi-language:AR-SA"><span Times New Roman",«serif»">fem: CLS: PRINT «1. Создания файладля фамилий »: PRINT: PRINT
<span Times New Roman",«serif»"> PRINT «Введите фамилий студентов поодному на строке:»
<span Times New Roman",«serif»">OPEN «fam» FOR OUTPUT AS #1
<span Times New Roman",«serif»"> FOR i = 1 TO 25: INPUT fa$(i): NEXT i
<span Times New Roman",«serif»"> FOR i = 1 TO 25: PRINT #1, fa$(i): NEXT i
<span Times New Roman",«serif»"> FOR i = 1 TO 25: PRINT fa$(i): NEXT i
<span Times New Roman",«serif»"> CLOSE
<span Times New Roman",«serif»"> PRINT «Файл для фамилий создан»
<span Times New Roman",«serif»">LOCATE 24, 1: PRINT «Для продолжениянажмите любую клавишу»
<span Times New Roman",«serif»">110 IF INKEY$ = "" THEN 110
<span Times New Roman",«serif»">GOTO 10
<span Times New Roman",«serif»">
<span Times New Roman",«serif»">rez: CLS: PRINT «2. Создания файладля результатов сессий »: PRINT: PRINT
<span Times New Roman",«serif»"> PRINT " Введите результаты сессий по одному на строке "
<span Times New Roman",«serif»"> OPEN «rez» FOR OUTPUT AS #1
<span Times New Roman",«serif»"> FOR j = 1 TO 25
<span Times New Roman",«serif»"> FOR i = 1 TO 5
<span Times New Roman",«serif»"> INPUT re(j, i): PRINT #1, re(j, i)
<span Times New Roman",«serif»"> NEXT i, j
<span Times New Roman",«serif»"> CLOSE
<span Times New Roman",«serif»"> PRINT «Файл для результатов создан»
<span Times New Roman",«serif»">LOCATE 24, 1: PRINT «Для продолжениянажмите любую клавишу»
<span Times New Roman",«serif»">210 IF INKEY$ = "" THEN 210
<span Times New Roman",«serif»">GOTO 10
<span Times New Roman",«serif»">
<span Times New Roman",«serif»">
<span Times New Roman",«serif»; mso-fareast-font-family:«Times New Roman»;mso-ansi-language:RU;mso-fareast-language: RU;mso-bidi-language:AR-SA"><span Times New Roman",«serif»">otl: CLS
<span Times New Roman",«serif»">OPEN «fam» FOR INPUT AS #1
<span Times New Roman",«serif»"> OPEN «rez» FOR INPUT AS #2
<span Times New Roman",«serif»"> FOR i = 1 TO 25: INPUT #1, fa$(i): NEXT i
<span Times New Roman",«serif»"> FOR i = 1 TO 25
<span Times New Roman",«serif»"> FOR j = 1 TO 5
<span Times New Roman",«serif»"> INPUT #2, re(i, j)
<span Times New Roman",«serif»"> NEXT j, i
<span Times New Roman",«serif»"> CLOSE
<span Times New Roman",«serif»">
<span Times New Roman",«serif»"> CLS: x = 0: z = 1: PRINT " Список студентов"
<span Times New Roman",«serif»"> PRINT " № Ф, И, О оценки № Ф, И, О оценки "
<span Times New Roman",«serif»"> FOR i = 1 TO 25
<span Times New Roman",«serif»"> z = z + 1: IF z > 14 THEN z = 2: x = x + 30
<span Times New Roman",«serif»"> LOCATE z + 1, x + 1: PRINT i; fa$(i);
<span Times New Roman",«serif»"> LOCATE z + 1, x + 15
<span Times New Roman",«serif»"> FOR j = 1 TO 5
<span Times New Roman",«serif»"> PRINT re(i, j);
<span Times New Roman",«serif»"> NEXT j
<span Times New Roman",«serif»"> PRINT
<span Times New Roman",«serif»"> NEXT i
<span Times New Roman",«serif»"> PRINT :
<span Times New Roman",«serif»"> PRINT " ” Отличники: ": s = 0: k = 0
<span Times New Roman",«serif»"> FOR i = 1 TO 25
<span Times New Roman",«serif»"> FOR j = 1 TO 5
<span Times New Roman",«serif»"> s = s + re(i, j)
<span Times New Roman",«serif»"> NEXT j
<span Times New Roman",«serif»"> IF s > 24 THEN: k = k + 1:PRINT k; "_______ "; fa$(i)
<span Times New Roman",«serif»"> s = 0
<span Times New Roman",«serif»"> NEXT i: PRINT
<span Times New Roman",«serif»">PRINT «Для продолжения нажмите любуюклавишу»
<span Times New Roman",«serif»">300 IF INKEY$ = "" THEN 300
<span Times New Roman",«serif»">GOTO 10
<span Times New Roman",«serif»">400 END
<span Times New Roman",«serif»; mso-fareast-font-family:«Times New Roman»;mso-ansi-language:RU;mso-fareast-language: RU;mso-bidi-language:AR-SA"><span Times New Roman",«serif»;mso-ansi-language:RU">Результаты работы программы
<span Times New Roman",«serif»; mso-ansi-language:RU">(на экране компьютера)
<span Times New Roman",«serif»; mso-ansi-language:RU">
<span Times New Roman",«serif»; mso-ansi-language:RU">
<span Times New Roman",«serif»; mso-ansi-language:RU">
<span Times New Roman",«serif»">Список студентов
<span Times New Roman",«serif»; mso-ansi-language:RU"> № Ф.И.О оценки № Ф.И.О оценки
<span Times New Roman",«serif»; mso-ansi-language:RU"> 1 Абирбаев 5 5 5 5 5 14 Копбаева 3 3 3 3 3
<span Times New Roman",«serif»; mso-ansi-language:RU"> 2 Азимханов 5 4 4 5 4 15 калымханов3 3 3 3 3
<span Times New Roman",«serif»; mso-ansi-language:RU"> 3 Алимхожаева 4 5 5 5 3 16 Каршыгабек4 4 4 4 4
<span Times New Roman",«serif»; mso-ansi-language:RU"> 4 Баймуратова 5 5 5 5 5 17 Мукатаев 4 4 5 5 5
<span Times New Roman",«serif»; mso-ansi-language:RU"> 5 Байтугелов 5 5 5 5 5 18 Наурызбаев 4 4 4 4 4
<span Times New Roman",«serif»; mso-ansi-language:RU"> 6 Байманасов 4 5 3 3 5 19 Отеулин 4 4 4 4 4
<span Times New Roman",«serif»; mso-ansi-language:RU"> 7 Даулеталиев 4 0 5 4 5 20 Торекулов 4 4 4 3 3
<span Times New Roman",«serif»; mso-ansi-language:RU"> 8 Ержуманова 4 5 4 5 5 21 Тажиев 3 3 3 3 3
<span Times New Roman",«serif»; mso-ansi-language:RU"> 9 Жайлбаев 5 5 5 5 5 22 Тусупов 3 3 3 3 3
<span Times New Roman",«serif»; mso-ansi-language:RU"> 10 Жексенбино 5 5 5 4 3 23 Шагылбаева 3 3 3 4 4
<span Times New Roman",«serif»; mso-ansi-language:RU"> 11 Жоламанов 3 3 4 4 4 24 Калымбаева 4 4 4 4 5
<span Times New Roman",«serif»; mso-ansi-language:RU"> 12 Жанбыршиев 4 4 4 4 4 25Бейсебаева 5 5 5 5 5
<span Times New Roman",«serif»; mso-ansi-language:RU"> 13 Каденов 4 3 3 3 3
<span Times New Roman",«serif»; mso-ansi-language:RU"> Фамилия отличников
<span Times New Roman",«serif»; mso-ansi-language:RU"> 1 _______ Абирбаев
<span Times New Roman",«serif»; mso-ansi-language:RU"> 2 _______ Баймуратова
<span Times New Roman",«serif»; mso-ansi-language:RU"> 3 _______ Байтугелов
<span Times New Roman",«serif»; mso-ansi-language:RU"> 4 _______ Жайлбаев
<span Times New Roman",«serif»; mso-ansi-language:RU"> 5 _______Бейсебаева
<span Times New Roman",«serif»; mso-ansi-language:RU">
<span Times New Roman",«serif»; mso-ansi-language:RU">для продолжения нажмите любую клавишу
<span Times New Roman",«serif»;mso-fareast-font-family: «Times New Roman»;mso-ansi-language:RU;mso-fareast-language:RU;mso-bidi-language: AR-SA"><span Times New Roman",«serif»; mso-ansi-language:RU">Файл результатов:
<span Times New Roman",«serif»;mso-ansi-language: RU"> (для тестирования программы)<span Times New Roman",«serif»; mso-ansi-language:RU">
<span Times New Roman",«serif»; mso-ansi-language:RU">Имя файла:
<span Times New Roman",«serif»">rez<span Times New Roman",«serif»"><span Times New Roman",«serif»">
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
<span Times New Roman",«serif»">
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
<span Times New Roman",«serif»; mso-ansi-language:RU">
<span Times New Roman",«serif»">
<span Times New Roman",«serif»">
Файл для фамилии:<span Times New Roman",«serif»">(длятестирования программы)
Имя файла: fam
<span Times New Roman",«serif»; mso-ansi-language:RU">1 Абирбаев
<span Times New Roman",«serif»; mso-ansi-language:RU"> 2 Азимханов
<span Times New Roman",«serif»; mso-ansi-language:RU"> 3 Алимхожаева
<span Times New Roman",«serif»; mso-ansi-language:RU"> 4 Баймуратова
<span Times New Roman",«serif»; mso-ansi-language:RU"> 5 Байтугелов
<span Times New Roman",«serif»; mso-ansi-language:RU"> 6 Байманасов
<span Times New Roman",«serif»; mso-ansi-language:RU"> 7 Даулеталиев
<span Times New Roman",«serif»; mso-ansi-language:RU"> 8 Ержуманова
<span Times New Roman",«serif»; mso-ansi-language:RU"> 9 Жайлбаев
<span Times New Roman",«serif»; mso-ansi-language:RU"> 10 Жексенбино
<span Times New Roman",«serif»; mso-ansi-language:RU"> 11 Жоламанов
<span Times New Roman",«serif»; mso-ansi-language:RU"> 12 Жанбыршиев
<span Times New Roman",«serif»"> 13 Каденов
<span Times New Roman",«serif»">14 Копбаева
<span Times New Roman",«serif»;mso-ansi-language:EN-US"><span Times New Roman",«serif»">15 калымханов
<span Times New Roman",«serif»;mso-ansi-language:EN-US"><span Times New Roman",«serif»">16 Каршыгабек
<span Times New Roman",«serif»;mso-ansi-language:EN-US"><span Times New Roman",«serif»">17 Мукатаев
<span Times New Roman",«serif»;mso-ansi-language:EN-US"><span Times New Roman",«serif»">18 Наурызбаев
<span Times New Roman",«serif»;mso-ansi-language:EN-US"><span Times New Roman",«serif»">19 Отеулин
<span Times New Roman",«serif»;mso-ansi-language:EN-US"><span Times New Roman",«serif»">20 Торекулов
<span Times New Roman",«serif»;mso-ansi-language:EN-US"><span Times New Roman",«serif»">21 Тажиев
<span Times New Roman",«serif»;mso-ansi-language:EN-US"><span Times New Roman",«serif»">22
<span Times New Roman",«serif»;mso-ansi-language:EN-US"> <span Times New Roman",«serif»">Тусупов<span Times New Roman",«serif»;mso-ansi-language: EN-US"><span Times New Roman",«serif»">23 Шагылбаева
<span Times New Roman",«serif»;mso-ansi-language:EN-US"><span Times New Roman",«serif»">24 Калымбаева
<span Times New Roman",«serif»;mso-ansi-language:EN-US"><span Times New Roman",«serif»">25 Бейсебаева
<span Times New Roman",«serif»; mso-ansi-language:EN-US"><span Courier New";mso-fareast-font-family: «Times New Roman»;mso-bidi-font-family:«Times New Roman»;mso-ansi-language: RU;mso-fareast-language:RU;mso-bidi-language:AR-SA">
Литературы:
<span Courier New"; mso-bidi-font-family:«Courier New»">1.<span Times New Roman"">
В. Э. Фигурнов. «IBM PC для пользователя.» 7-еиздания М-1997<span Courier New"; mso-bidi-font-family:«Courier New»">2.<span Times New Roman"">
СимашковА. С. и др. «Специальная информатика». Москва-1999<span Courier New"; mso-bidi-font-family:«Courier New»">3.<span Times New Roman"">
Г. И. Светозарова и др. «Практикум по програмированию на языке Бейсик». М. Наука-1983.