Муҳаммад ал хоразмий номидаги

Dastur kodi quyidagicha: 
unit Unit1; 
interface 
uses 
Windows, 
Messages, 
SysUtils, 
Variants, Classes, Graphics, Controls, 
Forms, Dialogs, StdCtrls, ExtCtrls; 
type 
TForm1 = class(TForm) 
Button1: TButton; 
PaintBox1: TPaintBox; 
Button2: TButton; 
procedure 
Button1Click(Sender: 
TObject); 
procedure 
Button2Click(Sender: 
TObject); 
private 
{ Private declarations } 
public 
{ Public declarations } 
end; 
var 
Form1: TForm1; 
implementation 
{$R *.dfm} 
procedure 
TForm1.Button1Click(Sender: 
TObject); 
var i:integer; 
x0,y0,x,x1,x2,fx,fy:integer; 
begin 
Canvas.Pen.Color:=clBlack; 
PaintBox1.Canvas.MoveTo(30,200); 
PaintBox1.Canvas.LineTo(30,0); 
PaintBox1.Canvas.MoveTo(600,100); 
PaintBox1.Canvas.LineTo(0,100); 
PaintBox1.Canvas.MoveTo(600,100); 
PaintBox1.Canvas.LineTo(585,105); 
PaintBox1.Canvas.MoveTo(600,100); 
PaintBox1.Canvas.LineTo(585,95); 
PaintBox1.Canvas.MoveTo(35,15); 
PaintBox1.Canvas.LineTo(30,0); 
PaintBox1.Canvas.MoveTo(25,15); 
PaintBox1.Canvas.LineTo(30,0); 
Canvas.Pen.Color:=clBlack; 

---

86 
PaintBox1.Canvas.TextOut(590,80,'X'); 
Canvas.Pen.Color:=clBlack; 
PaintBox1.Canvas.TextOut(45,0,'Y'); 
x0:=30;y0:=100; 
begin 
x1:=0;x2:=500; 
x:=x1; 
while xbegin 
fx:=x0+round(x); 
fy:=y0-round(100*exp(-
0.01*x)*cos(5*x*pi/180)); 
for i:=0 to 500 do 
PaintBox1.Canvas.Pixels[fx,fy]:=clRed; 
x:=x+1; 
end; 
end; 
end; 
procedure 
TForm1.Button2Click(Sender: 
TObject); 
var i:integer; 
x0,y0,ux,uy:integer; 
x,x3,x4:real; 
begin 
x0:=30;y0:=100; 
begin 
x3:=0.01;x4:=500; 
x:=x3; 
while xbegin 
ux:=x0+round(x); 
uy:=y0-round(100*exp(-
0.01*x)*sin(5*x*pi/180)); 
for i:=0 to 500 do 
PaintBox1.Canvas.Pixels[ux,uy]:=clGre
en; 
x:=x+1; 
end; 
end; 
end; 
end.

---

87 
 
2- rasm. Borland Delphi7 
dasturida so’nuvchi tebranish grafigi
 
Fizikadan amaliy mashg‘ulotlar jarayonida zamonaviy axborot 
texnologiyalaridan foydalanish, xususan MATLAB, MAPLE, MathCAD, 
Crocodile physics dasturiy tizimlari hamda Dev-C++, Java(SE-8)-eclipse, Borland 
Delphi7, Borland C++ Builder, Embarcadero kompyuter dasturlarini samarali 
grafik rejimda qo‘llanilishi o‘quvchi amaliy va ijodiy faoliyatini faollashtirish 
bilan bir qatorda fanlararo uzviylikni ta’minlaydi.
 Adabiyotlar 
1.
В.В. Васильев, Л.А. Смак, А.М. Рыбникова. Математическое и 
компьютерное 
моделирование 
процессов 
и 
систем 
в 
среде 
MATLAB/SIMULINK
. Киев
-
2008, ст
-41-46. 
2.
В.П. Дьяконов. 
Simulink
5/6/7. Самоучитель. ДМК издательство 
Москва
-
2008г.
3.
И. Ю. Бежанова 
- Delphi
7 самоучитель программиста. Москва
-
2003г
4.
Шупрута В. 
Delphi
2005. Учимся программировать. 
NTPress-
2005г, 
ст
-241 
5.
Савельев И. В.
Курс физики. М.: Наука 1989г
6.
 
www.thedelphi.ru 
7.
 
www.mathsoft.ru