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

a2:=a;

Window(20,10,66,15); {закрытие начального окна}

TextBackGround(black);

clrscr;

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

a:=a+'o'; {изменение расширения}

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

delete(a,length(a),1);

a:=a+'1'; {изменение расширения}

Assign(y,a); {создание нового файла вопросов}

delete(a,length(a),1);

a:=a+'2'; {изменение расширения}

Assign(a1,a); {создание нового файла ответов}

Reset(c); {установка и загрузка файлов}

Reset(u);

Rewrite(y);

Rewrite(a1);

Window(5,5,50,20); {окно просмотра файла}

TextBackGround(lightgray);

clrscr;

Writeln('Вывод вопросов через Enter:');

repeat

while not Eoln(c)or(b<>'&') do Begin {просмотр вопросов через Enter}

Read(c,b);

If b<>'&' Then Write(b);

End;

Readln(c);

Readln;

until EOF(c);