Расчёт статически определяемых стержневых систем неравного сечения на растяжение-сжатие

Автор работы: Пользователь скрыл имя, 25 Декабря 2010 в 09:54, курсовая работа

Описание работы

Цель данной работы – выполнить расчет стержневой системы методами сопротивления материалов на растяжение-сжатие (рассмотреть случаи статически определяемой системы).

Для реализации поставленной цели в работе необходимо решить следующие задачи:

1.разработать сценарий работы приложения;
2.разработать макеты экранных форм;
3.разработать приложение, реализующее следующие функции:

•ввод данных;
•расчет и вывод результатов;
•построение эпюр;
•вывод справочной информации о приложении;
•возможность изменения интерфейса рабочей области.

Содержание работы

ВВЕДЕНИЕ 5
1 ПОНЯТИЕ ДОХОДЫ НАСЕЛЕНИЯ, ИХ КЛАССИФИКАЦИЯ. ВИДЫ
ДОХОДОВ 6
2 ДОХОДЫ НАСЕЛЕНИЯ. ПОКАЗАТЕЛИ ДИФФЕРЕНЦИАЦИИ ДОХОДОВ НАСЕЛЕНИЯ 8
3 АНАЛИЗ ПОКАЗАТЕЛЕЙ ДИФФЕРЕНЦИАЦИИ ДОХОДОВ. КРИВАЯ ЛОРЕНЦА 13
ЗАКЛЮЧЕНИЕ 17
БИБЛИОГРАФИЧЕСКИЙ СПИСОК 18

Скачать архив (437.95 Кб) Сколько стоит заказать работу?

Файлы: 15 файлов

1 Выбор языка программирования.doc

— 82.00 Кб (Просмотреть файл, Скачать файл)

2 анализ и уточнение требований к ПП.doc

— 77.50 Кб (Просмотреть файл, Скачать файл)

3 разработка основных методов и алгоритмов программного продукта.doc

— 72.00 Кб (Просмотреть файл, Скачать файл)

4.doc

— 94.00 Кб (Просмотреть файл, Скачать файл)

5 разработка Ф c.doc

— 89.00 Кб (Просмотреть файл, Скачать файл)

6 Проектирование интерфейса пользователя.doc

— 124.50 Кб (Просмотреть файл, Скачать файл)

6 Проектирование интерфейса пользователя в2.doc

— 132.50 Кб (Просмотреть файл, Скачать файл)

7 разработка тестов.doc

— 152.50 Кб (Просмотреть файл, Скачать файл)

Библиографический список+.doc

— 57.50 Кб (Просмотреть файл, Скачать файл)

введение.doc

— 70.00 Кб (Просмотреть файл, Скачать файл)

заключение.doc

— 65.50 Кб (Просмотреть файл, Скачать файл)

ПРИЛОЖЕНЕ A.doc

— 267.50 Кб (Скачать файл)

Form2.Button2.Visible:=false;

Form2.Button5.Visible:=false;

Form2.Label3.Visible:=false;

Form2.Label6.Visible:=false;

Form2.ColorBox3.Visible:=false;

Form2.ColorBox6.Visible:=false;

Form2.Button3.Visible:=false;

Form2.Button6.Visible:=false;

Form2.Button7.Visible:=false;

Form2.Canvas.MoveTo(0,0);

Form2.Canvas.LineTo(260,0);

Form2.Label7.Visible:=true;

Form2.ColorBox1.Selected:=Form1.Color;

Form2.ColorBox2.Selected:=Form1.Edit1.Color;

Form2.ColorBox3.Selected:=Form1.Memo1.Color;

Form2.ColorBox4.Selected:=Form1.Label1.Font.Color;

Form2.ColorBox5.Selected:=Form1.Edit1.Font.Color;

Form2.ColorBox6.Selected:=Form1.Memo1.Font.Color;

end;

procedure TForm2.Button4Click(Sender: TObject);

begin

Form2.ColorBox1.Selected:=clBtnFace;

Form2.ColorBox4.Selected:=clBlack;

Button1.Click;

end;

procedure TForm2.Button5Click(Sender: TObject);

begin

Form2.ColorBox2.Selected:=clWhite;

Form2.ColorBox5.Selected:=clBlack;

Button2.Click;

end;

procedure TForm2.Button6Click(Sender: TObject);

begin

Form2.ColorBox3.Selected:=clWhite;

Form2.ColorBox6.Selected:=clBlack;

Button3.Click;

end;

