Автор работы: Пользователь скрыл имя, 11 Октября 2011 в 19:36, курсовая работа
В настоящее время необходимость решения инженерных проблем вызвала множество приёмов, методов и подходов, которые постепенно накапливались, сообщались, образуя необходимую технологию преодоления количественных и качественных сложностей. Данные технологии называются: методами проектирования, методами инженерного творчества или системотехникой в инженерной отрасли; в военных и экономических вопросах исследованием операций; в административном и политическом управлении системным подходом или футурологией; в прикладных научным исследованием, имитационным моделированием или методологией экспериментов.
Введение………………………………………………………………………..3
1 Постановка задачи программирования ……………………………………4
1.Исходные данные …………………………………………………………4
2.Определение опорных реакций …………………………………………..4
3.Определение внутренних сил упругости …………...……………………5
1.Первое сечение. …………………………………………………...…….6
2.Второе сечение. …………………………………………………………6
3.Третье сечение. ……………………….…………………………………7
4.Четвертое сечение. ……………………………………………………...7
4.Расчет прокатной балки. ….……………………………………………….8
2.Реализация задачи программирования..…………………………………..9
1.Выбор программного средства…………………………..………………...9
2.Схема алгоритма. ………………...………………………………………...9
3.Окно программы…….…………………………………………………….10
4.Результат работы программы. …………………………………………...10
Заключение. …………………………………………………………………...11
Список литературы…………………...……………………………………….12
Приложение А Код программы……………….………………………...........13
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
sig,q,p,a1,a2,a3,ra,rb,q1,q2,
fl:real;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
q:= strtofloat(edit1.text);
p:= strtofloat(edit2.text);
a1:= strtofloat(edit3.text);
a2:= strtofloat(edit4.text);
a3:= strtofloat(edit5.text);
ra:= (q*a2*(a2/2+a3)+p*(a3+a2+a1))/
rb:=(p*a1+q*a2*(a2/2+a1)+36)/(
q1:=ra;
m1:=ra*a1;
q2:=ra-p;
m2:=ra*(a1+a1)-p*a1;
q3:=q*a2-rb;
m3:=rb*(a2+a3)-q*((a2*a2)/2);
q4:=-rb;
m4:=rb*a3;
mmax:=0;
if mmax<m1 then mmax:=m1;
if mmax<m2 then mmax:=m2;
if mmax<m3 then mmax:=m3;
if mmax<m4 then mmax:=m4;
wtr :=mmax*100/(1.12*21);
sig:=mmax/( 1.12*254);
fl:=(0.9*100*mmax*(a1+a1+a2+
Edit6.Text:=floattostr(ra);
Edit7.Text:=floattostr(rb);
Edit8.Text:=floattostr(q1);
Edit9.Text:=floattostr(m1);
Edit10.Text:=floattostr(q2);
Edit11.Text:=floattostr(m2);
Edit12.Text:=floattostr(q3);
Edit13.Text:=floattostr(m3);
Edit14.Text:=floattostr(q4);
Edit15.Text:=floattostr(m4);
Edit16.Text:=floattostr(mmax);
Edit17.Text:=floattostr(wtr);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;
end.
Информация о работе Системотехнические основы инженерного дела