Procedure Test;

 

Var ball:integer;

z,ocenka,oc:string;

dan_otv:string;

vopros:string;

mas_vopr:array[1..5]of string;

 

Begin{Procedure}

Repeat

ClearDevice;

n_menu:=4;

Ramka;

Find;

Chtenie;

Kursor;

x:=p_kur;

If n_menu=5

Then

Begin{Then}

Randomize;

variant:=Random(9);

ball:=0;

Find;

Reset(f);

kol_kur:=4;

While not EOF(f) do

Begin{While}

ClearDevice;

Ramka;

y:=70;

Readln(f,vopros);

While vopros<>'q' do

Begin{While}

SetColor(White);

OutTextXY(40,y,vopros);

{Writeln(f1,vopros);}

Readln(f,vopros);

y:=y+20;

End;{While}

Readln(f,mas_vopr[1]);

Readln(f,mas_vopr[2]);

Readln(f,mas_vopr[3]);

Readln(f,mas_vopr[4]);

Writeln(f1,mas_vopr[2]);

Writeln(f1,mas_vopr[3]);

Writeln(f1,mas_vopr[4]);}

Readln(f,mas_vopr[5]);

Writeln(f1,mas_vopr[5]);}

SetColor(White);

OutTextXY(40,260,mas_vopr[1]);

OutTextXY(40,280,mas_vopr[2]);

OutTextXY(40,300,mas_vopr[3]);

OutTextXY(40,320,mas_vopr[4]);

kol_kur:=4;

Kursor;

str(p_kur,dan_otv);

Writeln(f1,dan_otv);}

If mas_vopr[5]=dan_otv

Then

Begin{Then}

ball:=ball+1;

OutTextXY(120,220,'Правильный ответ');

End{Then}

Else

OutTextXY(120,200,'Неправильный ответ ');

Delay(6000);

End;{While}

Close(f);

ClearDevice;

SetColor(Green);

Rectangle(5,5,635,475);

Rectangle(40,35,600,50);

Rectangle(40,150,600,180);

SetColor(Red);

SetColor(White);

Case ball of

0,1,2: Begin ocenka:='Неудовлетворительно'; oc:='2'; End;

3: Begin ocenka:='Удовлетворительно'; oc:='3'; End;

4: Begin ocenka:='Хорошо'; oc:='4'; End;

5: Begin ocenka:='Отлично'; oc:='5'; End;

End;{Case}

Str(ball,z);

OutTextXY(210,130,name);

OutTextXY(80,150,'Оценка ваших знаний:');

OutTextXY(300,150,ocenka);

OutTextXY(80,170,'Количество правильных ответов:');

OutTextXY(300,170,z);

Append(f_rez_gr);

Readkey;

key:='q'

End{Then}

Else

key:=#13;

n_menu:=1;

proc:='s';

Until key<>'q';

End;{Procedure}