Предыдущая страница реферата | 1  2  3  4  5 | Следующая страница реферата

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

Рекомендуем скачать другие рефераты по теме: реферат,, понятие культуры.





Предыдущая страница реферата | 1  2  3  4  5 | Следующая страница реферата