Главная    Почта    Новости    Каталог    Одноклассники    Погода    Работа    Игры     Рефераты     Карты
  
по Казнету new!
по каталогу
в рефератах

Из опыта создания универсальных тестовых редакторов

                          Структурная программа.
   Первым этапом разработки программы  стало  написание  текста  структурной
программы.  Структурная  программа-   последовательность   простых   команд,
операторов, реализующая ядро, то есть действие программы. Уже на этом  этапе
программа работает с текстовыми  файлами.  Для  осуществления  связей  между
отдельными частями программы, реализующими функции редактора, я  использовал
оператор безусловного перехода GoTo.
    Ниже  приведена  схема  структурной   программы   тестового   редактора,
объясняющая  соответствующий  подход  к  программированию.  Основной  список
операторов вырезан и заменен на <набор операторов>. Конечный  вид  программы
будет приведен в главе “Объектное программирование” объектов.
Program redactor;
uses crt,printer; {подключениемодулей}
label l1,l2,l3,l4; {метки}
  Var a,f,f1,a2:string;      {разделописаний}
      b,k:char;
      c,u,y,a1,b1:text;
      d,e,i,j,p,z:integer;
      c1:boolean;
  Procedure oform;       {процедура оформления начала программы}
    Begin
    <набор операторов>
    End;
    Begin
    oform;  {оформление начала программы}
    <набор операторов>
Writeln('Новый файл(New),Открыть файл(Open),Редактирование(Redact),');
{вывод
 
                                                 альтернативных функций}
    Writeln('Просмотр результатов(Search),Выход(Any key)');
    b:=readkey;  {выбор нужной функции}
    case b of   {оператор варианта}
По нажатию соответствующей клавиши происходит выбор функции.
'n','в':Begin
     l1:<набор операторов>  {выполнение функции}
        End;
'o','й':Begin
     l2:<набор операторов>  {выполнение функции}
        End;
'r','Є':Begin
     l3:<набор операторов>  {выполнение функции}
        End;
    's','ы':Begin
         l4:<набор операторов>  {выполнение функции}
             End;
    End;
    <набор опреаторов>
    Writeln('Новый файл(New),)Открыть файл(Open),Редактировать(Redact)');
{запрос о выборе перед
 
 
     выходом}
    Writeln('Просмотр результатов(Search),Выход(Any key)');
    b:=readkey;  {выбор варианта}
    <набор операторов>
    case b of  {оператор варианта}
    'n','т':GoTo l1;  {ссылка на метку}
    'o','щ':GoTo l2;
    'r','к':GoTo l3;
    's','ы':GoTo l4;
    End;
Набор операторов безусловного перехода для возвращения к той или иной
функции.
    <набор операторов>
    End.
 
 
   На  экран  выводится  список  возможных  функций  программы.  Для  выбора
определенной функции необходимо нажать соответствующую  клавишу  (указана  в
скобках  заглавной  буквой).  Затем  оператор  варианта   запускает   нужную
функцию. Как видно, учтен случай непереключенного алфавита  (буквы  вводятся
как латинские, так и русские).
   Перед выходом вновь выводится данный запрос (так как цикл неуместен) и  в
случае выбора определенной функции происходит ссылка на функцию.
 
 
 
                                                  Интерфейс структурной
программы
 
 
                            Доработка программы.
   После отладки начальной  программы  потребовалось  ввести  дополнительные
функции. Помимо стандартной функции  создания  и  открытия  готового  теста,
появились  такие  как   редактирование   тестов,   подсчет   результатов   и
выставление оценки, таймер, составление отчета, защита тестов от  просмотра.
Но  самое  главное-  это  усовершенствование  интерфейса,  введение  оконной
диалоговой системы.
   Рассмотрим перечисленные функции. Функция  подсчета  результата  записана
так:
        z:=p*100 div z;      {расчет количества правильных ответов}
        Writeln('количество правильных ответов: ',p);
        Write('оценка '); {выставление оценки}
        If z>=90 Then Begin
                                Writeln('5')
                                Writeln(b1,’5’);
                                End;
        else If z>=70 Then Begin
                                        Writeln('4')
                                        Writeln(b1,’4’);
                                        End;
        else If z>=40 Then Begin
                                        Writeln('3')
                                        Writeln(b1,’3’);
                                        E
12345След.
скачать работу

Из опыта создания универсальных тестовых редакторов

 

Отправка СМС бесплатно

На правах рекламы


ZERO.kz
 
Модератор сайта RESURS.KZ