Тақырыбы: Циклдік құрылымдар
Мақсаты: Қайталанбалы процестерді ұйымдастыруды
меңгерту.
Жұмыстың барысы: төмендегі берілген мысалдарды 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; |
|