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

         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

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





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