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