Программирование в Turbo Pascal

Содержание алгоритм листинг программа график

1. Математическая модель, описывающая движение тела

2. Алгоритм расчёта и визуализации временных диаграмм скорости, пути и движущей силы: V(t), S(t), F(t)

3. Листинг программы, реализующей представленный алгоритм расчёта и построение графиков V(t), S(t), F(t)

1. Математическая модель, описывающая движение тела Тело массой m движется под действием силы F по диаграмме (зависимости скорости от времени), изображённой на рис. 1, проходя путь L и возвращаясь в исходную точку. Ускорение (замедление) тела на участках № 1, 3, 5, 7 постоянно и равно a, скорость на участках № 2 и № 6 равна V_m и —V_m соответственно. Время паузы на участке № 4 составляет 1 с.

Определить время движения тела на каждом участке следующим образом. Путь, проходимый телом за время движения на участках № 1, 2, 3 равен:

(1).

Время движения на участке № 1 и время движения на участке № 3 равно

.

T1 = T3 = 0,5/0,25 = 2 (c)

Подставив это выражение в (1), получим:

.

Тогда время движения на участке № 2 равно

.

T2 = 15/0,5 — 0,5/0,25 = 28 (c)

Движение назад (участки № 5, 6, 7) полностью повторяет движение вперёд, поэтому Т₅=Т₇=Т₁=2, а Т₆=Т₂=28.

Рассчитаем путь, проходимый телом на участках разгона (торможения), воспользовавшись формулой:

S =0*2 + 0,25*4/2 = 0,5

где V₀ — значение скорости в начале участка, T — длительность участка, a — ускорение (замедление).

Рассчитаем силу F, вызывающую движение тела по формуле:

где м — коэффициент трения, m — масса тела, g — ускорение свободного падения, б — угол наклона поверхности к горизонту.

F = 0,05*250*9,81*0.9848+ 250*9,81*0.1736+250*0,25 =

= 120,7611+425,754+62,5=609,0151

2. Алгоритм расчёта и визуализации временных диаграмм скорости, пути и движущей силы: V (t), S (t), F (t)

Расчет времени движения на различных участках пути:

T₁:=Vm/a;

T₃:=T₁;

T₂:=(L/V_m)-(V_m/a);

T₅:=T₁;

T₆:=T₂;

T₇:=T₃;

T₄:=1;

Расчет пути, пройденного за различные отрезки времени:

S₁:=0*T₁+(a*T₁*T₁/2);

S₃:=V_m*T₃+(a*T₃*T₃/2);

S₅:=-(0*T₅+(a*T₅*T₅/2));

S₇:=-(V_m*T₇+(a*T₇*T₇/2));

S₂:=(V_m*V_m/a)+V_m*T₂;

S₆:=-((V_m*V_m/a)+V_m*T₂);

S₄:=0;

Ускорение на различных участках:

a1:=a;

a2:=0;

a3:=-a;

a4:=0;

a5:=-a;

a6:=0;

a7:=a;

Расчет скорости движения на различных участках:

V₁:=a*T₁;

V₂:=V_m;

V₃:=a*T₃;

V₄:=0;

V₅:=-a*T₅;

V₆:=-V_m;

V₇:=-a*T₇;

3. Листинг программы, реализующей представленный алгоритм расчёта и построение графиков V(t), S(t), F(t)

uses graphABC, crt;

type

Rasst = array[1.7] of real;

Vrem = array[1.8] of real;

Skor = array[1.8] of real;

Uskor = array[1.7] of real;

var

m, L, Vm, Alfa, a, u, q: real;

x, y, z: integer;

S:rasst;

T:vrem;

V:Skor;

Fa:uskor;

const

g = 9.8;

begin

u:=0.05;

m:=250;

L:=15;

Vm:=0.6;

a:=0.25;

Alfa:=10;

T[1]: =Vm/a;

T[3]:=T[1];

T[2]:=(L/Vm)-(Vm/a);

T[5]:=T[1];

T[6]:=T[2];

T[7]:=T[3];

T[4]:=1;

S[1]:=0*T[1]+(a*T[1]*T[1]/2);

S[3]:=Vm*T[3]-(a*T[3]*T[3]/2);

S[5]:=-((0*T[5]+(a*T[5]*T[5]/2)));

S[7]:=-((Vm*T[7]-(a*T[7]*T[7]/2)));

S[2]:=Vm*T[2];

S[6]:=-Vm*T[2];

S[4]:=0;

Alfa:=10*3.14/180;

x:=1;

V[1]:=a*T[1];

V[2]:=Vm;

V[3]:=a*T[3];

V[4]:=0;

V[5]:=-a*T[5];

V[6]:=-Vm;

V[7]:=-a*T[7];

Fa[1]:=a;

Fa[2]:=0;

Fa[3]:=-a;

Fa[4]:=0;

Fa[5]:=a;

Fa[6]:=0;

Fa[7]:=-a;

//Pervi grafik, S (t)

TextOut (2,20, 'S');

TextOut (350,250, 'T');

Line (20,250,350,250);

Line (20,350,20,20);

Line (20,20,15,37);

Line (20,20,25,37);

Line (350,250,333,245);

Line (350,250,333,255);

Y:=20;

z:=250;

MoveTo (y, z);

q:=0;

for x:=1 to 7 do

begin

q:=q+S[x];

z:=250-(round (q))*10;

Y:=y+40;

lineto (y, z);

end;

TextOut (250,40, 'A?aoee eciaiaiey i? ieaaiiiai iooe ei a? aiaie.');

TextOut (250,60, 'Ia?ieoa «Enter» aey i? iaie?aiey.');

readln;

Clrscr;

//vtoroi grafik, otnowenie skorosti ko vremeni, V (t)

TextOut (2,20, 'V');

TextOut (350,250, 'T');

Line (20,250,350,250);

Line (20,350,20,20);

Line (20,20,15,37);

Line (20,20,25,37);

Line (350,250,333,245);

Line (350,250,333,255);

Y:=20;

z:=250;

MoveTo (y, z);

for x:=1 to 8 do

begin

Y:=y+40;

z:=250-(round ((Round (V[x]*150))));

lineto (y, z);

end;

TextOut (250,40, 'A?aoee eciaiaiey neeu ei a? aiaie.');

TextOut (250,60, 'Ia?ieoa «Enter» aey i? iaie?aiey.');

readln;

clrscr;

//treti grafik, otnowenie uskoreniya ko vremeni, a (t)

TextOut (2,20, 'a');

TextOut (350,250, 'T');

Line (20,250,350,250);

Line (20,350,20,20);

Line (20,20,15,37);

Line (20,20,25,37);

Line (350,250,333,245);

Line (350,250,333,255);

Y:=20;

z:=250;

for x:=1 to 7 do

begin

z:=250-((trunc ((Fa[x])*150)));

line (y, z, y+40,z);

Y:=y+40;

end;

TextOut (250,40, 'A?aoee eciaiaiey neeu ei a? aiaie.');

TextOut (250,60, 'Ia?ieoa «Enter» aey i? iaie?aiey.');

readln;

clrscr;

end.

1. Программирование в Turbo Pascal 7.0 и Delphi / Н. Б. Культин. СПб.: BHV — Санкт-Петербург, 1997 — 240 с., ил.