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

Write(y,b);

End;

Readln(c);

Writeln(y);

until EOF(c);

Readln(u);

while not EOF(u) do Begin {дозапись значений в копируемый файл}

Readln(u,b);

Writeln(a1,b);

End;

Window(10,10,53,20); {закрытие окна вопросов}

TextBackGround(black);

clrscr;

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

Erase(c); {стирание старого файла вопросов}

close(u);

Erase(u); {стирание старого файла ответов}

close(y);

Rename(y,a2); {переименование файла вопросов}

a2:=a2+'o';

close(a1);

Rename(a1,a2); {переименование файла ответов}

End;

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

Функция просмотра результатов. Организует просмотр результатов тестирования. Просит ввести вашу фамилию. Если она есть в списке, выводит полную информацию о тесте, об оценке, о дате и т. д. Программа использует файл registr.dat для внесения туда ваших результатов. При желании файл также может быть распечатан.

Procedure SearchF;

Begin

Assign(b1,'c:\pascal\registr.dat'); {связь переменной с файлом отчета}

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