Реферат: Пример программирования на Бейсике (результаты сессии 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.
еще рефераты
Еще работы по программированию, базе данных