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

For i:=1 to 8 do Write(b1,' ');

GetDate(g1,g2,g3,g4); {проставление даты}

Writeln(b1,g3,'.',g2,'.',g1);

close(b1);

Window(15,10,50,19);

TextBackGround(black);

clrscr;

Программа рассчитывает количество правильных ответов по формуле, в соответствии с этим выставляет оценку, спрашивает ваши ФИО, записывает их в файл, проставляет название теста и дату его прохождения. При этом используется метод работы со строками: конкатенация(слияние) строк. Проблемой стало корректное вписывание в файл строки, так как количество букв может быть разным, поэтому программа проставляет пробелы в файл между данными, используя данные о длине строк фамилии, имени, отчества и вычитая их из постоянного числа

Таймер, системное время.

Таймер был разработан для отсчета времени на тест, время вводится предварительно составителем теста. Кроме того, параллельно с выводом времени на тест выводится текущее системное время. Действие таймера основано на переменной-счетчике, которая через определенные промежутки времени уменьшает свое значение на 1(секунду). Системное время выводится благодаря процедуре GetTime.

Repeat {цикл счетчика времени}

Window(60,20,70,21); {окно вывода времени}

TextBackGround(black);

clrscr;

z2:=z2-1; {обратный отсчет секунд}

If z2<0 Then Begin {обнуление счетчика}

z1:=z1-1;

z2:=60;

End;

If (z1=0)and(z2=0) Then GoTo l1; {проверка исхода времени}

GetTime(g1,g2,g3,g4); {вывод таймера и текущего времени}

Writeln(z1,':',z2); {вывод времени на экран}

Write(g1,':',g2,' ',g3);

Delay(1000);

until keypressed;

Объявляется переменная, из которой каждую секунду вычитается 1. Так осуществляется обратный отсчет. С исходом времени программа автоматически переходит к выставлению оценки.

Оконная система диалога.

Поскольку прошлая моя работа была посвящена диалоговым системам, я учел тот опыт, но в этой программе сделал нововведение, приблизившее программу к современному «оконному» виду.

Над оформлением окна пришлось посидеть не один час, так как обычное окно в виде квадрата на экране совсем не привлекательно. Я изучил строение окон в среде MS-DOS и попытался воссоздать дизайн окна в своей программе. Если вы когда-либо видели схему окна в MS-DOS , то заметили, что окно обрамляется двойной рамкой, наверху которой находится название окна. Здесь мне помогло хитрое решение. Я заглянул в таблицу символов ASCII и нашел символ двойной рамки! Далее все просто: открывается окно, закрашивается, по краям с помощью циклов рисуется рамка и выводится название окна. Но это еще не все. Внутри окна открывается другое окно того же цвета, чтобы было незаметно. Теперь при вводе или выводе данных рамка не будет двигаться вместе с текстом, разрываться и т. д. Мы получаем полноценное окно.

Я сделал оформление окна в виде процедуры, необходимо лишь ввести координаты окна и его название. Ниже приведен код оформления окна:

Procedure windows(x,y,x1,y1:integer; b:string);