Блок 5 - проверка условия наличия иллюстрации. Эта проверка производится после считывания очередной записи файла теории с помощью условного оператора CASE. С константами оператора сравнивается содержимое поля Р1. В случае наличия иллюстрации она выводится на экран. Если иллюстрация не требуется/то выполняется далее считывание текста теории и после окончания цикла REPEAT очистка экрана. Блок 6 - вывод иллюстрации. Вывод осуществляется с помощью оператора OutTextXY.
Блок 7 - очистка экрана. Производится после вывода 31 строки текста.
Блок 8 - проверка конца файла. Осуществляется с помощью оператора цикла REPEAT. В поле Р1 последней записи содержится значок"0". При обнаружении этого значка считывание прекращается и цикл завершает свою работу.
Блоки 9 -24 обеспечивают работу с контрольными вопросами.
Блок 9 - проверка наличия контрольных вопросов. Этот блок означает, что если это алгоритм работы модулей RAZDEL1 или RAZDEL2 , то блок 8 является последним и так как эти разделы не содержат контрольные вопросы, то после условной вершины блока 9 модуль заканчивает свою работу. Если же мы рассматриваем работу алгоритма для модулей, которые содержат контрольные вопросы, то по "Да" переходим к блоку 10.
Блок 10 - процедура OKNO1 . Эта процедура содержится в библиотечном модуле MYBOOK и формирует заставку с надписью "Контрольные вопросы".
Блок 11 - Случайный выбор номеров вопросов. Выбираются четыре номера вопросов из десяти имеющихся . Это делается случайным образом с помощью генератора случайных чисел RANDOMIZE и функции Random, которая формирует случайное число. Выбранные номера вопросов запоминаются в массиве М[0..3] . Элементы этого массива используются при поиске нужного вопроса при выводе текста теоретической части и при поиске нужного номера вопроса для вывода текста справки.
Блок 12 - связь с файлом текста вопросов. Блок содержит операторы , устанавливающие связь с файлом текста вопросов, открывающие его для чтения и обеспечивающие проверку наличия файлов в каталоге.
Блок 14 - вывод текста очередного вопроса. Записи начинают считываться по одной. Поле Р2 сравнивается с содержимым массива случайно выбранных чисел М[0..3] . При обнаружении необходимого номера вопроса начинается его вывод на экран с помощью процедуры OutTextXY вплоть до появления признака конца вопроса "*", содержащегося в поле Р1.
Блок 15 - проверка наличия иллюстрации. Признаком наличия иллюстрации служит любой символ кроме "*" , "О" в поле Р1. Если при считывании очередной записи обнаружен признак наличия иллюстрации, то она выводится на экран . Проверка наличия иллюстрации и ее выбор осуществляется с помощью условного оператора CASE.
Блок 16 - вывод иллюстрации. Вывод осуществляется с помощью оператора outTextXY других операторов формирования графических изображений в зависимости от содержания иллюстрации.
Блок 17 - проверка введенного числа. При выводе очередного вопроса на экран внизу экрана располагается надпись : "ВВЕДИТЕ НОМЕР ПРАВИЛЬНОГО ОТВЕТА ___ " . Обучаемый должен ввести число 1,2,3 или 4. Если введено какое-либо другое число, то на экране останется текст вопроса, место для ввода номера ответа останется пустым. Если же число введено верно, то программа переходит к обработке введенной информации.
Блок 18 - связь с файлом текста справок. Устанавливается связь с файлом текста справок, файл открывается для чтения, осуществляется проверка наличия файла в каталоге.
Блок 19 - вывод текста справок. Поиск нужной справки происходит вначале с помощью условного оператора If , когда выбирается запись с нужным номером вопроса . Далее в цикле REPEAT вплоть до появления Признака конца вопроса "*" в поле Р1 происходит поиск нужного номера ответа. Когда номер ответа найден, он выводится на экран .
Блок 20 и 21 - аналогичны блокам 15 и 16.
Блок 22 - фиксация результатов. При считывании и выводе на экран первой записи справки переменной REZY присваивается значение поля Р5 файла текста справок, это поле содержит оценку за ответ на вопрос. Переменная REZY накапливает оценки за четыре ответа. После окончания работы модуля значение этой переменной присваивается переменной главной программы ballY[nomerX]. При повторном вхождении в данный раздел переменная REZY обнуляется.
Блок 23 - очистка экрана. Производится с помощью процедуры ClearDevice.
Блок 24 - Проверка условия конца вопросов. Если вопрос не последний, то программа возвращается к выполнению блока 14 и далее. Если уже считано и выведено четыре вопроса , то модуль заканчивает свою работу.
3.4. Используемые технические средства
Для работы с данной программой необходимо иметь следующие технические средства: персональный компьютер типа IBM или совместимый с ним , растровый дисплей с графическим адаптером типа EGA, который будет иметь объем видеобуфера 256 К , графический вывод 640x350 пиксел, 16 регистров палитры. В качестве программного обеспечения для работы данной программы необходимо иметь DOS, инструментальную интегрированную среду Turbo-Pascal 7.0, набор файлов нестандартных шрифтов bold.chr, goth.chr, sans.chr, trip.chr.
3.5. Вызов и загрузка
Для работы программы необходимо иметь в памяти компьютера следующие файлы: загрузочный модуль graphic.exe, модули razdell.tpu, razde!2.tpu, razdelS.tpu, razde!4.tpu, razdelS.tpu, razde!6.tpu, razde!7.tpu, библиотечный модуль mybook.tpu, файлы нестандартных шрифтов bold.chr, goth.chr, sans.chr, trip.chr , модуль из библиотеки языка Pascal graph.tpu, драйвер egavga.bgi, текстовые файлы базы данных: raztexl.pas, raztex2.pas, raztexS.pas, raztex4.pas, raztexS.pas, raztex6.pas, raztex7.pas - содержащие тексты теории, joing.pas, iod.pas , joi.pas, iodi.pas, join.pas, iodin.pas, jois.pas, iodis.pas, jos.pas, ios.pas - содержащие текст вопросов и справок.
Все они хранятся на жестком диске. Запуск программы осуществляется обращением к загрузочному модулю graphic.exe. При этом все необходимые модули автоматически загружаются в оперативную память Объем данной обучающей программы 80 000 байт. Любая IBM PC имеет объем оперативной памяти, доступной для пользовательских программ, не менее 640 Кбайт. Таким образом объем данной обучающей программы является незначительным и никаких трудностей с использованием оперативной памяти нет.
Программа имеет одну входную точку - начало программы.
3.6. Входные и выходные данные
Программа для обучения "Графика", работает в диалоговом режиме. Однако, ЭВМ ведет диалог с обезличенным пользователем. ЭВМ не регистрирует фамилии обучаемых и соответственно не ведет журнал. От программиста или оператора не требуется ввод какой-либо информации для запуска программы и начала ее работы. Запуск осуществляетя обращением к загрузочному модулю graphic.exe.
От обучаемого требуется при ответе на контрольные вопросы ввести номер правильного ответа. Согласно введенному числу из файла справок считывается число - оценка за ответ. Оценки за все ответы складываются и затем выставляется одна оценка за работу со всеми вопросами раздела. Таким образом вводимый обучаемым номер ответа можно рассматривать как входную информацию, которая после обработки формирует определенные выходные данные - оценку работы за сеанс.
Контрольные вопросы содержат разделы 3 - 7 . Доступ к изучению этих разделов ограничен. Возможно только два раза ответить на контрольные вопросы этих разделов. Все получение оценки фиксируются и хранятся в переменных главной программы до окончания работы с программой. По разделу меню "Результаты Вашей работы" можно получить на экране ведомость оценок. Обращение к данному разделу меню возможно в любой момент работы.
Выводимые на экран оценки сохраняются до выхода из программы. Программа не предусматривает вывод этих оценок на печать или хранение их в памяти компьютера после окончания ее работы . Таким образом выходными данными программы являются оценки, выводимые на экран дисплея. В табл. 8 приведено соответствие между переменными главной программы, содержащими оценки, и аналогичными переменными процедур.
NomerX - переменная, регламентирующая число возможных обращений к процедурам. Может принимать два значения - 1 и 2.
REZY - переменная процедуры, которой присваивается значение выставляемой оценки. ballY[NomerX] - Переменная, хранящая значение оценки в главной программе. Формируется следующим образом: baUY[NomerX] :=REZY
Itog[NomerX] - переменная накопления результатов работы за сеанс по итогам двух попыток. Формируется следующим образом:
Itog[NomerX]:=ItogTNomerX3+baIlY[NomerX] tog[NomerX] - переменная вывода результатов работы за сеанс по итогам двух попыток, формируется следующим образом: togЈNonterX3: =Round(Itog[NomerX]/K[NomerX]), где К[NomerX] - переменная, накапливающая число попыток ответов на контрольные вопросы.
Таблица 8
Соответствие между переменными главной программы и процедур
|Имя |Апеременная|Переменные главной программы | |процедуры |процедуры | | | |REZY |NomerX |BallY[NomerX]|Itog[NomerX] |Tog[NomerX] | |RAZDEL30 |REZ3 |1 |Ball3[1] |Itog[1] |Tog[1] | | |REZ3 |2 |Ball3[2] |Itog[2] |Itog[2] | |RAZDEL40 |REZ4 |1 |Ball4[1] |Itog[1] |Itog[1] | | |REZ4 |2 |Ball4[2] |Itog[2] |Itog[2] | |RAZDEL50 |REZ5 |1 |Ball5[1] |Itog[1] |Itog[1] | | |REZ5 |2 |Ball5[2] |Itog[2] |Itog[2] | |RAZDEL60 |REZ6 |1 |Ball6[1] |Itog[1] |Itog[1] | | |REZ6 |2 |Ball6[2] |Itog[2] |Itog[2] | |RAZDEL70 |REZ7 |1 |Ball7[1] |Itog[1] |Itog[1] | | |REZ7 |2 |Ball7[2] |Itog[2] |Itog[2] |
4. ОПИСАНИЕ ПРИМЕНЕНИЯ
4.1. Назначение программы
Программа для обучения работе в графическом режиме языка Turbo-Pascal предназначена для обучения студентов младших курсов Санкт-Петербургской государственной академии аэрокосмического приборостроения. Программа рассчитана на студента, знакомого со стандартом языка, имеющего понятие об инструментальной интегрированной среде , имеющего элементарные навыки работы с персональным компьютером.
Программа содержит семь разделов для изучения по теме "Графический режим языка Turbo-Pascal" : программирование графических режимов, управление курсором и полем рисования, формирование прямолинейных монохромных изображений, управление цветом и стилем изображений, программирование цветных криволинейных изображений, формирование графических текстов, программирование озвученных динамических сцен. Эти разделы практически полностью охватывают тему.
Страницы: 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13
