p align="justify"> halt;;: = 0; (file_s_voprosami, str); (file_s_voprosami); not (seekeof (file_s_voprosami)) do {n 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
begin ('Кількість питань в тесті перевищує кількість запитань у базі даних ласка поновіть Базу Даних', mterror, [mbok], 0);
exit;; ('невіруючих формат Бази to strok_v_voprose do_vopros: = sam_vopros + vse_voprosy [nomer]. vopros [i]; length (sam_vopros)> 7 * 109 then
// vopros.ScrollBars: = ssVertical;. Height: = 100
: 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)) // 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 TObject); i: integer; i: = 1 to max_otvetov-1 do// n 200otvet.Text = vse_voprosy [nomer]. Otvety [i] then// n 201 ('Відповідь then// n 202 ('Ви закінчили тест з предмету ОС ваша оцінка // K 202.vivod_voprosa;;;// k 201;// k 200not (otvety_na_voprosy [tek_vopros]) then// n 203 ('Відповідь then// n 204 ('Ви закінчили тест з предмету ОС ваша оцінка // 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.
