Автор работы: Пользователь скрыл имя, 25 Декабря 2010 в 09:54, курсовая работа
Цель данной работы – выполнить расчет стержневой системы методами сопротивления материалов на растяжение-сжатие (рассмотреть случаи статически определяемой системы).
Для реализации поставленной цели в работе необходимо решить следующие задачи:
1.разработать сценарий работы приложения;
2.разработать макеты экранных форм;
3.разработать приложение, реализующее следующие функции:
•ввод данных;
•расчет и вывод результатов;
•построение эпюр;
•вывод справочной информации о приложении;
•возможность изменения интерфейса рабочей области.
ВВЕДЕНИЕ 5
1 ПОНЯТИЕ ДОХОДЫ НАСЕЛЕНИЯ, ИХ КЛАССИФИКАЦИЯ. ВИДЫ
ДОХОДОВ 6
2 ДОХОДЫ НАСЕЛЕНИЯ. ПОКАЗАТЕЛИ ДИФФЕРЕНЦИАЦИИ ДОХОДОВ НАСЕЛЕНИЯ 8
3 АНАЛИЗ ПОКАЗАТЕЛЕЙ ДИФФЕРЕНЦИАЦИИ ДОХОДОВ. КРИВАЯ ЛОРЕНЦА 13
ЗАКЛЮЧЕНИЕ 17
БИБЛИОГРАФИЧЕСКИЙ СПИСОК 18
Edit8.Visible:=false;
Edit9.Visible:=false;
Edit11.Visible:=false;
Edit12.Visible:=false;
ComboBox3.Visible:=true;
ComboBox4.Visible:=false;
ComboBox5.Visible:=false;
Edit7.Text:='';
Edit8.Text:='1';
Edit9.Text:='1';
Edit10.Text:='';
Edit11.Text:='1';
Edit12.Text:='1';
end;
if combobox2.Text='2' then begin
b:=2;
Edit8.Visible:=true;
Edit9.Visible:=false;
Edit11.Visible:=true;
Edit12.Visible:=false;
ComboBox3.Visible:=true;
ComboBox4.Visible:=true;
ComboBox5.Visible:=false;
Edit7.Text:='';
Edit8.Text:='';
Edit9.Text:='1';
Edit10.Text:='';
Edit11.Text:='';
Edit12.Text:='1';
end;
if combobox2.Text='3' then begin
b:=3;
Edit8.Visible:=true;
Edit9.Visible:=true;
Edit11.Visible:=true;
Edit12.Visible:=true;
ComboBox3.Visible:=true;
ComboBox4.Visible:=true;
ComboBox5.Visible:=true;
Edit7.Text:='';
Edit8.Text:='';
Edit9.Text:='';
Edit10.Text:='';
Edit11.Text:='';
Edit12.Text:='';
end;
end;
procedure TForm1.ComboBox3Change(Sender: TObject);
begin
if ComboBox3.Text='Влево' then s1:=-1
else s1:=1;
end;
procedure TForm1.ComboBox4Change(Sender: TObject);
begin
if ComboBox4.Text='Влево' then s2:=-1
else s2:=1;
end;
procedure TForm1.ComboBox5Change(Sender: TObject);
begin
if ComboBox5.Text='Влево' then s3:=-1
else s3:=1;
end;
procedure TForm1.ComboBox6Change(Sender: TObject);
begin
m:=0.001;
if ComboBox6.Text='м' then m:=0.001;
if ComboBox6.Text='см' then m:=0.0000001;
if ComboBox6.Text='мм' then
m:=0.000000001;
if ComboBox6.Text='м' then begin
Form1.Label7.Caption:='метрах'
Form1.Label16.Left:=672;
end;
if ComboBox6.Text='см' then begin
Form1.Label7.Caption:='
Form1.Label16.Left:=704;
end;
if ComboBox6.Text='мм' then begin
Form1.Label7.Caption:='
Form1.Label16.Left:=704;
end;
end;
procedure ed1;
var
l,gor:real;
begin
l:=strtoint(form1.Edit1.Text);
gor:=(440/l);
d12:=(gor*l);
end;
procedure ed2;
var
d1,d2,gor,l,l1,l2,l4,l5:real;
begin
l1:=strtoint(form1.Edit1.Text)
l2:=strtoint(form1.Edit2.Text)
l4:=strtoint(form1.Edit4.Text)
l5:=strtoint(form1.Edit5.Text)
if l4>l5 then begin
d1:=50;
d2:=(50/l4)*l5;
end;
if l4<l5 then begin
d1:=(50/l5)*l4;
d2:=50;
end;
l:=l1+l2;
gor:=(440/l);
d12:=(gor*l1);
d22:=(gor*l);
r11:=(55-d1/2);
r12:=(55+d1/2);
r21:=(55-d2/2);
r22:=(55+d2/2)
end;
procedure ed3;
var
d1,d2,d3,l,l1,l2,l3,l4,l5,l6,
begin
l1:=strtoint(form1.Edit1.Text)
l2:=strtoint(form1.Edit2.Text)
l3:=strtoint(form1.Edit3.Text)
l4:=strtoint(form1.Edit4.Text)
l5:=strtoint(form1.Edit5.Text)
l6:=strtoint(form1.Edit6.Text)
if (l4>l5) and (l4>l6) then begin
d1:=50;
d2:=((50/l4)*l5);
d3:=((50/l4)*l6);
end;
if (l4<l5) and (l5>l6) then begin
d1:=((50/l5)*l4);
d2:=50;
d3:=((50/l5)*l6);
end;
if (l4<l6) and (l5<l6) then begin
d1:=((50/l6)*l4);
d2:=((50/l6)*l5);
d3:=50;
end;
l:=l1+l2+l3;
gor:=(440/l);
d12:=(gor*l1);
d22:=(gor*l2)+d12;
d32:=(gor*l);
r11:=(55-d1/2);
r12:=(55+d1/2);
r21:=(55-d2/2);
r22:=(55+d2/2);
r31:=(55-d3/2);
r32:=(55+d3/2);
end;
procedure si1;
var
l,l1,l2,l3,l7:real;
begin
l1:=(strtofloat(Form1.Edit1.
l7:=(strtofloat(Form1.Edit7.
if a=1 then l:=l1;
if a=2 then begin
l2:=(strtofloat(Form1.Edit2.
l:=l1+l2;
end;
if a=3 then begin
l2:=(strtofloat(Form1.Edit2.
l3:=(strtofloat(Form1.Edit3.
l:=l1+l2+l3;
end;
p1:=((440/l)*l7);
f1:=strtofloat(Form1.Edit10.
sil7:=abs(f1);
sil7:=(70/sil7)*f1;
end;
procedure si2;
var
l,l1,l2,l3,l7,l8,l10,l11,gor:
begin
l1:=(strtofloat(Form1.Edit1.
l7:=(strtofloat(Form1.Edit7.
l8:=(strtofloat(Form1.Edit8.
l10:=(strtofloat(Form1.Edit10.
l11:=(strtofloat(Form1.Edit11.
if l10>l11 then begin
z1:=70;
z2:=((70/l10)*l11);
end;
if l10=l11 then begin
z1:=70;
z2:=70;
end;
if l10<l11 then begin
z1:=((70/l11)*l10);
z2:=70;
end;
if a=1 then l:=l1;
if a=2 then begin
l2:=(strtofloat(Form1.Edit2.
l:=l1+l2;
end;
if a=3 then begin
l2:=(strtofloat(Form1.Edit2.
l3:=(strtofloat(Form1.Edit3.
l:=l1+l2+l3;
end;
gor:=(440/l);
p1:=(gor*l7);
p2:=(gor*l8);
end;
procedure si3;
var
mas:array[1..3] of real;
per,l,l1,l2,l3,l7,l8,l9,l10,
i,ii:integer;
begin
l1:=(strtofloat(Form1.Edit1.
l7:=(strtofloat(Form1.Edit7.
l8:=(strtofloat(Form1.Edit8.
l9:=(strtofloat(Form1.Edit9.
l10:=(strtofloat(Form1.Edit10.
l11:=(strtofloat(Form1.Edit11.
l12:=(strtofloat(Form1.Edit12.
mas[1]:=l10;
mas[2]:=l11;
mas[3]:=l12;
for ii:=1 to 3 do
for i:=1 to 2 do
if mas[i]<>0 then
if mas[i]>mas[i+1] then
begin
per:=mas[i];
mas[i]:=mas[i+1];
mas[i+1]:=per;
end;
z1:=((70/mas[3])*l10);
z2:=((70/mas[3])*l11);
z3:=((70/mas[3])*l12);
if a=1 then l:=l1;
if a=2 then begin
l2:=(strtofloat(Form1.Edit2.
l:=l1+l2;
end;
if a=3 then begin
l2:=(strtofloat(Form1.Edit2.
l3:=(strtofloat(Form1.Edit3.
l:=l1+l2+l3;
end;
gor:=(440/l);
p1:=(gor*l7);
p2:=(gor*l8);
p3:=(gor*l9);
end;
procedure obr2;
var
sil:array[1..2] of real;
i,ii:integer;
per:real;
begin
if b=2 then begin
si2;
i1:=469;
if p1>p2 then begin
i2:=29+p1;
i3:=29+p2;
end;
if p1<p2 then begin
i2:=29+p2;
i3:=29+p1;
end;
if p1=p2 then begin