Автор работы: Пользователь скрыл имя, 25 Декабря 2010 в 09:54, курсовая работа
Цель данной работы – выполнить расчет стержневой системы методами сопротивления материалов на растяжение-сжатие (рассмотреть случаи статически определяемой системы).
Для реализации поставленной цели в работе необходимо решить следующие задачи:
1.разработать сценарий работы приложения;
2.разработать макеты экранных форм;
3.разработать приложение, реализующее следующие функции:
•ввод данных;
•расчет и вывод результатов;
•построение эпюр;
•вывод справочной информации о приложении;
•возможность изменения интерфейса рабочей области.
ВВЕДЕНИЕ 5
1 ПОНЯТИЕ ДОХОДЫ НАСЕЛЕНИЯ, ИХ КЛАССИФИКАЦИЯ. ВИДЫ
ДОХОДОВ 6
2 ДОХОДЫ НАСЕЛЕНИЯ. ПОКАЗАТЕЛИ ДИФФЕРЕНЦИАЦИИ ДОХОДОВ НАСЕЛЕНИЯ 8
3 АНАЛИЗ ПОКАЗАТЕЛЕЙ ДИФФЕРЕНЦИАЦИИ ДОХОДОВ. КРИВАЯ ЛОРЕНЦА 13
ЗАКЛЮЧЕНИЕ 17
БИБЛИОГРАФИЧЕСКИЙ СПИСОК 18
else
MessageDlg('Не заданна
длина первого участка',mtInformation,[mbOK],
end;
procedure TForm1.N2Click(Sender: TObject);
begin
image2.Canvas.Brush.Color:=
image2.Canvas.Brush.Style:=
image2.Canvas.Rectangle(0,0,
Form1.Memo1.Clear;
image1.Canvas.Brush.Color:=
image1.Canvas.Brush.Style:=
image1.Canvas.Rectangle(0,0,
a:=1;
b:=1;
Edit2.Visible:=false;
Edit3.Visible:=false;
Edit5.Visible:=false;
Edit6.Visible:=false;
Edit8.Visible:=false;
Edit9.Visible:=false;
Edit11.Visible:=false;
Edit12.Visible:=false;
Combobox4.Visible:=false;
Combobox5.Visible:=false;
Edit1.Text:='';
Edit2.Text:='1';
Edit3.Text:='1';
Edit4.Text:='';
Edit5.Text:='0';
Edit6.Text:='1';
Edit7.Text:='';
Edit8.Text:='1';
Edit9.Text:='1';
Edit10.Text:='';
Edit11.Text:='1';
Edit12.Text:='1';
ComboBox1.Text:='1';
ComboBox2.Text:='1';
ComboBox3.Text:='Влево';
ComboBox4.Text:='Влево';
ComboBox5.Text:='Влево';
ComboBox6.Text:='м';
Form1.Memo1.Clear;
if ComboBox3.Text='Влево' then s1:=-1
else s1:=1;
if ComboBox4.Text='Влево' then s2:=-1
else s2:=1;
if ComboBox5.Text='Влево' then s3:=-1
else s3:=1;
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;
image2.Canvas.Brush.Color:=
image2.Canvas.Brush.Style:=
image2.Canvas.Rectangle(0,0,
end;
procedure TForm1.N5Click(Sender: TObject);
begin
close;
end;
procedure TForm1.N3Click(Sender: TObject);
var
f:TextFile;
p:string;
begin
if OpenDialog1.Execute then
begin
N2.Click;
AssignFile(f,OpenDialog1.
Reset(f);
ReadLn(f,p);
edit1.Text:=p;
ReadLn(f,p);
edit2.Text:=p;
ReadLn(f,p);
edit3.Text:=p;
ReadLn(f,p);
edit4.Text:=p;
ReadLn(f,p);
edit5.Text:=p;
ReadLn(f,p);
edit6.Text:=p;
ReadLn(f,p);
edit7.Text:=p;
ReadLn(f,p);
edit8.Text:=p;
ReadLn(f,p);
edit9.Text:=p;
ReadLn(f,p);
edit10.Text:=p;
ReadLn(f,p);
edit11.Text:=p;
ReadLn(f,p);
edit12.Text:=p;
ReadLn(f,p);
ComboBox1.Text:=p;
ReadLn(f,p);
ComboBox2.Text:=p;
ReadLn(f,p);
ComboBox3.Text:=p;
ReadLn(f,p);
ComboBox4.Text:=p;
ReadLn(f,p);
ComboBox5.Text:=p;
ReadLn(f,p);
ComboBox6.Text:=p;
if combobox1.Text='1' then begin
a:=1;
Edit2.Visible:=false;
Edit3.Visible:=false;
Edit5.Visible:=false;
Edit6.Visible:=false;
Form1.Label9.Visible:=false;
Form1.Label10.Visible:=false;
Edit2.Text:='1';
Edit3.Text:='1';
Edit5.Text:='0';
Edit6.Text:='1';
end;
if combobox1.Text='2' then begin
a:=2;
Edit2.Visible:=true;
Edit3.Visible:=false;
Edit5.Visible:=true;
Edit6.Visible:=false;
Form1.Label9.Visible:=true;
Form1.Label10.Visible:=false;
Edit3.Text:='1';
Edit6.Text:='0';
end;
if combobox1.Text='3' then begin
a:=3;
Edit2.Visible:=true;
Edit3.Visible:=true;
Edit5.Visible:=true;
Edit6.Visible:=true;
Form1.Label9.Visible:=true;
Form1.Label10.Visible:=true;
end;
if combobox2.Text='1' then begin
b:=1;
Edit8.Visible:=false;
Edit9.Visible:=false;
Edit11.Visible:=false;
Edit12.Visible:=false;
ComboBox3.Visible:=true;
ComboBox4.Visible:=false;
ComboBox5.Visible:=false;
Combobox4.text:='';
Combobox5.text:='';
Edit8.Text:='1';
Edit9.Text:='1';
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;
Combobox5.text:='';
Edit9.Text:='1';
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;
end;
if ComboBox3.Text='Влево' then s1:=-1
else s1:=1;
if ComboBox4.Text='Влево' then s2:=-1
else s2:=1;
if ComboBox5.Text='Влево' then s3:=-1
else s3:=1;
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;
CloseFile(f);
end;
image2.Canvas.Brush.Color:=
image2.Canvas.Brush.Style:=
image2.Canvas.Rectangle(0,0,
Form1.Memo1.Clear;
Button1.Click;
end;
procedure TForm1.N4Click(Sender: TObject);
var
f:TextFile;
p:string;
begin
if SaveDialog1.Execute then
begin
if ExtractFileExt(SaveDialog1.
AssignFile(f,SaveDialog1.
else
AssignFile(f,SaveDialog1.
Rewrite(f);
p:=edit1.Text;
WriteLn(f,p);
p:=edit2.Text;
WriteLn(f,p);
p:=edit3.Text;
WriteLn(f,p);
p:=edit4.Text;
WriteLn(f,p);
p:=edit5.Text;
WriteLn(f,p);
p:=edit6.Text;
WriteLn(f,p);
p:=edit7.Text;
WriteLn(f,p);
p:=edit8.Text;
WriteLn(f,p);
p:=edit9.Text;
WriteLn(f,p);
p:=edit10.Text;
WriteLn(f,p);
p:=edit11.Text;