Предыдущая страница реферата | 3  4  5  6  7  8  9  10  11  12  13 | Следующая страница реферата

    Write(' ');

    TextColor(darkgray); {цвет текста}

    For a:=1 to (x1-x-9-length(b)) do Write(chr(205)); {рисование линии}

    Writeln(chr(187)); {рисование уголка}

    For a:=1 to (y1-y-1) do Begin   {рисование линий по бокам}

                      Write(' ');

                      Write(chr(186));

                      For t:=1 to (x1-x-3) do Write(' ');

                      Writeln(chr(186));

                      End;

    Write(' ');

    Write(chr(200)); {рисование уголка}

    For a:=1 to (x1-x-3) do Write(chr(205)); {рисование линии}

    Write(chr(188)); {рисование уголка}

    Window(x+2,y+1,x1-2,y1-1); {открытие окна ввода внутри окна}

    TextColor(black);

    End;

Здесь все довольно просто: окно открывается оператором Window с указанием координат. По завершении текущего сеанса окно закрывается (закрашивается) той же командой. В данной программе окна закрываются и открываются много раз, запрашивая каждое свои данные, что выглядит намного проще, чем множество строк на экране, не так ли?

Вот как это выглядит в программе:

 Window(10,22,69,22);   {указывается окно с координатами}

  TextBackGround(green); {задается цвет фона}

  clrscr; {окно закрашивается}

Введение процедур. Основные функции редактора.

Как видно в структурной программе, функции обозначены в операторе варианта case. Для удобства обращения к ним и для установления более эффективных связей между ними я решил вынести функции в отдельные процедуры. Это создало дополнительные трудности: потребовалось изменить структуру переменных, ввести локальные переменные. В результате общий вид программы изменился, увеличилось ее быстродействие.

   Я до сих пор говорил об основных функциях редактора, но не показывал их программного кода. Начнем с функции создания теста. Она  создает файл теста и файл ответов, последовательно записывает вопросы и ответы и затем закрывает файл.

Рекомендуем скачать другие рефераты по теме: allbest, реферат отношения.





Предыдущая страница реферата | 3  4  5  6  7  8  9  10  11  12  13 | Следующая страница реферата