Из опыта создания универсальных тестовых редакторов
Методическое пособие - Компьютеры, программирование
Другие методички по предмету Компьютеры, программирование
?оля}
Write(введите пароль );
Readln(f); {ввод пароля}
If a<>f Then Begin
Write(пароль неверный);
GoTo l1; {выход из процедуры}
End;
End
else Begin
close(u);
Reset(u);
End;
Readln(c,f);
Writeln(тест по теме ",f,"); {вывод темы теста}
z2:=60;
repeat
Window(60,20,70,21); {закрытие окна пароля}
TextBackGround(black);
clrscr;
TextColor(yellow);
z2:=z2-1; {включение таймера}
If z2<0 Then Begin
z1:=z1-1;
z2:=60;
End;
If (z1=0)and(z2=0) Then GoTo l1;
Writeln(z1,:,z2);
GetTime(g1,g2,g3,g4); {вывод текущего времени}
Write(g1,:,g2, ,g3);
Delay(1000);
TextColor(black);
Window(10,10,53,15); {вывод вопроса, ожидание ввода ответа}
TextBackGround(cyan);
clrscr;
while not Eoln(c)or(b<>&) do Begin
Read(c,b);
If b<>& Then Write(b);
End;
Writeln;
Window(55,10,80,15); {вывод сообщения о вводе ответа}
TextBackGround(blue);
clrscr;
Write(ваш ответ );
TextColor(yellow);
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;
Window(55,10,80,15);
TextBackGround(blue);
clrscr;
TextColor(yellow);
b:=readkey; {считывание цифры ответа}
Write(b); {считывание правильного ответа из файла}
Readln(u,k);
Readln(c);
If k=b Then p:=p+1; {сравнение ответов, начисление баллов}
Window(60,20,70,21);
TextBackGround(black); {закрытие окна отверов}
clrscr;
TextColor(black);
z2:=z2-1; {таймер}
If z2<0 Then Begin
z1:=z1-1;
z2:=60;
End;
If (z1=0)and(z2=0) Then GoTo l1;
GoToXY(70,15);
GetTime(g1,g2,g3,g4); {вывод текущего времени}
Writeln(z1,:,z2);
Write(g1,:,g2, ,g3);
Delay(1000);
until Eof(c);
l1:f1:=f1+o;
close(c); {закрытие всех файлов}
close(u);
Window(55,10,80,15); {закрытие окон}
TextBackGround(black);
clrscr;
Window(10,10,53,15);
TextBackGround(black);
clrscr;
Window(15,10,50,19);
TextBackGround(blue);
clrscr;
End;
Единственной проблемой здесь явилось неправильное чтение программой исходных данных. Естественно, разрабатывая сложные системы, с первого раза компилляция не удается никогда, но после корректировки программы она стала работать как надо.
!!! Не забывайте закрывать файлы после использования и перезагружать их после прочтения до конца по необходимости, иначе возникнет ошибка Disk Read Error!!!
Эта ошибка может стоить вам всего файла. Очень часто после сбоя при чтении файла этот файл заново прочитать вам не удастся.
Функция редактирования теста. Является вспомогательной функцией. Она редактирует вопросы указанного теста. Сначала вводится путь к файлу теста, затем он просматривается, выбирается вопрос для редактирования, вводится номер редактируемого вопроса. Затем указанный вопрос стирается, а на его место вписывается новый. Весь процесс сопровождается работой с файлами, которые сначала создаются, открываются, затем копируются, корректируются. Старые варианты файлов удаляются, а новые записываются под их именем:
Procedure RedactF;
Begin
Window(10,10,53,15);
TextBackGround(black);
TextColor(black);
clrscr;
Window(20,10,66,15); {открытие начального окна}
TextBackGround(blue);
clrscr;
Writeln(Какой файл редактировать );
Readln(a); {ввод пути к редактируемому файлу }
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);
close(c); {перезапуск файла вопросов}
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); {окно вопрос?/p>