procedure TForm2.Button1Click(Sender: TObject);

begin

if Form2.ColorBox1.Selected = Form2.ColorBox4.Selected then

MessageDlg('Öâåò ôîíà è òåêñòà îäèíàêîâû è áóäóò ñëèâàòüñÿ. Ñäåëàéòå äðóãîé âûáîð',mtError,[mbOK],0)

else

begin

Form1.Color:=Form2.ColorBox1.Selected;

Form1.Label1.Color:=Form2.ColorBox1.Selected;

Form1.Label2.Color:=Form2.ColorBox1.Selected;

Form1.Label3.Color:=Form2.ColorBox1.Selected;

Form1.Label4.Color:=Form2.ColorBox1.Selected;

Form1.Label5.Color:=Form2.ColorBox1.Selected;

Form1.Label8.Color:=Form2.ColorBox1.Selected;

Form1.Label9.Color:=Form2.ColorBox1.Selected;

Form1.Label10.Color:=Form2.ColorBox1.Selected;

Form1.Label11.Color:=Form2.ColorBox1.Selected;

Form1.Label12.Color:=Form2.ColorBox1.Selected;

Form1.Label13.Color:=Form2.ColorBox1.Selected;

Form1.Label14.Color:=Form2.ColorBox1.Selected;

Form1.Label15.Color:=Form2.ColorBox1.Selected;

Form1.Label18.Color:=Form2.ColorBox1.Selected;

Form1.Label19.Color:=Form2.ColorBox1.Selected;

Form2.Color:=Form2.ColorBox1.Selected;

Form2.Label1.Color:=Form2.ColorBox1.Selected;

Form2.Label2.Color:=Form2.ColorBox1.Selected;

Form2.Label3.Color:=Form2.ColorBox1.Selected;

Form2.Label4.Color:=Form2.ColorBox1.Selected;

Form2.Label5.Color:=Form2.ColorBox1.Selected;

Form2.Label6.Color:=Form2.ColorBox1.Selected;

Form2.Label7.Color:=Form2.ColorBox1.Selected;

Form3.Color:=Form2.ColorBox1.Selected;

Form1.Label1.Font.Color:=Form2.ColorBox4.Selected;

Form1.Label2.Font.Color:=Form2.ColorBox4.Selected;

Form1.Label3.Font.Color:=Form2.ColorBox4.Selected;

Form1.Label4.Font.Color:=Form2.ColorBox4.Selected;

Form1.Label5.Font.Color:=Form2.ColorBox4.Selected;

Form1.Label8.Font.Color:=Form2.ColorBox4.Selected;

Form1.Label9.Font.Color:=Form2.ColorBox4.Selected;

Form1.Label10.Font.Color:=Form2.ColorBox4.Selected;

Form1.Label11.Font.Color:=Form2.ColorBox4.Selected;

Form1.Label12.Font.Color:=Form2.ColorBox4.Selected;

Form1.Label13.Font.Color:=Form2.ColorBox4.Selected;

Form1.Label14.Font.Color:=Form2.ColorBox4.Selected;

Form1.Label15.Font.Color:=Form2.ColorBox4.Selected;

Form1.Label18.Font.Color:=Form2.ColorBox4.Selected;

Form1.Label19.Font.Color:=Form2.ColorBox4.Selected;

Form1.Button1.Font.Color:=Form2.ColorBox4.Selected;

Form2.Label1.Font.Color:=Form2.ColorBox4.Selected;

Form2.Label2.Font.Color:=Form2.ColorBox4.Selected;

Form2.Label3.Font.Color:=Form2.ColorBox4.Selected;

Form2.Label4.Font.Color:=Form2.ColorBox4.Selected;

Form2.Label5.Font.Color:=Form2.ColorBox4.Selected;

Form2.Label6.Font.Color:=Form2.ColorBox4.Selected;

Form2.Label7.Font.Color:=Form2.ColorBox4.Selected;

Form2.Button1.Font.Color:=Form2.ColorBox4.Selected;

Form2.Button4.Font.Color:=Form2.ColorBox4.Selected;

Form3.Color:=Form2.ColorBox1.Selected;

end;

procedure TForm2.Button2Click(Sender: TObject);

begin

if Form2.ColorBox2.Selected = Form2.ColorBox5.Selected then

MessageDlg('Öâåòà ïîëåé è òåêñòà îäèíàêîâû è áóäóò ñëèâàòüñÿ. Ñäåëàéòå äðóãîé âûáîð',mtError,[mbOK],0)

