arations};
: TForm2;
Unit2;
TForm2. BitBtn1Click (Sender: TObject) ;. show ;. Button2Click (Sender) ;. Visible:=False ;; TForm2. Timer1Timer (Sender: TObject); ((RadioButton1. Checked=true) or
(RadioButton2. Checked=true) or
(RadioButton3. Checked=true) or
(RadioButton4. Checked=true) or
(RadioButton5. Checked=true)) then. Enabled:=True ;;.
Unit5;
, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, StdCtrls, Buttons;=class (TForm): TLabel ;: TLabel ;: TLabel ;: TSpeedButton; SpeedButton1Click (Sender: TObject );
{Private declarations}
{Public declarations} ;: TForm4; TForm4. SpeedButton1Click (Sender: TObject) ;. Hide ;;.
Unit6;
, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, StdCtrls, Buttons, ExtCtrls;=class (TForm): TBevel ;: TBitBtn ;: TBitBtn ;: TLabel ;: TLabel;:TLabel ;: TLabel; (Sender: TObject); BitBtn1Click (Sender: TObject); BitBtn2Click (Sender: TObject);
{Private declarations}
{Public declarations} ;: TForm5;: string; Unit2, Unit1, Unit4; TForm5. FormShow (Sender: TObject); (Form3. Label1. Caption) gt; 26 then:= 5 else (Form3. Label1. Caption) gt; 21 then:= 4 else (Form3. Label1. Caption) gt; 17 then:= 3 else:= 2 raquo ;;. Caption:=( Набранобаллов + form3. Label1. Caption + . Raquo; + # 13 +
Ваша оцінка: + Cena + ! Raquo;) ;. Caption:= Тестпрошелстудент: + Form2. Edit1. Text ;. Caption:= Обучающійсягруппи: + Form2. Edit2. Text ;. Caption:= Времяпрохожденія: + Form3. Label4. Caption + хв. Raquo; + +. Label5. Caption + сек. Raquo ;; TForm5. BitBtn1Click (Sender: TObject) ;. Show; .hide ;; TForm5. BitBtn2Click (Sender: TObject) ;;;.
