Рефераты - Афоризмы - Словари
Русские, белорусские и английские сочинения
Русские и белорусские изложения
 

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


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

|1 Абирбаев                       |14 Копбаева                      |
|2 Азимханов                      |15 калымханов                    |
|3 Алимхожаева                    |16 Каршыгабек                    |
|4 Баймуратова                    |17 Мукатаев                      |
|5 Байтугелов                     |18 Наурызбаев                    |
|6 Байманасов                     |19 Отеулин                       |
|7 Даулеталиев                    |20 Торекулов                     |
|8 Ержуманова                     |21 Тажиев                        |
|9 Жайлбаев                       |22 Тусупов                       |
|10 Жексенбино                    |23 Шагылбаева                    |
|11 Жоламанов                     |24 Калымбаева                    |
|12 Жанбыршиев                    |25 Бейсебаева                    |
|13 Каденов                       |                                 |



Литературы:
          1. В. Э. Фигурнов. «IBM PC для пользователя.» 7-е издания М-1997
          2. Симашков А. С. и др. «Специальная информатика».  Москва-1999
          3. Г. И. Светозарова и др. «Практикум по програмированию на языке
             Бейсик». М. Наука-1983.


ref.by 2006—2022
contextus@mail.ru