Из опыта создания универсальных тестовых редакторов

Категория реферата: Рефераты по информатике, программированию
Теги реферата: особенности курсовой работы, образ жизни доклад
Добавил(а) на сайт: Казимира.

Readln(a);

Write(b1,a); d:=length(a);

For i:=1 to 17-d do Write(b1,' ');

Write(b1,f); d:=length(f);

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 z22 Then Begin{проверка наличия в файле пароля}

Write('введите пароль ');

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

If af Then Begin

Write('пароль неверный');

GoTo l1; {выход из процедуры}

End;

End else Begin close(u);

Reset(u);

End;

Readln(c,f);

Поделитесь этой записью или добавьте в закладки