Практикалық жұмыс

Тақырыбы:   Циклдік құрылымдар 

Мақсаты: Қайталанбалы  процестерді ұйымдастыруды  меңгерту.

Жұмыстың барысы: төмендегі берілген мысалдарды Delphi ортасында орындау керек.

 

 

 


Мысалы:

  «Функциялар графиктері» қосымшасын жасау керек.

 

procedure TForm2.SpeedButton1Click(Sender: TObject); // «Сызу» батырмасы

var   x,y,a,r:real;

      x1,y1: integer;

begin

PaintBox1.Canvas.MoveTo(320,0);

PaintBox1.Canvas.LineTo(320,460);

PaintBox1.Canvas.MoveTo(10,240);

PaintBox1.Canvas.LineTo(630,240);

 Timer1.Enabled:=true;

  Timer2.Enabled:=true;

    Timer3.Enabled:=true;

       Timer4.Enabled:=true;

  end;

procedure TForm2.Timer1Timer(Sender: TObject);

var   x,y,a,r:real;   x1,y1: integer;

begin

   a:=0;

   repeat

   r:=3*a;

   x1:=trunc(r*cos(a))+160;

   y1:=trunc(r*sin(a))+120;

 PaintBox1.Canvas.Pixels[x1,y1]:=4;

   a:=a+0.01;

   until a>30;

  TntLabel1.Visible:=Спираль;

end;

procedure TForm2.Timer2Timer(Sender: TObject);

var x,y: real; x1,y1: integer;

begin

   x:=-4*pi;

  while x<4*pi do

    begin

      y:=sin(x);

      x1:=trunc(x*10)+480;

      y1:=trunc(-y*10)+120;

  PaintBox1.Canvas.Pixels[x1,y1]:=2;

      x:=x+0.01;

     end;

   TntLabel2.Visible:=true;

end;

procedure TForm2.Timer3Timer(Sender: TObject);

var a,r: real; x1,y1: integer;

begin

  a:=0;

   repeat

   r:=100*cos(10*a);

   x1:=trunc(r*cos(a))+480;

   y1:=trunc(r*sin(a))+360;

PaintBox1.Canvas.Pixels[x1,y1]:=4;

   a:=a+0.01;

   until a>30;

end;

procedure TForm2.Timer4Timer(Sender: TObject);

var x,y: real; x1,y1: integer;

begin

  x:=-5;

  while x<5 do

    begin

      y:=x*x;

      x1:=trunc(x*7)+160;

      y1:=trunc(-y*7)+450;

  PaintBox1.Canvas.Pixels[x1,y1]:=2;

      x:=x+0.01;

     end;

   Label1.Caption:='y=x*x';

end;