Пример программирования на Бейсике (результаты сессии 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

 Файл для фамилии: (для тестирования программы)

 Имя файла: fam

Литературы:

1.        В. Э. Фигурнов. «IBM PC для пользователя.» 7-е издания М-1997

2.        Симашков А. С. и др. «Специальная информатика».  Москва-1

3.        Г. И. Светозарова и др. «Практикум по програмированию на языке Бейсик». М. Наука-1983.