Предыдущая страница реферата | 18  19  20  21  22  23  24  25  26  27  28 | Следующая страница реферата

                                                                                                  {в случае отсутствия фамилии в списке}

            Readln;

            close(b1); {закрытие файла}

            Window(5,10,70,13); {закрытие окна}

            TextBackGround(Black);

            clrscr;

    End;

Задачи: выделение фамилии из строки путем поиска пробела, поиск соответствия фамилий и вывод результатов поиска на экран.

Проблемы: никаких

Функция печати данных. В Turbo Pascal имеются средства для работы с принтером. Это ключевое слово Lst, указывающиеся в операторе вывода Writeln. Следуя этой инструкции, компилятор посылает сообщения не на экран, а на принтер. Этот способ имеет существенный недостаток: данные передаются очень медленно. Также в языке нет определенной команды для окочания работы принтера, поэтому бумага остается внутри и приходится использовать внешние управляющие кнопки принтера. Программа просит указать путь к файлу, а затем распечатывает его.

   Я нашел другой алгоритм работы с принтером, более быстрый, но он требует знаний языка Assembler, встроенного в Turbo Pascal:

Procedure PrintF;

    Begin

    TextColor(black);

    Window(10,10,53,15);       {начальное окно}

    TextBackGround(cyan);

    clrscr;

    Writeln('Какой файл распечатать?'); {вывод запроса}

    Window(60,24,70,24);

    TextBackGround(black);

    clrscr;

    repeat      {вывод времени}

     h:=g3;

     GoToXY(50,22);

     GetTime(g1,g2,g3,g4);

     TextColor(yellow);

     Write(g1,':',g2,' ',g3);

     Delay(1000);

     clrscr;

    until keypressed;

    Window(10,10,53,15); {открытие окна ввода}

    TextBackGround(cyan);

    clrscr;

    Readln(a); {ввод пути к файлу}

    Assign(b1,a); {связь переменной с файлом}

    Reset(b1); {открытие файла для чтения}

    Writeln('убедитесь что ваш принтер настроен для работы в MS-DOS'); {предупреждение}

    repeat      {цикл работы с файлом}

    Window(60,24,70,24); {закрытие окна}

    TextBackGround(black);

    clrscr;

    h:=g3;

    GoToXY(50,22);

    GetTime(g1,g2,g3,g4); {вывод времени}

    TextColor(yellow);

    Write(g1,':',g2,' ',g3);

     clrscr;

    Readln(b1,f); {считывание символа}

    Writeln(Lst,f); {распечатывание символа}

    until EOF(b1);

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



Предыдущая страница реферата | 18  19  20  21  22  23  24  25  26  27  28 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки