Курсовая работа: Моделирование движения на плоскости

writeln(fe,' ':7,i:2,' I',' ',fi[i]:7:3,' I',' ',W[i]:7:3,' I',' ',

b[i]:7:3,' I',' ',t[i]:7:3,' I');

writeln('Произведен расчет параметров торможения');

write(fe,' ');

for i:=1 to 60 do

write(fe,'_');

writeln(fe);

writeln(fe);

Tt:=t[2*n+1]-t[n+1];

writeln(fe,' Быстродействие для угла разгона равно Tp= ',

Tp:7:3,' сек');

writeln(fe,' Быстродействие для угла торможения равно Tt= ',

Tt:7:3,' сек');

close(fe);

writeln('Результаты вычислений занесены в файл kurs-13v.rez');

repeat until keypressed

end.

7. Распечатка результатов.

Определение параметров вращательного движения тела

Лабоцкий Д.В.

Вариант 13

Исходные данные

Момент инерции тела равен I0= 2.50 кг/м2

Коэффициент движущего момента М0= 15.50 нм

Момент сопротивления Мc= 10.00 нм

Угол разгона fip= 0.20 рад

Количество интервалов разбиения n= 10

I I I I I

I fi[i] I W[i] I b[i] I t[i] I