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

UptoLike

ВУЗ: 

ВГУ | Воронеж

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

Рубрика: 

26
Kha^Zcl_h[jZ[hlqbdkh[ulbyOnClick^eydghidbJbkh\ZlvG_ihkj_^
kl\_gghi_j_^h[jZ[hlqbdZfbghihke_hibkZgbcf_lh^h\deZkkZh[ty\bl_i_
j_f_ggmxlbiZTGrafik
.
var g: TGrafik;
procedure TForm1.Button1Click(Sender: TObject);
var i,n,code: integer;
x,x0,xk,dx,w: real;
YMax, YMin: real;
function sinc(x: real): real;
begin
if x<>0 then
sinc:=sin(x)/x
else
sinc:=1;
end;
begin
Val(NtEdit.Text, n, code);
Val(WEdit.Text, W, code);
Val(InitTEdit.Text, x0, code);
Val(FinalTEdit.Text, xk, code);
Val(MaxEdit.Text, Ymax, code);
Val(MinEdit.Text, Ymin, code);
dx:=(xk-x0)/n;
with g do
begin
//
H[jZs_gb_d]jZnbdma^_kvijhbkoh^blq_j_ak\hckl\Z
nx:=n;
BrushColor:=clWhite;
Border:=clRed;
PenColor:=clRed;
x:=x0;
for i:=1 to n do
begin
x:=x+dx;
Series[i]:=(sinc(w*x)-YMin)/(YMax-YMin);
end;
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Kha^Zgb_wda_fieyjZdeZkkZ7*UDILNbijb\yadZ_]hdiZg_eb
g:=TGrafik.create(Form1); <eZ^_e_p
– Form1
g.SetParent(Form1.Panel1); Jh^bl_ev
– Panel1
                                    26




     Kha^Zcl_h[jZ[hlqbdkh[ulbyOnClick^eydghidbJbkh\ZlvG_ihkj_^
kl\_gghi_j_^h[jZ[hlqbdZfbghihke_hibkZgbcf_lh^h\deZkkZh[ty\bl_i_
j_f_ggmxlbiZTGrafik.
     var g: TGrafik;
     procedure TForm1.Button1Click(Sender: TObject);
     var i,n,code: integer;
          x,x0,xk,dx,w: real;
          YMax, YMin: real;
     function sinc(x: real): real;
     begin
       if x<>0 then
          sinc:=sin(x)/x
       else
          sinc:=1;
     end;
     begin
       Val(NtEdit.Text, n, code);
       Val(WEdit.Text, W, code);
       Val(InitTEdit.Text, x0, code);
       Val(FinalTEdit.Text, xk, code);
       Val(MaxEdit.Text, Ymax, code);
       Val(MinEdit.Text, Ymin, code);
       dx:=(xk-x0)/n;
       with g do
       begin //H[jZs_gb_d]jZnbdma^_kvijhbkoh^blq_j_ak\hckl\Z
          nx:=n;
          BrushColor:=clWhite;
          Border:=clRed;
          PenColor:=clRed;
          x:=x0;
          for i:=1 to n do
          begin
            x:=x+dx;
            Series[i]:=(sinc(w*x)-YMin)/(YMax-YMin);
          end;
       end;
     end;
     procedure TForm1.FormCreate(Sender: TObject);
     begin
     Kha^Zgb_wda_fieyjZdeZkkZ7*UDILNbijb\yadZ_]hdiZg_eb
       g:=TGrafik.create(Form1); 

Страницы