O‘zbekiston respublikasi oliy va o‘rta maxsus ta’lim vazirligi issn 2181-4732

 

Innovatsion texnologiyalar №4 (28) 2017 y.
68 
TA’LIM VA AXBOROT TEXNOLOGIYALARI/ ОБРАЗОВАНИЕ И 
ИНФОРМАЦИОННЫЕ ТЕХНОЛОГИИ
 
имени Stimulant library browser: integrator (интегральный сигнал), Gain (умножает входной 
сигнал на заданный коэффициент), Constant (задает постоянный сигнал), Display (отображает
значение сигнала в виде числа), Scope (виртуальный осциллограф), XY Graph (виртуальный 
графопостроитель), Relational operator (установить оператор связи), Stop simulation 
(останавливать симуляции). 
Рис.1
. Структурная схема модели 
траектория камня 
Рис.2.
Траектория полета камня 
Из уравнения (2) получим, поставляя в уравнение (1) и получим следующее уравнение 
300
905
.
4
3
10
10
1
2
x
x
y





, 
2
016
.
0
58
.
0
1
x
x
y



. В первую очередь создаем новый 
проект в программе Borland Delphi 7. Выбираем в меню компонентов standard пиктограмму 
PaintBox, щелкнем мышью в том месте формы, где мы хотим ее поставить. Захватывая их 
“мышью” отрегулируем размеры окон и их положение. После этого два раза щелкнем
мышью на кнопку Paint Box. Текст программы приведен ниже. Код программы имеет вид: 
XY Graph
STOP
Stop Simulation
Scope
<=
Relational
Operator
u
2
Math
Function
1
s
Integrator2
1
s
Integrator1
1
s
Integrator
-K-
Gain2
-K-
Gain1
10
Gain
36.92
Display
0
Constant3
1
Constant2
1
Constant1
1
Constant
Add
unitUnit14; 
interface uses 
Windows, Messages, SysUtils, 
Variants, Classes, Graphics, 
Controls, Forms, 
Dialogs, ExtCtrls; type 
TForm1 = class(TForm) 
PaintBox1: TPaintBox; 
procedure 
PaintBox1Click(Sender: 
TObject); private 
{ Private declarations } 
public 
{ Public declarations } 
end; var 
Form1: TForm1; 
implementation 
{$R *.dfm} 
procedure
TForm1.PaintBox1Click(Sender
: TObject); 
var x0,y0:integer; 
i:integer; 
x,x1,x2:real; 
fx,fy:integer; 
begin 
x0:=50; y0:=350; 
Canvas.Pen.Color:=clBlue; 
Canvas.MoveTo(50,20); 
Canvas.LineTo(50,350); 
Canvas.Pen.Color:=clBlue; 
Canvas.MoveTo(860,350); 
Canvas.LineTo(50,350); 
Canvas.TextOut(870,350,'X'); 
Canvas.TextOut(60,10,'Y'); 
Canvas.MoveTo(50,20); 
Canvas.LineTo(40,40); 
Canvas.MoveTo(50,20); 
Canvas.LineTo(60,40); 
Canvas.MoveTo(860,350); 
Canvas.LineTo(840,360); 
Canvas.MoveTo(860,350); 
Canvas.LineTo(840,340); 
Width:=910; 
Height:=400; 
x1:=0;x2:=37.9; 
x:=x1; 
while xbegin 
fx:=x0+round(15*x); 
fy:=y0-round(40*(1+0.58*x-
0.016*x*x)); 
for i:=1 to 100 do 
Canvas.Pixels[fx,fy]:=clRed; 
x:=x+0.01; 
end; 
end. 

---