Читайте данную работу прямо на сайте или скачайте

Пример программирования на Бейсике (результаты сессии 25 студентов, сдавших 5 экзаменов)

Задания

ОТВЕТ:

Задания

ОТВЕТ:

10 CLS:а

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

OPEN "fam" FOR OUTPUT AS #1

LOCATE 24, 1: PRINT Для продолжения нажмите любую клавишу

110 IF INKEY$ = "" THEN 110

GOTO 10

rez: CLS : PRINT "2. Создания файла для результатов сессий ": PRINT : PRINT

LOCATE 24, 1: PRINT Для продолжения нажмите любую клавишу

210 IF INKEY$ = "" THEN 210

GOTO 10

otl: CLS

OPEN "fam" FOR INPUT AS #1

PRINT Для продолжения нажмите любую клавишу

300 IF INKEY$ = "" THEN 300

GOTO 10

400 END
Результаты работы программы

(на экране компьютера)

Список студентов

для продолжения нажмите любую клавишу
Файл результатов:

Имя файла:а

1 Абирбаев

14 Копбаева 15 калымханов 16 Каршыгабек 17 Мукатаев 18 Наурызбаев 19 Отеулин 20 Торекулов 21 Тажиев 22 23 Шагылбаева 24 Калымбаева 25 Бейсебаева

Литературы:

1.       

2.       

3.