gn="justify"> writeln (fu); (fu, : 5, Швидкодія для ділянки розгону , tr=, tr: 6: 4);
{ділянку гальмування}:=sr/n;
s [1]:=0; [1]:=0; [1]:=0; [1]:=(f0-fc)/m; i:=2 to n -1 do [i]:=s [i - 1] + dsr;:=(1 * f0 + sqr (c)/(s [i] +1) + sqr (c)/(s [i - 1] + 1) * s [i - 1] - 1 * fc) * dsr/1; [i]:=sqrt (2/m * (m * sqr (v [i - 1])/2 + int)) ;: =(v [i] + v [i - 1])/2; [i]:=t [i - 1] + dsr/vs; [i]:=(v [i] -v [i - 1] )/(t [i] -t [i - 1]) ;;
{висновок на екран} ( i; , s [i]; , a [i]; , t [i] ) ; i:=1 to n + 1 do (i: 2, ; , s [i]: 6: 4, ; , v [i]: 6: 4, ; , a [i]: 6: 4, ; , t [i]: 6: 4);
end;:=t [n + 1]; ( Швидкодія для ділянки тормаженія , tr: 6: 4);
{висновок у файл} (fu, : 9); for i:=1 to 50 do write (fu, - ); (fu); (fu, : 8, I , : 8, I raquo ;, : 8, I , : 9, I , : 8, I , ); (fu, raquo ;: 7, i I s I v I a I t I ); (fu, : 8, I , : 8, I , : 8 , I , : 9, I , : 8, I , ); (fu, : 9); for i:=1 to 50 do write (fu, - ); (fu); i:=1 to n + 1 do (fu, : 6, i: 2, I raquo ;, s [i]: 6: 4, I , v [i]: 6: 4, I , a [i]: 6: 4, I , t [i ]: 6: 4, I ); (fu, : 9); i:=1 to 50 do write (fu, - ); (fu);
writeln (fu, : 5, Швидкодія для ділянки гальмування , tr=, tr: 6: 4);
close (fu); ( Робота закінчена ); until key pressed
end.
Роздруківка результатів
Моделювання руху на площині
Поступальний рух
Варіант 4
Вихідні дані:
Маса тіла m=1.00 кг
Сила опору fc=10.00 H
Початкове значення сили f0=50.00 H
Коефіцієнт c=0.10
Участок розгону sr=1.00 M
Кількість разбиений ділянки розгону n=10
-------------------------------------------------- III II s I v I a I t II III
-------------------------------------------------
I 0.0000 I 0.0000 I 40.0000 I 0.0000 I
I 0.1000 I 2.8287 I 40.0091 I 0.0707 I
I 0.2000 I 4.0005 I 40.0092 I 0.1000 I
I 0.3000 I 4.8995 I 40.0094 I 0.1225 I
I 0.4000 I 5.6575 I 40.0095 I 0.1414 I
I 0.5000 I 6.3253 I 40.0095 I 0.1581 I
I 0.6000 I 6.9290 I 40.0096 I 0.1732 I
I 0.7000 I 7.4842 I 40.0096 I 0.1871 I
I 0.8000 I 8.0009 I 40.0097 I 0.2000 I
I 0.9000 I 8.4863 I 40.0097 I 0.2121 I
I 1.0000 I 8.9453 I 40.0097 I 0.2236 I
--------------------------------------------------
Швидкодія для ділянки розгону tr=0.2236
-------------------------------------------------- III II s I v I a I t II III
-------------------------------------------------
I 0.0000 I 0.0000 I 40.0000 I 0.0000 I
I 0.1000 I 2.8287 I 40.0091 I 0.0707 I
I 0.2000 I 4.0005 I 40.0092 I 0.1000 I
I 0.3000 I 4.8995 I 40.0094 I 0.1225 I
I 0.4000 I 5.6575 I 40.0095 I 0.1414 I
I 0.5000 I 6.3253 I 40.0095 I 0.1581 I
I 0.6000 I 6.9290 I 40.0096 I 0.1732 I
I 0.7000 I 7.4842 I 40.0096 I 0.1871 I
I 0.8000 I 8.0009 I 40.0097 I 0.2000 I
I 0.9000 I 8.4863 I 40.0097 I 0.2121 I
I 1.0000 I 8.9453 I 40.0097 I 0.2236 I
--------------------------------------------------
Швидкодія для ділянки гальмування tr=0.2236
Графічне представлення результатів
Аналіз результатів
Аналіз результатів показує:
а) швидкість дорівнює початковому значенню;
б) зі збільшенням часу швидкість убуває лінійно.
Література
1.Справочное посібник по наближеним методам вирішення завдань вищої математики/Л.І. Бородич, А.І. Герасимович, Н.П. Кеда, І.М. Мелешко.- Мн .: Вища. школа, 1986.
2.Офіцеров Д. В., Старих В. А. Програмування в інтегрованому середовищі Турбо - Паскаль: Справ. посібник.- Мн .: Білорусь, 1992.
.Петров А. В., Титов М. А., Шкатов П. Н. Обчислювальна техніка та програмування: Курсова робота/Под ред. А. В. Петрова.- М...
