Лабораторный практикум по информатике. Гурьяшова Р.Н - 67 стр.

                 6. Листинг Basic-программы
  Примечание. При вводе фамилий в программе инициалы не учитываются!
' Анализ итогов сессии
CLS
DIM A(10), F$(10)
' Задание фамилий и оценок студентов
DATA "ЮДИН",5,"АШИН",4,"ИТИН",4,"БУТ",3,"БЕХ",2,
DATA "ЭТИН",5,"ЮРОВ",4,"АПИН",2,"ФЕТ",4,"КАЦ",3
PRINT TAB(7); " ОЦЕНКИ "
' Ввод фамилий и оценок
FOR I = 1 TO 10 ' Начало цикла
    READ F$(I), A(I)
    PRINT A(I); ' Вывод оценок Ai
NEXT I ' Конец цикла
PRINT ' Пропуск строки
PRINT STRING$(28, "-") ' Вывод строки символов
 K5 = 0: K4 = 0: N = 10
 PRINT TAB(7); " ОТЛИЧНИКИ "
FOR I = 1 TO N ' Начало цикла
  IF A(I) = 5 THEN ' Если Ai = 5
     K5 = K5 + 1: PRINT TAB(6); F$(I)
  ELSE ' Иначе, если Ai ≠ 5
     IF A(I) = 4 THEN K4 = K4 + 1
  END IF
NEXT I ' Конец цикла
' Вывод результатов
PRINT USING " K5 = # ## % "; K5, K5*100/N
PRINT USING " K4 = # ## % "; K4, K4*100/N
END
  Значения переменных K4 и K5 выводятся также и в процентах.
     7. Макет печати результатов (по Basic-программе)



 Как видно, результаты
 ручного и машинного
  расчётов совпадают.



                                67