Текст программы определения момента инерции относительно оси х и относительно оси у
Program RGR1V09;{программа определяет момент инерции относительно оси x и y}
Var m,b,l,x,y:real;{b,m,l-вводим исходные данные};{x и y-результат}
Begin
writeln('Введите значения m,b,l');{сообщаем о вводе m,b,l}
readln(m,b,l);{вводим m,b,l}
x:=0.125*m*b*b;{расчётная формула}
y:=0.065*m*l*l;{расчётная формула}
Writeln('x:=',x,'y:=',y);{вывод результата на экран}
end.
Текст программы задачи определения табуляции бортовой качки за 2 минуты.
Program rgrz2v09;{программа определения бортовой качки за 2 минуты}
var Bb,QSB,B,h,ko,Ix,dI,kb,Vb,Tb,wb,t,QMmax,DT,m:real; {B,m,l,h,ko,t-вводимые исходные данные};{QSB-результат}
begin
Writeln('Bb='); {сообщаем о вводе Bb }
readln(Bb); {вводим Bb}
Writeln('QMmax=');{сообщаем о вводе QMmax }
readln(QMmax); {вводим QMmax}
writeln('B=');{сообщаем о вводе B }
readln(B); {вводим B }
Writeln('h='); {сообщаем о вводе h }
readln(h); {вводим h}
writeln('ko=');{сообщаем о вводеko }
readln(ko); {вводим ko}
Writeln('DT=');{сообщаем о вводе DT}
readln(DT); {вводим DT}
Writeln('m='); {сообщаем о вводе m}
readln(m); {вводим m}
Ix:=0.125*m*B*B; {расчётная формула}
dI:=0.25*Ix; {расчётная формула}
kb:=0.35*Ix;{расчётная формула}
Vb:=kb/2*(Ix+dI);{расчётная формула}
Tb:=ko*B/sqrt(h); {расчётная формула}
wb:=2*3.14/Tb; {расчётная формула}
t:=0.20;
QSB:=0;
while (t<=120) do
begin
QSB:=QMmax*(-Vb*t)*cos(wb*t-Bb);{расчётная формула}
Writeln('QSB(t)=',QSB:1:1,',t=',t:4:2);{вывод результата на экран}
t:=t+DT; {Приращение аргумента}
end;
end.
Результаты решения задачи на определение момента инерции относительно оси х и относительно оси у
C:\WINDOWS\SYSTEM32\HASPDOS.SYSBorland Pascal Version 7.0 Copyright (c) 1983,9
2 Borland International
Введите значения m,b,l
6400000
15.8
155
x:= 1.9971200000E+08y:= 9.9944000000E+09
Результаты решения задачи на определения табуляции бортовой качки за 2 минуты.
Bb=3.14
QMmax=0.55
B=7.4
h=1.09
ko=0.78
DT=0.20
m=7400000
QSB(t)=23228472206000000.0,t=115.40
QSB(t)=28764428692000000.0,t=115.60
QSB(t)=32838620227000000.0,t=115.80
QSB(t)=35236199155000000.0,t=116.00
QSB(t)=35827915477000000.0,t=116.20
QSB(t)=34577069343000000.0,t=116.40
QSB(t)=31541720377000000.0,t=116.60
QSB(t)=26872023727000000.0,t=116.80
QSB(t)=20802813262000000.0,t=117.00
QSB(t)=13641797727000000.0,t=117.20
QSB(t)=5753962809400000.0,t=117.40
QSB(t)=-2457030346500000.0,t=117.60
QSB(t)=-10569502181000000.0,t=117.80
QSB(t)=-18165410247000000.0,t=118.00
QSB(t)=-24851891172000000.0,t=118.20
QSB(t)=-30281578838000000.0,t=118.40
QSB(t)=-34170648167000000.0,t=118.60
QSB(t)=-36313647207000000.0,t=118.80
QSB(t)=-36594342745000000.0,t=119.00
QSB(t)=-34992007234000000.0,t=119.20
QSB(t)=-31582807890000000.0,t=119.40
QSB(t)=-26536209885000000.0,t=119.60
QSB(t)=-20106562206000000.0,t=119.80
QSB(t)=-12620283371000000.0,t=120.00
График по результатам расчетов программы задачи 2
Рис.3