Реферат: Тест программных программ

TextBackGround(black);

TextColor(black);

clrscr;

Window(5,10,70,13); {окно поиска}

TextBackGround(green);

clrscr;

Write('Ваша Фамилия');

Readln(a); {ввод фамилии}

while not EOF(b1) do Begin {поиск фамилии}

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

For i:=1 to length(a) do f1:=f1+f[i]; {выделение фамилии}

If a=f1 Then Begin {проверка совпадения}

Writeln(f); {вывод на экран}

c1:=true; {подтверждение запроса}

End;

f1:=''; {обнуление строки}

End;

If c1=false Then Write('Запрос не найден. Пройдите тест.');

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

Readln;

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

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

TextBackGround(Black);

clrscr;

End;

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

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

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

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