Реферат Розробка програми "Помічник екзаменатора"

ustify"> {Private declarations}

{Public declarations}; = record: string;, o2, o3, o4: string;: integer;;: TForm1;: Ttime;: integer = 0;: array of q;: array of integer;: integer;: integer = 0;, incor: integer;: boolean = false;

, unit2;

{$ R *. dfm}

TForm1.N4Click (Sender: TObject);;;

procedure TForm1.N8Click (Sender: TObject);. Showmodal;;

TForm1.N11Click (Sender: TObject); (sender). Checked: = true;. Caption: = TMenuItem (sender). Caption; TMenuItem (sender). Tag = 1 then label8.Caption: = '50 '; TMenuItem (sender). Tag = 2 then label8.Caption: = '60'; TMenuItem (sender). Tag = 3 then label8.Caption: = '70 '; TMenuItem (sender). Tag = 4 then label8.Caption: = '80 '; TMenuItem (sender). Tag = 5 then label8.Caption: = '90';; TForm1.BitBtn4Click (Sender: TObject);. Caption: = '0 ';. Caption: =' 0 ';

radiogroup1.Caption: = 'Зачекайте, йде завантаження питань';

if tren = false then showmessage ('У Вас 5 then: = now;. Enabled: = true;: = 0;. Enabled: = false;; tren = true

.2 Текст програми. Частина 2

TForm1.Timer1Timer (Sender: TObject);. Caption: = FormatDateTime ('nn: ss', v-now); (i); i> = 300 then.Enabled: = false;. Enabled: = false;. Enabled: = true;. Enabled: = true; tren = false then res ();: = false;. Enabled: = false;;;

Tform1.zagruz ();: textfile;: string; (f, 'base.glf'); (f);: = 0; not eof (f)

procedure Tform1.vopr (); c <= strtoint (label8.Caption) do (vop, c +1);;: = random (high (s) -1); (a); ;;

Tform1.prov (a: integer);: integer; r: = 0 to c-1 doa = vop [r] then exit; [c]: = a; (c);;

TForm1.BitBtn1Click (Sender: TObject); c> = high (vop) -1 thentren = false then protv ();. Enabled: = false;. Enabled: = false;. Enabled: = true;. Enabled: = true;. Enabled: = false; tren = false then res ();;: = false;; tren = true then (RadioGroup1.Controls [s [vop [c-1]]. pr-1]). font.color: = clblack;. ItemIndex: = -1;;

.3 Текст програми. Частина 3

tren = false then inc (cor) else inc (incor);. Caption: = inttostr (cor);. Caption: = inttostr (incor); (c);; Tform1.res ();, proc: real; ('Тест закінчено' );: = strtoint (label8.Caption);: = int (cor/(kol/100)); proc <50 then label12.Caption: = '2 '; proc> 50 then label12.Caption: = '3'; proc> 70 then label12.Caption: = '4 '; proc> 90 then label12.Caption: = '5';;

TForm1.BitBtn2Click (Sender: TObject);;; TForm1.N6Click (Sender: TObject);. ShowModal; tren = true then bitbtn4.OnClick (self) else showmessage ('Ви вели не' + 'правильний пароль&#...