else

begin

Form1.Edit1.Color:=Form2.ColorBox2.Selected;

Form1.Edit2.Color:=Form2.ColorBox2.Selected;

Form1.Edit3.Color:=Form2.ColorBox2.Selected;

Form1.Edit4.Color:=Form2.ColorBox2.Selected;

Form1.Edit5.Color:=Form2.ColorBox2.Selected;

Form1.Edit6.Color:=Form2.ColorBox2.Selected;

Form1.Edit7.Color:=Form2.ColorBox2.Selected;

Form1.Edit8.Color:=Form2.ColorBox2.Selected;

Form1.Edit9.Color:=Form2.ColorBox2.Selected;

Form1.Edit10.Color:=Form2.ColorBox2.Selected;

Form1.Edit11.Color:=Form2.ColorBox2.Selected;

Form1.Edit12.Color:=Form2.ColorBox2.Selected;

Form1.Edit1.Font.Color:=Form2.ColorBox5.Selected;

Form1.Edit2.Font.Color:=Form2.ColorBox5.Selected;

Form1.Edit3.Font.Color:=Form2.ColorBox5.Selected;

Form1.Edit4.Font.Color:=Form2.ColorBox5.Selected;

Form1.Edit5.Font.Color:=Form2.ColorBox5.Selected;

Form1.Edit6.Font.Color:=Form2.ColorBox5.Selected;

Form1.Edit7.Font.Color:=Form2.ColorBox5.Selected;

Form1.Edit8.Font.Color:=Form2.ColorBox5.Selected;

Form1.Edit9.Font.Color:=Form2.ColorBox5.Selected;

Form1.Edit10.Font.Color:=Form2.ColorBox5.Selected;

Form1.Edit11.Font.Color:=Form2.ColorBox5.Selected;

Form1.Edit12.Font.Color:=Form2.ColorBox5.Selected;

Form1.ComboBox1.Color:=Form2.ColorBox2.Selected;

Form1.ComboBox2.Color:=Form2.ColorBox2.Selected;

Form1.ComboBox3.Color:=Form2.ColorBox2.Selected;

Form1.ComboBox4.Color:=Form2.ColorBox2.Selected;

Form1.ComboBox5.Color:=Form2.ColorBox2.Selected;

Form1.ComboBox6.Color:=Form2.ColorBox2.Selected;

Form1.ComboBox1.Font.Color:=Form2.ColorBox5.Selected;

Form1.ComboBox2.Font.Color:=Form2.ColorBox5.Selected;

Form1.ComboBox3.Font.Color:=Form2.ColorBox5.Selected;

Form1.ComboBox4.Font.Color:=Form2.ColorBox5.Selected;

Form1.ComboBox5.Font.Color:=Form2.ColorBox5.Selected;

Form1.ComboBox6.Font.Color:=Form2.ColorBox5.Selected;

end;

procedure TForm2.Button3Click(Sender: TObject);

begin

if Form2.ColorBox3.Selected = Form2.ColorBox6.Selected then

MessageDlg('Öâåòà ïîëåÿ è òåêñòà îäèíàêîâû è áóäóò ñëèâàòüñÿ. Ñäåëàéòå äðóãîé âûáîð',mtError,[mbOK],0)

else

begin

Form1.Memo1.Color:=Form2.ColorBox3.Selected;

Form1.Memo1.Font.Color:= Form2.ColorBox6.Selected

end

end;

procedure TForm2.Button7Click(Sender: TObject);

begin

ColorBox1.Selected:=clBtnFace;

ColorBox2.Selected:=clWhite;

ColorBox3.Selected:=clWhite;

ColorBox4.Selected:=clBlack;

ColorBox5.Selected:=clBlack;

ColorBox6.Selected:=clBlack;

Form1.Color:=clBtnFace;

Form1.Label1.Color:=clBtnFace;

Form1.Label2.Color:=clBtnFace;

Form1.Label3.Color:=clBtnFace;

Form1.Label4.Color:=clBtnFace;

Form1.Label5.Color:=clBtnFace;

Form1.Label8.Color:=clBtnFace;

Form1.Label9.Color:=clBtnFace;

Form1.Label10.Color:=clBtnFace;

Form1.Label11.Color:=clBtnFace;

Form1.Label12.Color:=clBtnFace;

Form1.Label13.Color:=clBtnFace;

Form1.Label14.Color:=clBtnFace;

Form1.Label15.Color:=clBtnFace;

