ової швидкості і кута прицілювання.
У результатах роботи можлива похибка через похибки методу рішення, але її величина невелика, і їй можна знехтувати.
Проблеми, що виникали в результаті виконання роботи, пов'язані з браком консультацій і моєї неорганізованістю.
Дана модель може бути використана для наочного зображення руху заряджених частинок, а також для виявлення залежності координати заряду q в певний момент часу від початкових координат заряду, початкової швидкості і кута прицілювання.
Список літератури
1. Фленов М.Є. Delphi.- СПб .: БХВ-Петербург, 2010. - 368 с: ил.
. Вірт Н. Алгоритми та структури даних. М .: Світ, 2009. - 55
. А.В. МОГИЛЬОВ, Н.І. ПАК, Є.К. Хеннер ПРАКТИКУМ ПО ІНФОРМАТИЦІ 2005 609с.
. Бусленко Н.П. Моделювання складних систем.- М .: Наука, 2008. - 399 с.
. Трофимова В.І. Курс Фізики: Учеб. Посібник для вузів.- 7-е вид.- М: Вища. шк., 2011. - 542 с .: ил.
Додаток А
Текст програми
Основне вікно
unit Unit1 ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, StdCtrls, ExtCtrls, XPMan;=class (TForm): TImage ;: TGroupBox ;: TLabeledEdit;
LabeledEdit2: TLabeledEdit ;: TLabeledEdit ;: TLabeledEdit ;: TLabeledEdit ;: TLabeledEdit ;: TLabeledEdit ;: TXPManifest ;: TGroupBox ;: TLabeledEdit ;: TButton ;: TButton;
Button3: TButton ;: TButton ;: TLabeledEdit; Button3Click (Sender: TObject); Button4Click (Sender: TObject); prover: boolean; Button1Click (Sender: TObject); fu (q1, q2, m , x, y: real; n: byte): real; Button2Click (Sender: TObject); podgon (n: byte) ;;: TForm1;, q2, a, c, d, v, f, vx, vy, x , y, dt, m, t: real; Unit2, Unit4, Unit3;
{$ R *. dfm} TForm1. Button3Click (Sender: TObject) ;. show ;; TForm1. Button4Click (Sender: TObject) ;. show ;; tform1. prover ;:=false ;:=strtofloat (labelededit1. text); EConvertError do begin labelededit1. text:= raquo ;; ( Неправильний формат числа + labelededit1. editlabel. Caption + );// Якщо дані не є числом
end;
end;
try:=strtofloat (labelededit3. text); EConvertError do begin labelededit3. text:= raquo ;; ( Неправильний формат числа + labelededit3. editlabel. Caption + );// Якщо дані не є числом
end;
end;
try:=strtofloat (labelededit4. text); EConvertError do begin labelededit4. text:= raquo ;; ( Неправильний формат числа + labelededit4. editlabel. Caption + );// Якщо дані не є числом
end;
end;
try:=strtofloat (labelededit5. text); EConvertError do begin labelededit5. text:= raquo ;; ( Неправильний формат числа + labelededit5. editlabel. Caption + );// Якщо дані не є числом
end;
end;
try:=strtofloat (labelededit6. text); EConvertError do begin labelededit6. text:= raquo ;; ( Неправильний формат числа + labelededit6. editlabel. Caption + );// Якщо дані не є числом
end;
end;
try:=strtofloat (labelededit7. text); EConvertError do begin labelededit7. text:= raquo ;; ( Неправильний формат числа + labelededit7. editlabel. Caption + );// Якщо дані не є числом
end;
end;
try:=strtofloat (labelededit8. text); EConvertError do begin labelededit8. text:= raquo ;; ( Неправильний формат числа + labelededit8. editlabel. Caption + );// Якщо дані не є числом
end;
end;
try:=strtofloat (labelededit9. text); EConvertError do begin labelededit9. text:= raquo ;; ( Неправильний формат числа + labelededit9. editlabel. Caption + );// Якщо дані не є числом
end;
end;
try:=strtofloat (labelededit2. text); EConvertError do begin labelededit2. text:= raquo ;; ( Неправильний формат числа + labelededit2. editlabel. Caption + );// Якщо дані не є числом
end;
end;
prover:=true;
except
on EConvertError do showmessage ( Неправильний формат числа );// Якщо дані не є числом
end ;; TForm1. Button1Click (Sender: TObject);
VAR K1_1, k2_1, k3_1, k4_1, k1_2, k2_2, k3_2, k4_2: double; dv, vis: integer;
beginprover then. Series1. Clear ;:=-a;
y:=0 ;:=0 ;:=0 ;:=1 ;:=v * cos ((f/180) * pi);
vy:=v * sin ((f/180) * pi); (x lt; c) and (y gt;=0) do
begin_1:=fu (q1, q2, m, x, y, 1); _ 2:=fu (q1, q2, m, x, y, 2); _ 1:=fu (q1, q2, m, x + dt * ...
