Разработка программы тестирования
Курсовой проект - Компьютеры, программирование
Другие курсовые по предмету Компьютеры, программирование
t(seekeof(file_s_voprosami)) do{n 001}:=schyotchik+1;:=0;:=i+1;(file_s_voprosami,vse_voprosy[schyotchik].vopros[i]);vse_voprosy[schyotchik].vopros[i]=end of question;_voprosy[schyotchik].vopros[i]:=;i:=1 to max_otvetov-1 do{n 003}(file_s_voprosami,vse_voprosy[schyotchik].otvety[i]);vse_voprosy[schyotchik].otvety[i]=end then{n 004}j:=i to max_otvetov do_voprosy[schyotchik].otvety[j]:=kluch;1;; {k 004}; {k 003}
:end; {k 001} 2:(file_s_voprosami);_voprosov:=schyotchik;schitano_voprosov<voprosov_v_teste then
begin(Количество вопросов в тесте превышает количество вопросов в базе данных пожалуйста обновите Базу Данных,mterror,[mbok],0);
7*109then">exit;;(Неверен формат Базы Данных,mterror,[mbok],0);;;tform1.vivod_poley_voprosa;sam_vopros:string;:integer;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;_vopros:=;i:=1 to strok_v_voprose do_vopros:=sam_vopros+vse_voprosy[nomer].vopros[i];length(sam_vopros)>7*109 then
//vopros.ScrollBars:=ssVertical;.Height:=100
//vopros.ScrollBars:=ssnone;.Height:=17*(trunc(length(sam_vopros)/72)+1);;;tform1.vivod_voprosa;1;i,j:integer;.vopros.Caption:=;;.Caption:=Вопрос №+inttostr(tek_vopros);
=1theni:=1totek_voprosdo(ispol_voprosy[i]=nomer)or(nomer>schitano_voprosov)thengoto1;nomer:=trunc(schitano_voprosov)+1;_voprosy[tek_vopros]:=nomer;.vivod_poley_voprosa;:=1;i:=1tostrok_v_voprosedo//n301j:=1toTrunc(length(vse_voprosy[nomer].vopros[i])/bukv_stroke_voprosa)+1donot((i=1)and(j=1))then.Caption:=vopros.Caption+#13+copy(vse_voprosy[nomer].vopros[i],(j-1)*bukv_stroke_voprosa+1,bukv_stroke_voprosa).Caption:=vopros.Caption+copy(vse_voprosy[nomer].vopros[i],(j-1)*bukv_stroke_voprosa-1,bukv_stroke_voprosa);//k301.Text:=;;TForm1.CancelClick(Sender:TObject);;;TForm1.nachaloClick(Sender:TObject);.ShowModal;not(form2.vvedenie_imeni)thenexit.name:=form2.name.Text;.familiya:=form2.Familiya.Text;.group:=form2.gruppa.Text;form1.proverkathenclose;;.Cursor:=crappstart;.chtenie_voprosov;.Cursor:=crdefault;_vopros:=1;.vivod_voprosa;.SetFocus;.Enabled:=true;;TForm1.OtvetgotovClick(Sender:TObject);i:integer;i:=1tomax_otvetov-1do//n200otvet.Text=vse_voprosy[nomer].otvety[i]then//n201(,mtconfirmation,[mbok],0);_na_voprosy[tek_vopros]:=true;_vopros:=tek_vopros+1;.SetFocus;tek_vopros=voprosov_v_teste+1then//n202(+inttostr(form1.resultat),mtconfirmation,[mbok],0);.resultat:=inttostr(form1.resultat);.zapis_v_data_base;;;//k202.vivod_voprosa;;;//k201;//k200not(otvety_na_voprosy[tek_vopros])then//n203(,mtconfirmation,[mbok],0);_na_voprosy[tek_vopros]:=false;_vopros:=tek_vopros+1;tek_vopros=voprosov_v_teste+1then//n204(+inttostr(form1.resultat),mtconfirmation,[mbok],0);.resultat:=inttostr(form1.resultat);.zapis_v_data_base;;;//k204.vivod_voprosa;;//k203.SetFocus;;TForm1.FormCreate(Sender:TObject);i,j:integer;j:=1tomax_voprosovdoi:=1tostrok_v_voprosedo_voprosy[j].vopros[i]:=;;i:=1tovoprosov_v_testedo_na_voprosy[i]:=false;_voprosy[i]:=0;;fileexists(put_k_parolu)then">:nomer:=trunc(random(schitano_voprosov))+1;tek_vopros>=1 theni:=1 to tek_vopros do(ispol_voprosy[i]=nomer) or (nomer>schitano_voprosov) then goto 1;nomer:=trunc(schitano_voprosov)+1;_voprosy[tek_vopros]:=nomer;.vivod_poley_voprosa;:=1;i:=1 to strok_v_voprose do// n 301j:=1 to Trunc(length(vse_voprosy[nomer].vopros[i])/bukv_stroke_voprosa)+1 donot((i=1) and (j=1)) then.Caption:=vopros.Caption+#13+copy(vse_voprosy[nomer].vopros[i],(j-1)*bukv_stroke_voprosa+1,bukv_stroke_voprosa).Caption:=vopros.Caption+copy(vse_voprosy[nomer].vopros[i],(j-1)*bukv_stroke_voprosa-1,bukv_stroke_voprosa); // k 301.Text:=;;TForm1.CancelClick(Sender: TObject);;;TForm1.nachaloClick(Sender: TObject);.ShowModal;not(form2.vvedenie_imeni) then exit.name:=form2.name.Text;.familiya:=form2.Familiya.Text;.group:=form2.gruppa.Text;form1.proverka then close;;.Cursor:=crappstart;.chtenie_voprosov;.Cursor:=crdefault;_vopros:=1;.vivod_voprosa;.SetFocus;.Enabled:=true;;TForm1.OtvetgotovClick(Sender: TObject);i:integer;i:=1 to max_otvetov-1 do//n 200otvet.Text=vse_voprosy[nomer].otvety[i] then//n 201(Ответ правильный,mtconfirmation,[mbok],0);_na_voprosy[tek_vopros]:=true;_vopros:=tek_vopros+1;.SetFocus;tek_vopros=voprosov_v_teste+1 then//n 202(Вы закончили тест по предмету ОС ваша оценка +inttostr(form1.resultat),mtconfirmation,[mbok],0);.resultat:=inttostr(form1.resultat);.zapis_v_data_base;;; //k 202.vivod_voprosa;;; // k 201; // k 200not(otvety_na_voprosy[tek_vopros]) then//n 203(Ответ неправильный,mtconfirmation,[mbok],0);_na_voprosy[tek_vopros]:=false;_vopros:=tek_vopros+1;tek_vopros=voprosov_v_teste+1 then//n 204(Вы закончили тест по предмету ОС ваша оценка +inttostr(form1.resultat),mtconfirmation,[mbok],0);.resultat:=inttostr(form1.resultat);.zapis_v_data_base;;; // k 204.vivod_voprosa;; // k 203.SetFocus;;TForm1.FormCreate(Sender: TObject);i,j:integer;j:=1 to max_voprosov doi:=1 to strok_v_voprose do_voprosy[j].vopros[i]:=;;i:=1 to voprosov_v_teste do_na_voprosy[i]:=false;_voprosy[i]:=0;;fileexists(put_k_parolu) then
end.