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

Reset(c);

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

TextBackGround(black);

clrscr;

Window(30,5,58,10); {окно номера редактируемого вопроса}

TextBackGround(yellow);

clrscr;

Read(c,b); {считывание количества вопросов}

Readln(c,b);

d:=ord(b)-ord('0');

Write('№ редактируемого вопроса: ');

repeat

Readln(z); {ввод № вопроса}

If z>d Then Writeln('номер превышает число вопросов'); {проверка существования номера}

until z<=d;

Window(30,5,58,10); {закрытие окна номера редактируемого вопроса}

TextBackGround(black);

clrscr;

Window(10,10,53,20); {окно вопросов}

TextBackGround(lightgray);

clrscr;

close(c); {перезапуск файла вопросов}

Reset(c);

p:=0;

repeat

while not EOLN(c) do Begin {копирование значений в другой файл}

Read(c,b);

Write(y,b);

End;