Начальное значение 0.

1. 

   Нет

   Если t меньше 120,

то переходим к п. 11,

Иначе переходим к п. 14.

		Да

1.  

   Вычисляем значение Θ св max

для заданного t.

1. Увеличение t на Δ t.

1. Печать очередного

значения Θ св max.

1. Конец.

Рис. 2.

Текст программы определения момента инерции относительно оси х и относительно оси у

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

15.8

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
Выводы и предложения

В процессе разработки расчетно-графической работы изучил технологии разработки алгоритмов. прирешении задач: определения момента инерции относительно оси х и относительно оси, определения табуляции бортовой качки за 2 минутызакрепил знания по технологии разработки и отладки программ на языке высокого уровня Borland Pascal 7.0. А также приобрел опыт применения вычислительной техники для расчета прикладных задач.

Опыт разработки программ на языке высокого уровня Borland Pascal 7.0 и оформления расчетно-графической работы с помощью MS Word будет полезен при решении подобных задач по другим предметам, а также при написании курсовых, бакалаврских и дипломных работ.

20.1.2012 г. курсант 413 класса ___________

---

Дата добавления: 2015-11-04