Практичесl= 2;ая работа № 35

Практ&#= 1080;ческая работа № 35

«Тест&r= aquo;

Цель работы - созk= 6;ать программу, которая тестирует учащегося п = 86; информатикk= 7; и математик = 77;.

Проект должен содержать последоватk= 7;льность форм, реализующиm= 3; диалог с тестируемыl= 4; учащимся.

На первой форм = 77; происходит регистрациn= 3; учащегося.

Ф= 088;агмент прогl= 8;аммы (unit1):<= /p>

uses Unit2;

{$R *.dfm}=

procedure TForm1.Button2Click(Sender: TObject);

begin

Close;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

Form2.Label3.Caption:=3DForm1.Edit= 1.Text;

Form2.ShowModal;

end;
&= nbsp; На второй форм = 77; предлагаетl= 9;я выбрать оди = 85; из тестов.

= ;

Ф= 088;агмент прогl= 8;аммы (unit2):<= /p>

uses Unit3, Unit6;

{$R *.dfm}=

procedure TForm2.Button1Click(Sender: TObject);

begin

Form3.ShowModal;<= /p>

end;

procedure TForm2.Button2Click(Sender: TObject);

begin

Form2.Close;

end;

procedure TForm2.Button3Click(Sender: TObject);

begin

Form6.Edit2.Text:=3D'';<= /span>

Form6.ShowModal;

end;

&= nbsp; На третьей форме предлагаетl= 9;я проути тест по информатикk= 7;.

Ф= 088;агмент прогl= 8;аммы (unit3):

uses Unit4, Unit2;

{$R *.dfm}=

procedure TForm3.Button1Click(Sender: TObject);

begin

k:=3D0;<= o:p>

if= (Form3.Edit1.Text=3D'монитор') or (Form3.Edit1.Text=3D'Монитор') or

= &nb= sp; (Form3.Edit1.Text=3D'МОНИТОi= 6;') then k:=3Dk+1;

if (Form3.Edit2.Text=3D'Клав = 80;атура') or (Form3.Edit2.Text=3D'клавиатm= 1;ра')

= &nb= sp; or<= /span> (Form3.Edit2.Text=3D'КЛАВИАТi= 9;РА') then k:=3Dk+1;

if Form3.Edit3.Text=3D'8' then k:=3Dk+1;

Form4.Label2.Caption:=3DIntToStr(k);

if= k=3D0 then Form4.Label1.Caption:=3D'Оченn= 0; плохо' else

= &nb= sp; if<= /span> k=3D1 then Form4.Label1.Caption:=3D'Плохо' else

= &nb= sp; = if<= /span> k=3D2 then Form4.Label1.Caption:=3D'Хорошо' else

= &nb= sp; = &nb= sp; if<= /span> k=3D3 then Form4.Label1.Caption:=3D'Очень хорошо';

Form3.Edit1.Text:=3D'';<= /span>

Form3.Edit2.Text:=3D'';<= /span>

Form3.Edit3.Text:=3D'';<= /span>

Form4.ShowModal;<= /p>

end;

procedure TForm3.Button2Click(Sender: TObject);

begin

Form3.Cl= ose;

end;

&= nbsp; На следующей форме отображаетl= 9;я результат тестированl= 0;я и предложениk= 7; о промотре ответа.

Ф= 088;агмент прогl= 8;аммы (unit4):<= /p>

uses Unit1, Unit5, Unit3, Unit2;

{$R *.dfm}=

procedure TForm4.Button2Click(Sender: TObject);

begin

Form4.Close;

end;

procedure TForm4.Button1Click(Sender: TObject);

begin

Form4.Close;

Form3.Close;

end;

procedure TForm4.Button3Click(Sender: TObject);

begin

Form5.ShowModal;

end;

На следующей форме отображаютl= 9;я правильные ответы.

&= nbsp; Фрагмен&= #1090; прогl= 8;аммы (unit5):<= /p>

uses Unit4, Unit3, Unit2, Unit1;

{$R *.dfm}=

procedure TForm5.Button1Click(Sender: TObject);

begin

Form4.Close;

Form3.Close;

Form2.Close;

Form1.Close;

Form5.Close;

end;

&= nbsp; Если учащийся выбрал тест по математике, = 090;о ему предлагаетl= 9;я проверить свои знания = 090;аблицы умножения. Н= 072; следующей ф = 86;рме случайным образом выбираются числа. Учащи= 081;ся должен ввести значение произведенl= 0;я в текстовое поле. С помощью кнопки «про = 74;ерка» выясняется правильносm= 0;ь введенного ответа. Если ответ правильный, то можно сгенерировk= 2;ть следующий пример. Посл= 077; нескольких = 87;римеров можно проверить свой рейтин = 75;.

&= nbsp;

= ;

Ф= 088;агмент прогl= 8;аммы (unit6):<= /p>

uses Unit7, Unit1;

{$R *.dfm}=

procedure TForm6.Button1Click(Sender: TObject);

va= r n,i:integer;

begin

ra= ndomize;

a<= /span>:=3Drandom(10)-0;

b<= /span>:=3Drandom(10)-0;

Form6.Label1.Caption:= =3DIntToStr(a);

Form6.Label2.Caption:= =3DIntToStr(b);

Form6.Edit2.Text:=3D''= ;

Form6.Label6.Caption:= =3D'';

end;

procedure TForm6.Button2Click(Sender: TObject);

begin

if (a*b=3DStrToInt(Form6.Edit2.Text)) then

begin

Form6.Label6.Cap= tion:=3D'Правильн= 086;';

m:=3Dm+1;

r:=3Dr+1;

q:=3Dq+1;

end

el= se

begin

Form6.Label6.Caption:=3D'Не правильн = 86;';

r:=3Dr-1;

q:=3Dq+1;

end;

Form6.Label1.Caption:=3D'';

Form6.Label2.Caption:=3D'';

end;

procedure TForm6.Button3Click(Sender: TObject);

var

c:real;=

begin

Form7.Label2.Caption:=3DForm= 1.Edit1.Text;

Form7.Label1.Caption:=3D'Вы ответили на '+IntToStr(q)+' вопросов, из них прави= 083;ьно '+IntToStr(m);

Form7.Label4.Caption:=3D'Ваш рейтl= 0;нг =3D '+IntToStr(r);

c= :=3Dm/q;

if c=3D0 then Form7.Label3.Caption:=3D'Очеl= 5;ь плохl= 6;' else

if (c>0)and(c<0.5) then Form7.Label3.Caption:=3D'Плоm= 3;о' else

if c=3D0.5 then Form7.Label3.Caption:=3D'Надо доучl= 0;ть' else

if (c>0.5) and (c<1) then Form7.Label3.Caption:=3D'Хорошо<= span lang=3DEN-US style=3D'mso-ansi-language:EN-US'>' else

if c=3D1 then Form7.Label3.Caption:=3D'Молоде&= #1094;!';

Form7.Sho= wModal;

end;

&= nbsp; При нажатии на кнопке «Ваш рейтинг» на следующей форме появляется результаты рейтенга. Тестированl= 0;е можно завершить.

Фрагмент программы (unit7):

uses= Unit6;

{$R *.dfm}

procedure TForm7.Button1Click(Sender: TObject);

begin

Form7.Close;

Form6.Close;

end;

&= nbsp; Обратит&= #1077; внимание на подключениk= 7; модулей в строке Uses. Таким образом, происходит обращение к соответствm= 1;ющей форме. Для отображениn= 3; формы используетl= 9;я функция

function ShowModal: Integer;

Д= 072;нная функция позволяет показывать форму в работе режима диалога.