rm2.Button54Click (Sender: TObject); RadioButton4.Checked=true then:=ball + 1:=ball;
Label1.Caption:= Рік - весна; життя -? raquo ;;. Caption:= радість raquo ;;. Caption:= старість raquo ;;. Caption:= народження raquo ;;. Caption:= юність raquo ;;. Caption:= учеба raquo ;;. Visible :=false; .Top:=Button1.Top; .Left:=Button1.Left; .Visible:=true;:=num + 1; .Caption:=IntToStr (num) ;. Caption:=IntToStr (ball);.Caption:= Питання номер: + IntToStr (num) ;; TForm2.Button55Click (Sender: TObject); RadioButton5.Checked=true then:=ball + 1:=ball;
Label1.Caption:= Рішення - біль; перевищення швидкості - ? raquo ;;. Caption:= відстань raquo ;;. Caption:= протокол raquo ;;. Caption:= арешт raquo ;;. Caption:= аварія raquo ;;. Caption:= опір повітря raquo ;;. Visible:=false; .Top:=Button1.Top; .Left:=Button1.Left; .Visible:=true;:=num + 1; .Caption:=IntToStr (num) ;. Caption:=IntToStr (ball) ; .Caption:= Питання номер: + IntToStr (num) ;; TForm2.Button56Click (Sender: TObject); RadioButton3.Checked=true then:=ball + 1:=ball;
Label1.Caption:= Наука - математика; видання -? raquo ;;. Caption:= друкарня raquo ;;. Caption:= розповідь raquo ;;. Caption:= журнал raquo ;;. Caption:= газета «Вести» raquo ;;. Caption:= редакція raquo ;;. Visible:=false; .Top:=Button1.Top; .Left:=Button1.Left; .Visible:=true;:=num + 1; .Caption:=IntToStr (num) ;. Caption:=IntToStr (ball) ;. Caption:= Питання номер: + IntToStr (num) ;; TForm2.Button57Click (Sender: TObject); RadioButton3.Checked=true then:=ball + 1:=ball;
Label1.Caption:= Гори - перевал; річка -? raquo ;;. Caption:= човен raquo ;;. Caption:= міст raquo ;;. Caption:= брід raquo ;;. Caption:= паром raquo ;;. Caption:= берег raquo ;;. Visible :=false; .Top:=Button1.Top; .Left:=Button1.Left; .Visible:=true;:=num + 1; .Caption:=IntToStr (num) ;. Caption:=IntToStr (ball);.Caption:= Питання номер: + IntToStr (num) ;; TForm2.Button58Click (Sender: TObject); RadioButton2.Checked=true then:=ball + 1:=ball;
Label1.Caption:= Шкіра - дотик; очей -? raquo ;;. Caption:= освітлення raquo ;;. Caption:= зір raquo ;;. Caption:= спостереження raquo ;;. Caption:= погляд raquo ;;. Caption:= збентеження raquo ;;. Visible :=false; .Top:=Button1.Top; .Left:=Button1.Left; .Visible:=true;:=num + 1; .Caption:=IntToStr (num) ;. Caption:=IntToStr (ball);.Caption:= Питання номер: + IntToStr (num) ;; TForm2.Button59Click (Sender: TObject); RadioButton4.Checked=true then:=ball + 1:=ball;
Label1.Caption:= Смуток - настрій; гнів -? raquo ;;. Caption:= печаль raquo ;;. Caption:= лють raquo ;;. Caption:= страх raquo ;;. Caption:= афект raquo ;;. Caption:= прощення raquo ;;. Visible :=false; .Top:=Button1.Top; .Left:=Button1.Left; .Visible:=true;:=num + 1; .Caption:=IntToStr (num) ;. Caption:=IntToStr (ball);.Caption:= Питання номер: + IntToStr (num) ;; TForm2.Button60Click (Sender: TObject); RadioButton1.Checked=true then:=ball + 2:=ball;:=num + 1; .Caption:=IntToStr (num) ;. Caption:= IntToStr (ball) ;. Caption:= Питання номер: + IntToStr (num); (ball lt;=15) and (ball gt;=1) ocen:=1; (ball lt;=16) and (ball gt;=30) ocen:=2; (ball lt;=45 ) and (ball gt;=31) ocen:=3; ball lt; 45ocen:=4; .Caption:=IntToStr (ocen) ;. Visible:=true; .Visible:=false ;; TForm2.FormShow (Sender: TObject) ;. Enabled:=true; .Interval:=1000;:= 0;:=1;:=0;:=0; .Caption:= raquo ;;. Caption:=IntToStr (num) ;. Caption:= raquo ;;. Caption:= raquo ;;.Caption:= Питання номер: + IntToStr (num) ;. Caption:= raquo ;;. Caption:= raquo ;;. Visible:=false; .Visible:=true ;; TForm2.Timer1Timer (Sender: TObject);
begin (sec);// Sec збільшуємо на 1
inc (sec1) ;. Caption:=IntToStr (sec);:=Trunc (sec/60) ;. Caption:=IntToStr (min); sec1 gt;=60 then sec1:=0 ; .Caption:=IntTostr (sec1) ;;.: Unit3 ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, StdCtrls, ExtCtrls;=class (TForm): TButton ;: TButton ;: TBevel ;: TLabel ;: TLabel ;: TLabel ;: TLabel ;: TLabel ;: TLabel ;: TLabel ;: TLabel; FormClose (Sender: TObject; var Action: TCloseAction); FormShow (Sender: TObject); Button1Click (Sender: TObject); Button2Click (Sender: TObject); Label5Click (Sender: TObject); Label6Click (Sender: TObject); Label7Click (Sender: TObject); Label8Click (Sender: TObject);
{Private declarations}
{Public declarations} ;: TForm3; Unit2, Unit1;
{$ R * .dfm} TForm3.FormClose (Sender: TObject; var Action: TCloseAction) ;. Close ;; TForm3.FormShow (Sender: TObject);
//Form3.Position:=poDeskTopCenter; .Caption:= Кількість балів: + Form2.Label2.Caption; .Caption:= Ваша оцінка: + Form2.Label4.Caption; .Caption:= Тест пройшов студент: + # 13 + Form1.Edit1.Text + + For...
