Реферат Тест для перевіркі концентрації уваги

ustify"> Button81: TButton;

Button82: TButton;

Button83: TButton;

Button84: TButton;

Button85: TButton;

Button86: TButton;

Button87: TButton;

Button88: TButton;

Button89: TButton;

Button90: TButton;

Button91: TButton;

Button92: TButton;

Button93: TButton;

Button94: TButton;

Button95: TButton;

Button96: TButton;

Button97: TButton;

Button98: TButton;

Button99: TButton;

Button100: TButton;

mExit: TMenuItem;

N2: TMenuItem;

procedure FormShow (Sender: TObject);

procedure Button99Click (Sender: TObject);

procedure Timer1Timer (Sender: TObject);

procedure mNewClick (Sender: TObject);

procedure mExitClick (Sender: TObject);

procedure N1Click (Sender: TObject);

procedure N2Click (Sender: TObject);

private

{Private declarations}

public

{Public declarations}

end;

F: TF;

A: array [0..99] of byte;//масив неповторний. послідовності чисел

h, s, ms: Word;//години, секунди, мілісекунди

m: word=0;//хвилини

bgnTime, endTime: TDateTime;//годину старту

Order: ShortInt=- 1;

number: byte=0;//число на натіснутій кнопці

const limit=15;//годину на виконан тесту

{$ R * .dfm}

//контроль над Виконання ОСНОВНОЇ умови тестуControl (Sender: TObject); (Order);//іттерація щігліків:=StrToInt ((Sender as TButton) .Caption); (Compare (Order lt; gt; number) then

begin

ShowMessage ( Ві помилуй. прийдеться почінаті все заново. Будьте уважні. );

F.mNew.Click;

Order:=- 1;

number:=0;

end ;;

//генерація неповторюваніх чисел від 0 до х з Наступний зберіганням в глоб. масівRnd (x: byte); i, r, k: byte;

flag: Boolean ;;:=0; k lt; x do

r:=random (x);//if r=0 then r:=x;

flag:=true;

for i:=1 to High (A) do

if r=A [i] then

begin

flag:=false;

break;

end;

if flag=true then

begin

inc (k);

A [k]:=r;

end ;;; StartGame (n: byte); k: byte; ( Потрібно почергово найти мишкою числа від 0 до 99 за 15 хвилин. ); (n);

//прісвоєння Кожній кнопці індивідуально-візуального чіслаk:=1 to n dok of

: F.Button1.Caption:=IntToStr (A [k]);

: F.Button2.Caption:=IntToStr (A [k]);

: F.Button3.Caption:=IntToStr (A [k]);

: F.Button4.Caption:=IntToStr (A [k]);

: F.Button5.Caption:=IntToStr (A [k]);

: F.Button6.Caption:=IntToStr (A [k]);

: F.Button7.Caption:=IntToStr (A [k]);

: F.Button8.Caption:=IntToStr (A [k]);

: F.Button9.Caption:=IntToStr (A [k]);

: F.Button10.Caption:=IntToStr (A [k]);

: F.Button11.Caption:=IntToStr (A [k]);

: F.Button12.Caption:=IntToStr (A [k]);

: F.Button13.Caption:=IntToStr (A [k]);

: F.Button14.Caption:=IntToStr (A [k]);

: F.Button15.Caption:=IntToStr (A [k]);

: F.Button16.Caption:=IntToStr (A [k]);

: F.Button17.Caption:=IntToStr (A [k]);

: F.Button18.Caption:=IntToStr (A [k]);

: F.Button19.Caption:=IntToStr (A [k]);

: F.Button20.Caption:=IntToStr (A [k]);

: F.Button21.Caption:=IntToStr (A [k]);

: F.Button22.Caption:=IntToStr (A [k]);

Назад | сторінка 5 з 8 | Наступна сторінка