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

Window(30,5,50,10); {открытие окна характеристик}

TextBackGround(yellow);

clrscr;

GoToXY(30,6);

Write('кол-во вопросов ');

Readln(d); {ввод количества вопросов}

Writeln(c,' ',d);

GoToXY(30,8);

Writeln('название теста '); {ввод названия теста}

Readln(f);

Writeln(c,f);

Writeln('пароль на защиту');

Readln(f); {ввод пароля}

Writeln(u,f);

Window(30,5,50,10);

TextBackGround(black);

clrscr;

For i:=1 to d do Begin

Writeln(c);

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

TextBackGround(lightgray);

clrscr;

Writeln(i,'-й вопрос: ');

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

Str(i,f);

f:=f+')'; {запись вопроса в файл}

Writeln(c,f);

Writeln(c,a);

Window(55,10,80,15); {окно количества ответов}