Введение в Delphi. Рудалев В.Г - 11 стр.

UptoLike

ВУЗ: 

ВГУ | Воронеж

Составители: 

Рубрика: 

11
h^gZbagboAZ^Z^bf^eyCheckBoxagZq_gb_k\hckl\ZCaption
-
=jZ^mkuZj]m
f_gl kbgmkZ baf_jy_lky \ ]jZ^mkZo Z _keb dghidZ \udexq_gZ lh \ jZ^bZgZo
>ey ijh\_jdb khklhygby dghidb-\udexqZl_ey bkihevam_lky k\hckl\h Checked:
Boolean\ha\jZsZxs__True_kebdghidZ\dexq_gZihf_q_gZbFalse\ijh
lb\ghfkemqZ_
5. >ey aZg_k_gby dghihd \ ]jmiim jZ^bhdghihd gZ`f_f ©ª gZijhlb\
k\hckl\ZItemsdhfihg_glZ RadioGroup1<jZkdju\r_fky^bZeh]h\hfhdg_aZ
ibr_fgZbf_gh\ZgbyjZ^bhdghihd\ljbkljhqdbsin cos tg . <k\hckl\h
CaptionaZibr_fNmgdpby.
Khklhygb_ ]jmiiu jZ^bhdghihd ijh\_jy_lky k ihfhsvx __ k\hckl\Z
ItemIndexlbiZ Integer?kebItemIndex jZ\_glh\dexq_gZi_j\Zyih ihjy^dm
dghidZ_keblh-ybl^?keb-lhgbh^gZbadghihdg_\dexq_gZ
NhjfZijbf_l\b^
6 Hldhfibebjmcl_ ijbeh`_gb_ M[_^bl_kv qlh k ihfhsvx Edit fh`gh
\\h^blv b j_^Zdlbjh\Zlv kljhdb H^gZdh ihdZ gbdZdbo ^_ckl\bc k \\_^_gghc
kljhdhcg_\uihegy_lky
Qlh[u\uqbke_gbygZ^ \\_^_gghckljhdhc\uihegyebkvkha^Zcl_ke_
^mxsb_h[jZ[hlqbdbkh[ulbc.
OnClick Button1:
procedure TForm1.Button1Click(Sender: TObject);
var x: real; //<\_^_ggh_agZq_gb_
code: integer; Dh^\ha\jZlZhi_jZpbbij_h[jZah\Zgby
kljhdZ
-
qbkeh
s: string;
begin
val(Edit1.text,x,code); //Ij_h[jZah\Zgb_kljhdZ
-
qbkeh
if CheckBox1.Checked then
x:=pi*x/180.0; // I_j_\h^\jZ^bZgu
case RadioGroup1.ItemIndex of // <ZjbZglujZkq_lZ
0,-1: x:=sin(x);
1: x:=cos(x);
2: x:=sin(x)/cos(x);
end;
str(x:7:4, s); //Ij_h[jZah\Zgb_qbkeh
-
kljhdZ
/DEHO&DSWLRQ 6<u\h^j_amevlZlZ
end;
>eykh[ulbyOnClick dghidbButton2:
procedure TForm1.Button2Click(Sender: TObject);
begin
Close;
end; 
                                          11

h^gZbagboAZ^Z^bf^eyCheckBoxagZq_gb_k\hckl\ZCaption - =jZ^mku Zj]m
f_gl kbgmkZ baf_jy_lky \ ]jZ^mkZo Z _keb dghidZ \udexq_gZ lh \ jZ^bZgZo 
>ey ijh\_jdb khklhygby dghidb-\udexqZl_ey bkihevam_lky k\hckl\h Checked:
Boolean\ha\jZsZxs__True_kebdghidZ\dexq_gZ ihf_q_gZ bFalse\ijh
lb\ghfkemqZ_
      5. >ey aZg_k_gby dghihd \ ]jmiim jZ^bhdghihd gZ`f_f ©ª gZijhlb\
k\hckl\Z Items dhfihg_glZ RadioGroup1 < jZkdju\r_fky^bZeh]h\hfhdg_aZ
ibr_fgZbf_gh\ZgbyjZ^bhdghihd\ljbkljhqdbsin cos tg . <k\hckl\h
CaptionaZibr_fNmgdpby.
      Khklhygb_ ]jmiiu jZ^bhdghihd ijh\_jy_lky k ihfhsvx __ k\hckl\Z
ItemIndex lbiZ Integer ?keb ItemIndexjZ\_glh\dexq_gZi_j\Zyihihjy^dm
dghidZ_keblh-ybl^?keb-lhgbh^gZbadghihdg_\dexq_gZ
      NhjfZijbf_l\b^




     6 Hldhfibebjmcl_ ijbeh`_gb_ M[_^bl_kv qlh k ihfhsvx Edit fh`gh
\\h^blv b j_^Zdlbjh\Zlv kljhdb H^gZdh ihdZ gbdZdbo ^_ckl\bc k \\_^_gghc
kljhdhcg_\uihegy_lky
     Qlh[u\uqbke_gbygZ^\\_^_gghckljhdhc\uihegyebkvkha^Zcl_ke_
^mxsb_h[jZ[hlqbdbkh[ulbc.
     >ey kh[ulby OnClick dghidb Button1:
     procedure TForm1.Button1Click(Sender: TObject);
     var x: real; //<\_^_ggh_agZq_gb_
       code: integer; Dh^\ha\jZlZhi_jZpbbij_h[jZah\Zgby
kljhdZ-qbkeh
       s: string;
     begin
       val(Edit1.text,x,code); //Ij_h[jZah\Zgb_kljhdZ-qbkeh
       if CheckBox1.Checked then
       x:=pi*x/180.0;                 // I_j_\h^\jZ^bZgu
       case RadioGroup1.ItemIndex of // eykh[ulbyOnClick dghidbButton2:
      procedure TForm1.Button2Click(Sender: TObject);
      begin
        Close;
      end;

Страницы