Form1.Label18.Color:=clBtnFace;

Form1.Label19.Color:=clBtnFace;

Form1.Label1.Font.Color:=clBlack;

Form1.Label2.Font.Color:=clBlack;

Form1.Label3.Font.Color:=clBlack;

Form1.Label4.Font.Color:=clBlack;

Form1.Label5.Font.Color:=clBlack;

Form1.Label8.Font.Color:=clBlack;

Form1.Label9.Font.Color:=clBlack;

Form1.Label10.Font.Color:=clBlack;

Form1.Label11.Font.Color:=clBlack;

Form1.Label12.Font.Color:=clBlack;

Form1.Label13.Font.Color:=clBlack;

Form1.Label14.Font.Color:=clBlack;

Form1.Label15.Font.Color:=clBlack;

Form1.Label18.Font.Color:=clBlack;

Form1.Label19.Font.Color:=clBlack;

Form1.Edit1.Color:=clWhite;

Form1.Edit2.Color:=clWhite;

Form1.Edit3.Color:=clWhite;

Form1.Edit4.Color:=clWhite;

Form1.Edit5.Color:=clWhite;

Form1.Edit6.Color:=clWhite;

Form1.Edit7.Color:=clWhite;

Form1.Edit8.Color:=clWhite;

Form1.Edit9.Color:=clWhite;

Form1.Edit10.Color:=clWhite;

Form1.Edit11.Color:=clWhite;

Form1.Edit12.Color:=clWhite;

Form1.Edit1.Font.Color:=clBlack;

Form1.Edit2.Font.Color:=clBlack;

Form1.Edit3.Font.Color:=clBlack;

Form1.Edit4.Font.Color:=clBlack;

Form1.Edit5.Font.Color:=clBlack;

Form1.Edit6.Font.Color:=clBlack;

Form1.Edit7.Font.Color:=clBlack;

Form1.Edit8.Font.Color:=clBlack;

Form1.Edit9.Font.Color:=clBlack;

Form1.Edit10.Font.Color:=clBlack;

Form1.Edit11.Font.Color:=clBlack;

Form1.Edit12.Font.Color:=clBlack;

Form1.ComboBox1.Color:=clWhite;

Form1.ComboBox2.Color:=clWhite;

Form1.ComboBox3.Color:=clWhite;

Form1.ComboBox4.Color:=clWhite;

Form1.ComboBox5.Color:=clWhite;

Form1.ComboBox6.Color:=clWhite;

Form1.ComboBox1.Font.Color:=clBlack;

Form1.ComboBox2.Font.Color:=clBlack;

Form1.ComboBox3.Font.Color:=clBlack;

Form1.ComboBox4.Font.Color:=clBlack;

Form1.ComboBox5.Font.Color:=clBlack;

Form1.ComboBox6.Font.Color:=clBlack;

Form1.Button1.Font.Color:=clBlack;

Form1.Memo1.Color:=clWhite;

Form1.Memo1.Font.Color:=clBlack;

Form2.Color:=clBtnFace;

Form2.Label1.Color:=clBtnFace;

Form2.Label2.Color:=clBtnFace;

Form2.Label3.Color:=clBtnFace;

Form2.Label4.Color:=clBtnFace;

Form2.Label5.Color:=clBtnFace;

Form2.Label6.Color:=clBtnFace;

Form2.Label7.Color:=clBtnFace;

Form2.Label1.Font.Color:=clBlack;

Form2.Label2.Font.Color:=clBlack;

Form2.Label3.Font.Color:=clBlack;

Form2.Label4.Font.Color:=clBlack;

Form2.Label5.Font.Color:=clBlack;

Form2.Label6.Font.Color:=clBlack;

Form2.Label7.Font.Color:=clBlack;

Form2.Button1.Font.Color:=clBlack;

Form2.Button2.Font.Color:=clBlack;

Form2.Button3.Font.Color:=clBlack;

Form2.Button4.Font.Color:=clBlack;

Form2.Button5.Font.Color:=clBlack;

Form2.Button6.Font.Color:=clBlack;

Form2.Button7.Font.Color:=clBlack;

ПРИЛОЖЕНЕ Б.doc

— 137.50 Кб (Просмотреть файл, Скачать файл)

содержание.doc

— 158.50 Кб (Просмотреть файл, Скачать файл)

Титульник.doc

— 130.00 Кб (Просмотреть файл, Скачать файл)

Информация о работе Расчёт статически определяемых стержневых систем неравного сечения на растяжение-сжатие