Кинематическое движение

Вызов программы осуществляется путем запуска файла «Кинематическая задача.exe», в результате чего на экране появляется окно (рисунок 4), в котором содержится краткое описание порядка действий пользователя при работе с программой.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Рисунок 5 – Окно работы с программой

 

В данном окне пользователь вводит данные и выбирает необходимые условия.

Затем необходимо нажать кнопку «Рассчитать». В окне появятся вычисленные максимальная скорость и ускорение точки М в м/с (рисунок 5).

                           

 

 

Далее пользователь должен нажать кнопку «График», в следствие чего на главном окне программы будет отображен график (рисунок 6).

 

                  

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Список использованных источников

 

 

1 Сборник заданий для курсовых работ по теоретической механике [Текст] : учеб. пособие для вузов / под ред. А. А. Яблонского. - М. : Высш. шк., 1985. - 368 с.

2 Бать, М. И. Курс теоретической механики [Текст] : учебник для вузов / М. И. Бать, Г. Ю. Джанелидзе, А. С. Кельзон. - М. : Наука, 1991. – 640 с. – ISBN 5-02-014451-7.

3 Фаронов, В. В. Delphi. Программирование на языке высокого уровня [Текст] : учебник для вузов / В. В. Фаронов . - CПб. : Питер, 2003. - 640 с. –ISBN 5-8046-0008-7.

4 Хомоненко, А. Д. Delphi 7 [Текст] / под общ. ред. А. Д. Хомоненко. – СПб. : БХВ-Петербург, 2008. – 1216 с. – ISBN 978-5-94157-267-0.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Приложение А

 

Листинг программы

 

TForm1 = class(TForm)

    Label1: TLabel;

    LabeledEdit1: TLabeledEdit;

    LabeledEdit2: TLabeledEdit;

    LabeledEdit3: TLabeledEdit;

    LabeledEdit4: TLabeledEdit;

    Button1: TButton;

    Label2: TLabel;

    Label3: TLabel;

    Image1: TImage;

    Button2: TButton;

    DBChart1: TDBChart;

    Series1: TLineSeries;

    Button3: TButton;

    Label4: TLabel;

    Label5: TLabel;

    Label6: TLabel;

    Label8: TLabel;

    Label9: TLabel;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form1: TForm1;

 

implementation

 

{$R *.dfm}

 

procedure TForm1.Button1Click(Sender: TObject);

Var

A,Ax,Ay,Az,b,c,t,S,f1,f11,f12,d,S1,S2,

n,f2,f21,f22,Vx,Vy,Vz,V: real;

begin

n:=strtofloat(LabeledEdit1.Text);

b:=strtofloat(LabeledEdit2.Text);

c:=strtofloat(LabeledEdit3.Text);

t:=strtofloat(LabeledEdit4.Text);

S:=2*sin(pi*t/8); f1:=0.3*sqr(t); f2:=3/4*sin(pi*t/12);

d:= b+n*cos(f2);

S1:=2*pi/8*cos(pi*t/8); S2:=-((pi/4)*(pi/8)*sin(pi*t/8));

f11:=2*0.3*t; f12:=2*0.3;

f21:=(pi/12)*3/4*cos(pi*t/12); f22:=-((pi/12)*(pi/12)*sin(pi*t/12));

Vx:=S1*cos(f1)-f21*n*sin(f2); Vy:=-S1*sin(f1)+d*f11; Vz:=n*cos(f2)*f21;

V:=Sqrt(Sqr(Vx)+Sqr(Vy)+Sqr(Vz));

V:=int(V);

Ax:=S2*cos(f1)-d*sqr(f11)*(sqr(f21)*cos(f2)+f22*sin(f2))*n;

Ay:=-S2*sin(f1)+d*f12-2*f11*f21*n*sin(f2);

Az:=(f22*cos(f2)-sqr(f21)*sin(f2))*n;

A:=Sqrt(sqr(Ax)+sqr(Ay)+sqr(Az));

A:=int(A);

Label2.Caption:='Скорость точки М равна '+floattostr(V)+' м/с';

Label3.Caption:='Ускорение точки М равно '+floattostr(a)+' м/с*с';

Label4.Caption:=floattostr(Vx);

Label5.Caption:=floattostr(Vy);

Label6.Caption:=floattostr(Vz);

end;

 

procedure TForm1.Button2Click(Sender: TObject);

begin

Image1.Picture.LoadFromFile('Схема.bmp');

end;

 

procedure TForm1.Button3Click(Sender: TObject);

Var

i, t, n, c, b:integer;

begin

n:=strtoint(LabeledEdit1.Text);

b:=strtoint(LabeledEdit2.Text);

c:=strtoint(LabeledEdit3.Text);

t:=strtoint(LabeledEdit4.Text);

for i:=0 to t do

DBChart1.Series[0].AddXY(0.02*b*i, 2*sin(0.02*(c+n)*i/8), '', clRed);

end;

 

end.