Form4. Тест
unit Unit4;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Imaging.jpeg,
Vcl.ExtCtrls;
type
TForm4 = class(TForm)
Image1: TImage;
Label1: TLabel;
Label2: TLabel;
Button1: TButton;
Button2: TButton;
Label3: TLabel;
RadioGroup1: TRadioGroup;
Memo1: TMemo;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
procedure GenerateNewQ;
procedure GenerateResult;
end;
type
TQ = record
que,v1,v2,v3,v4: String;
r: Integer;
ball: Integer;
end;
const {тұрақтылар}
Q = 'Сұрақ ';
O_k = 'Дұрыс';
No_ = 'Дүрыс емес';
win2 = 'Қорытындысы';
win1 = 'Балл: ';
lost2 = 'Дұрыс емес';
lost1 = 'Сіз тестті өте алмадыңыз';
xd = 20;
test: array [0..xd-1] of TQ = ( {массив/аралықты көрсету}
(que:'Әлемдегі ең бірінші сайт?'; v1:'facebook.com'; v2:'info.cern.ch'; v3:'google.com'; v4:'yahoo.com'; r: 1; ball: 5), {1 сұрақты көрсету}
(que:'Әлемдегі ең бірінші сайт қай жылы пайда болды?'; v1:'1994'; v2:'1992'; v3:'1993'; v4:'1990'; r: 3; ball: 5), {2 сұрақты көрсету}
(que:'Қай жылы WWWтың стандарты нығайтылды?'; v1:'1991 '; v2:'1992'; v3:'1993'; v4:'1990'; r: 0; ball: 5), {3 сұрақты көрсету}
(que:'Кім HTTP, URI/URL және HTMLнiң веб-ісiнiң негiзiн қалады?'; v1:'Джордж Буль'; v2:'Бернерс Тим'; v3:'Стив Джобс'; v4:'Марк Цукерберг'; r: 1; ball: 5), {4 сұрақты көрсету}
(que:'Қай жылы бірінші гипермәтін браузерлері пайда болды?'; v1:'1993'; v2:'1990'; v3:'1991'; v4:'1994'; r: 1; ball: 5), {5 сұрақты көрсету}
(que:'Сайт ашу үшін не қажет?'; v1:'Домен мен хостинг'; v2:'Сайт жасайтын программа немесе дайын CMS система'; v3:'Хостинг пен компьютерді байланыстыратын программа'; v4:'Барлығы'; r: 3; ball: 5), {6 сұрақты көрсету}
(que:'Текстті параграфтерге бөлетін тег?'; v1:'<br>'; v2:'<p>'; v3:'<html>'; v4:'<b>'; r: 1; ball: 5), {7 сұрақты көрсету}
(que:'Текстті ортаға қойатын тег?'; v1:'<center>'; v2:'<div center>'; v3:'<i>'; v4:'<h3>'; r: 0; ball: 5), {8 сұрақты көрсету}
(que:'Жолдарды аудары үшін қолданылат тег?'; v1:'<a href=""></a>'; v2:'<u>'; v3:'<dt>'; v4:'<br>'; r: 3; ball: 5), {9 сұрақты көрсету}
(que:'Текстті тақырып ретінде көрсететін тег?'; v1:'<ol>'; v2:'<h1>'; v3:'<i>'; v4:'<li>'; r: 1; ball: 5), {10 сұрақты көрсету}
(que:'HTML тілінде тізімдердің неше түрі болады?'; v1:'2'; v2:'4'; v3:'3'; v4:'5'; r: 2; ball: 5), {11 сұрақты көрсету}
(que:'Нөмірленген тізім тегі?'; v1:'<ol>'; v2:'<dt>'; v3:'<ul>'; v4:'<li>'; r: 0; ball: 5), {12 сұрақты көрсету}
(que:'HTML тілінің ең негізгі тегі?'; v1:'<ol>'; v2:'<h1>'; v3:'<html>'; v4:'<li>'; r: 2; ball: 5), {13 сұрақты көрсету}
(que:'Текстті сол жаққа қойатын тег?'; v1:'<center>'; v2:'<div align="left">'; v3:'<left>'; v4:'<li>'; r: 1; ball: 5), {14 сұрақты көрсету}
(que:'Текстті оң жаққа қойатын тег?'; v1:'<ol>'; v2:'<right>'; v3:'<div align="right">'; v4:'<li>'; r: 2; ball: 5), {15 сұрақты көрсету}
(que:'Адрестерді көрсету үшін қолданылатын тег?'; v1:'<br>'; v2:'<h1>'; v3:'<adress>'; v4:'<address>'; r: 3; ball: 5), {16 сұрақты көрсету}
(que:'Терминдердің тізім тегі?'; v1:'<ol>'; v2:'<dt>'; v3:'<ul>'; v4:'<li>'; r: 1; ball: 5), {17 сұрақты көрсету}
(que:'HTML тілінде қара түс қалай көрсетіледі?'; v1:'"#003400" '; v2:'"#001230"'; v3:'"#000000" '; v4:'"#001110"'; r: 2; ball: 5), {18 сұрақты көрсету}
(que:'HTML тілінде ақ түс қалай көрсетіледі?'; v1:'"#ffffff" '; v2:'"#001230"'; v3:'"#00ff00" '; v4:'"#001110"'; r: 0; ball: 5), {19 сұрақты көрсету}
(que:'HTML тілінде бет түсі қалаай көрсетіледі?'; v1:'<color>'; v2:'<div color="">'; v3:'<body bgcolor="">'; v4:'<body color="">'; r: 2; ball: 5)); {20 сұрақты көрсету}
var
Form4: TForm4;
N : Integer;
num : Integer;
ri : Integer;
balls: Integer;
otvets: array [0..xd-1] of boolean;
implementation
{$R *.dfm}
procedure TForm4.GenerateNewQ;
procedure zero;
begin
RadioGroup1.Buttons[0].Checked:= false;
RadioGroup1.Buttons[1].Checked:= false;
RadioGroup1.Buttons[2].Checked:= false;
RadioGroup1.Buttons[3].Checked:= false;
end;
begin
begin
inc(num);
label1.Caption:= Q+inttostr(num);
label2.Caption:= test[num-1].que;
RadioGroup1.Items.Strings[0]:= '1) '+test[num-1].v1;
RadioGroup1.Items.Strings[1]:= '2) '+test[num-1].v2;
RadioGroup1.Items.Strings[2]:= '3) '+test[num-1].v3;
RadioGroup1.Items.Strings[3]:= '4) '+test[num-1].v4;
zero;
ri:= test[num-1].r;
end
end;
procedure TForm4.GenerateResult;
var i: Integer;
function equalbool(V: Boolean): String;
begin
result:= No_;
if V then result:= O_k
end;
begin
label1.Caption:= win2;
label2.Caption:= win1+inttostr(balls);
memo1.Visible:= true;
memo1.Enabled:= true;
for i:= 1 to xd do
memo1.Lines.Add(Q+inttostr(i)+' - '+equalbool(otvets[i-1]));
label3.Visible:= false;
button1.Visible:= false;
radiogroup1.Visible:= false;
end;
procedure TForm4.FormCreate(Sender: TObject);
var
i: Integer;
begin
memo1.Visible:= false;
Memo1.Enabled:= false;
ri:=0;
num:= 0;
balls:= 0;
for i:= 1 to xd-1 do
otvets[i-1]:= false;
N:= xd;
if (N>0) then
GenerateNewQ
else
form4.Close
end;
procedure TForm4.Button1Click(Sender: TObject);
begin
If ((RadioGroup1.Buttons[ri].Checked) and (num<N)) then
begin
label3.Caption:= Q+inttostr(num)+' - '+O_k;
balls:= balls+test[num-1].ball;
otvets[num-1]:= true;
GenerateNewQ;
exit;
end
else
if ((num=N) and (RadioGroup1.Buttons[ri].Checked)) then
begin
balls:= balls+test[num-1].ball;
otvets[num-1]:= true;
GenerateResult;
exit;
end
else
if ((not RadioGroup1.Buttons[ri].Checked) and (num<N)) then
begin
label3.Caption:= Q+inttostr(num)+' - '+No_;
GenerateNewQ;
exit;
end
else
if ((not RadioGroup1.Buttons[ri].Checked) and (num=N)) then
GenerateResult;
end;
procedure TForm4.Button2Click(Sender: TObject);
begin
form4.Close;
end;
end.
