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

    Дисциплина: Программирование
    Тип работы: Курсовая
    Тема: Пример программирования на Бейсике (результаты сессии 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 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
    14 THEN z = 2: x = x + 30
    LOCATE z + 1, x + 15
    FOR j = 1 TO 5
    NEXT j
    PRINT
    NEXT i
    PRINT :
    PRINT \"
    Отличники: \": s = 0: k =
    FOR i = 1 TO 25
    FOR j = 1 TO 5
    s = s + re(i, j)
    NEXT j
    fa$(i)
    s = 0
    NEXT i: PRINT
    PRINT «Для продолжения нажмите любую клавишу»
    300 IF INKEY$ = \"\" THEN 300
    GOTO 10
    400 END
    Результаты работы программы
    (на экране компьютера)
    Список студентов
    Ф.И.О
    оценки
    Ф.И.О
    оценки
    1 Абирбаев
    Копбаева
    Азимханов
    калымханов 3
    Алимхожаева
    Каршыгабек 4
    Баймуратова
    Мукатаев
    Байтугелов
    Наурызбаев
    Байманасов
    Отеулин
    Даулеталиев
    Торекулов
    Ержуманова
    Тажиев
    Жайлбаев
    Тусупов
    Жексенбино
    Шагылбаева
    Жоламанов
    Калымбаева
    Жанбыршиев 4
    25 Бейсебаева
    Каденов
    Фамилия отличников
    1 _______ Абирбаев
    2 _______
    Баймуратова
    3 _______
    Байтугелов
    4 _______
    Жайлбаев
    5 _______ Бейсебаева
    для продолжения нажмите любую клавишу
    Файл результатов:
    (для тестирования программы)
    Имя файла:
    Файл для фамилии:
    (для тестирования программы)
    Имя файла:
    1 Абирбаев
    Азимханов
    Алимхожаева
    Баймуратова
    Байтугелов
    Байманасов
    Даулеталиев
    Ержуманова
    Жайлбаев
    Жексенбино
    Жоламанов
    Жанбыршиев
    Каденов
    Копбаева
    калымханов
    Каршыгабек
    Мукатаев
    Наурызбаев
    Отеулин
    Торекулов
    Тажиев
    Тусупов
    Шагылбаева
    Калымбаева
    25 Бейсебаева
    Литературы:
    В. Э. Фигурнов. «
    IBM PC
    для пользователя.» 7-е издания М-1997
    Симашков
    А. С. и др. «Специальная информатика».
    Москва-1999
    Г. И.
    Светозарова и др. «Практикум по
    програмированию на языке Бейсик». М. Наука-1983.
    Язык: Русский
    Скачиваний: 91
    Формат: Microsoft Word
    Размер файла: 8 Кб
    Автор:
    Скачать
    работу...

    Забрать файл

    Похожие материалы:


ПИШЕМ УНИКАЛЬНЫЕ РАБОТЫ
Заказывайте напрямую у исполнителя!


© 2006-2016 Все права защищены