і максимальна висота підйому матеріальної точки, час польоту і час підйому на максимальну висоту, координати точки в даний момент часу.
4. Керівництво програміста
Програма призначена для визначення параметрів кінематичного руху та отримання навичок роботи з графікою і використанням можливостей мови програмування Delphi 7.
Для роботи даної програми підійде будь-яка операційна система Windows. Технічні вимоги до комп'ютера: процесор 333 МГц і вище; оперативна пам'ять 32 Мбайт; 600 Кбайт вільного місця на жорсткому диску.
Виклик програми здійснюється шляхом запуску файлу «кінематична задача.exe».
Лістинг програми наведено у додатку А.
5. Керівництво оператора
Призначення даної програми розрахунок основних параметрів кінематичного руху, графічне відображення траєкторії руху матеріальної точки. Програма «Кинематическое рух» є єдиним виконуваним модулем і не вимагає установки додаткових програмних засобів.
Для роботи даної програми підійде будь-яка операційна система Windows. Технічні вимоги до комп'ютера: процесор 333 МГц і вище; оперативна пам'ять 32 Мбайт; 600 Кбайт вільного місця на жорсткому диску.
Виклик програми здійснюється шляхом запуску файлу «Кінематична задача.exe», в результаті чого на екрані з'являється вікно (малюнок 4), в якому міститься короткий опис порядку дій користувача при роботі з програмою.
Малюнок 5 - Вікно роботи з програмою
У даному вікні користувач вводить дані і вибирає необхідні умови.
Потім необхідно натиснути кнопку «Розрахувати». У вікні з'являться обчислені максимальна швидкість і прискорення точки М в м/с (малюнок 5).
Далі користувач повинен натиснути кнопку «Графік», в наслідок чого на головному вікні програми буде відображений графік (малюнок 6).
Список використаних джерел
1. Збірник завдань для курсових робіт з теоретичної механіки [Текст]: навч. посібник для вузів/під ред. А. А. Яблонського.- М.: Вища. шк., 1985. - 368 с.
. Бать, М. І. Курс теоретичної механіки [Текст]: підручник для вузів/М. І. Бать, Г. Ю. Джанелідзе, А. С. Кельзон.- М.: Наука, 1991. - 640 с.- ISBN 5-02-014451-7.
. Фаронов, В. В. Delphi. Програмування на мові високого рівня [Текст]: підручник для вузів/В. В. Фаронов.- CПб.:Питер, 2003. - 640 с.-ISBN 5-8046-0008-7.
. Хомоненко, А. Д. Delphi 7 [Текст]/під заг. ред. А. Д. Хомоненко.- СПб.:БХВ-Петербург, 2008. - 1 216 с.- ISBN 978-5-94157-267-0.
Додаток А
Лістинг програми
TForm1=class (TForm)
Label1: TLabel ;: TLabeledEdit ;: TLabeledEdit ;: TLabeledEdit ;: TLabeledEdit ;: TButton ;: TLabel ;: TLabel ;: TImage ;: TButton ;: TDBChart ;: TLineSeries ;: TButton ;: TLabel ;: TLabel ;: TLabel ;: TLabel ;: TLabel; Button1Click (Sender: TObject); Button2Click (Sender: TObject); Button3Click (Sender: TObject);
{Private declarations}
{Public declarations} ;: TForm1;
{$ R * .dfm} TForm1.Button1Click (Sender: TObject) ;, Ax, Ay, Az, b, c, t, S, f1, f11, f12, d, S1, S2,, f2, f21 , f22, Vx, Vy, Vz, V: real;:=strtofloat(LabeledEdit1.Text);:=strtofloat(LabeledEdit2.Text);:=strtofloat(LabeledEdit3.Text);:=strtofloat(LabeledEdit4.Text);:=2*sin(pi*t/8); f1:=0.3 * sqr (t); f2:=3/4 * sin (pi * t/12);:=b + n * cos (f2);:=2 * pi/8 * cos (pi * t/8); S2:=- ((pi/4) * (pi/8) * sin (pi * t/8));:=2 * 0.3 * t; f12:=2 * 0.3;:=(pi/12) * 3/4 ??* cos (pi * t/12); f22:=- ((pi/12) * (pi/12) * sin (pi * t/12));:=S1 * cos (f1) -f21 * n * sin (f2); Vy:=- S1 * sin (f1) + d * f11; Vz:=n*cos(f2)*f21;:=Sqrt(Sqr(Vx)+Sqr(Vy)+Sqr(Vz));:=int(V);:=S2*cos(f1)-d*sqr(f11)*(sqr(f21)*cos(f2)+f22*sin(f2))*n;:=-S2*sin(f1)+d*f12-2*f11*f21*n*sin(f2);:=(f22*cos(f2)-sqr(f21)*sin(f2))*n;:=Sqrt(sqr(Ax)+sqr(Ay)+sqr(Az));:=int(A);.Caption:=laquo;Скорость точки М дорівнює + floattostr (V) + м/с raquo ;;. Caption:= Прискорення точки М дорівнює + floattostr (a) + м/с*сraquo;;.Caption:=floattostr(Vx);.Caption:=floattostr(Vy);.Caption:=floattostr(Vz);;TForm1.Button2Click(Sender: TObject) ;. Picture.LoadFromFile ( Схема.bmp ) ;; TForm1.Button3Click (Sender: TObject) ;, t, n, c, b:integer;:=strtoint(LabeledEdit1.Text);:=strtoint(LabeledEdit2.Text);:=strtoint(LabeledEdit3.Text);:=strtoint(LabeledEdit4.Text);i:=0 to t do.Series [0] .AddXY (0.02 * b * i, 2 * sin (0.02 * (c + n) * i/8), raquo ;, clRed) ;;.
