Программалар құру

53

Программалар құру

1-тапсырма.

  1. Form1-ге 4 edit компонентін орналастыр.
  2. Form1-ге 1 button компонентін орналастыр.

Button  компонентінің OnClick оқиғасына келесі кодты жаз.

var

x,y,z:real;

i,n,r,na:integer;

begin

canvas.Brush.Color:=clBtnFace;

canvas.Rectangle(0,0,Form1.Width,form1.Height);

n:=StrToInt(Edit1.Text);

na:=StrToInt(Edit4.Text);

z:=StrToInt(Edit3.Text);

r:=StrToInt(Edit2.Text);r:=round(r/10);

x:=Form1.Width/2; y:=form1.Height/2;

canvas.pen.Color:=clRed;

canvas.Pen.Width:=5;

canvas.MoveTo(round(x+(r*z)*cos((360*0/n)/180*3.14)),round(y+(r*z)*sin((360*0/n)/180*3.14)));

for i:= 1 to n*na do

begin

sleep(10);

canvas.lineto(round(x+(r+i)*z*cos((360*i/n)/180*3.14)),round(y+(r+i)*z*sin((360*i/n)/180*3.14)));

end;

end;

объект құрамы мәні
edit 1 Text 30
edit2 Text 100
edit3 Text 4
edit4 Text 2


 

2-тапсырма.

  1. Form1-ге Timer1 (System парағында орналасқан)компонентін орналастыр.
  2. Timer1 компонентінің Interval-30.
  3. Form1-дің айнымалысына Var мына айнымалыларды жаз.

var

y,k,p,t:integer;

procedure TForm1.Timer1Timer(Sender: TObject);

begin

if t>Form1.ClientHeight-5 then timer1.Enabled:=false;

if (y>=Form1.ClientHeight)or (y<=t)then

begin

p:=p*(-1);

end;

if y>=Form1.ClientHeight then t:=t+((Form1.ClientHeight-t)div 2);

y:=y+p;

Form1.Repaint;

Canvas.Ellipse(50,y,50+20,y-20);

end;

  1. Form1-дің Object Inspector-Events бөлімінен OnCreate оқиғасын тауып, оқиғаны 2-рет шертіп, келесі кодты жаз.

procedure TForm1.FormCreate(Sender: TObject);

begin

randomize;

y:=1;

t:=0;

p:=5;

Canvas.Brush.Color:=RGB(random(256),random(256),random(256));

end;

 

end.