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

Автор работы: Пользователь скрыл имя, 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 Кб (Скачать файл)

WriteLn(f,p);

p:=edit12.Text;

WriteLn(f,p);

p:=ComboBox1.Text;

WriteLn(f,p);

p:=ComboBox2.Text;

WriteLn(f,p);

p:=ComboBox3.Text;

WriteLn(f,p);

p:=ComboBox4.Text;

WriteLn(f,p);

p:=ComboBox5.Text;

WriteLn(f,p);

p:=ComboBox6.Text;

WriteLn(f,p);

CloseFile(f);

end;

procedure TForm1.N8Click(Sender: TObject);

begin

form2.ShowModal;

end;

procedure TForm1.N9Click(Sender: TObject);

begin

form3.ShowModal;

end;

procedure TForm1.N10Click(Sender: TObject);

begin

form4.ShowModal;

end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);

begin

case key of

'0'..'9': ;

#8: ;

'.', ',': Key := #44;

else

key := #0;

end;

procedure TForm1.Edit10KeyPress(Sender: TObject; var Key: Char);

begin

case key of

'0'..'9': ;

#8: ;

'.', ',': Key := #44;

else

key := #0;

end;

procedure TForm1.Edit9KeyPress(Sender: TObject; var Key: Char);

begin

case key of

'0'..'9': ;

#8: ;

'.', ',': Key := #44;

else

key := #0;

end;

procedure TForm1.Edit8KeyPress(Sender: TObject; var Key: Char);

begin

case key of

'0'..'9': ;

#8: ;

'.', ',': Key := #44;

else

key := #0;

end;

procedure TForm1.Edit7KeyPress(Sender: TObject; var Key: Char);

begin

case key of

'0'..'9': ;

#8: ;

'.', ',': Key := #44;

else

key := #0;

end;

procedure TForm1.Edit5KeyPress(Sender: TObject; var Key: Char);

begin

case key of

'0'..'9': ;

#8: ;

'.', ',': Key := #44;

else

key := #0;

end;

procedure TForm1.Edit4KeyPress(Sender: TObject; var Key: Char);

begin

case key of

'0'..'9': ;

#8: ;

'.', ',': Key := #44;

else

key := #0;

end;

procedure TForm1.Edit6KeyPress(Sender: TObject; var Key: Char);

begin

case key of

'0'..'9': ;

#8: ;

'.', ',': Key := #44;

else

key := #0;

end;

procedure TForm1.Edit3KeyPress(Sender: TObject; var Key: Char);

begin

case key of

'0'..'9': ;

#8: ;

'.', ',': Key := #44;

else

key := #0;

end;

procedure TForm1.Edit12KeyPress(Sender: TObject; var Key: Char);

begin

case key of

'0'..'9': ;

#8: ;

'.', ',': Key := #44;

else

key := #0;

end;

procedure TForm1.Edit11KeyPress(Sender: TObject; var Key: Char);

begin

case key of

'0'..'9': ;

#8: ;

'.', ',': Key := #44;

else

key := #0;

end;

procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);

begin

case key of

'0'..'9': ;

#8: ;

'.', ',': Key := #44;

else

key := #0;

end;

procedure TForm1.ComboBox1KeyPress(Sender: TObject; var Key: Char);

begin

if key <> '' then key:=#0;

end;

procedure TForm1.ComboBox2KeyPress(Sender: TObject; var Key: Char);

begin

if key <> '' then key:=#0;

end;

procedure TForm1.ComboBox3KeyPress(Sender: TObject; var Key: Char);

begin

if key <> '' then key:=#0;

end;

procedure TForm1.ComboBox4KeyPress(Sender: TObject; var Key: Char);

begin

if key <> '' then key:=#0;

end;

procedure TForm1.ComboBox5KeyPress(Sender: TObject; var Key: Char);

begin

if key <> '' then key:=#0;

end;

procedure TForm1.ComboBox6KeyPress(Sender: TObject; var Key: Char);

begin

if key <> '' then key:=#0;

end;

end.

unit Unit2;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, ExtCtrls, Menus;

type

TForm2 = class(TForm)

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Button1: TButton;

Button3: TButton;

Button4: TButton;

Button5: TButton;

Button6: TButton;

Button7: TButton;

ColorBox1: TColorBox;

ColorBox2: TColorBox;

ColorBox3: TColorBox;

ColorBox4: TColorBox;

ColorBox5: TColorBox;

ColorBox6: TColorBox;

Button2: TButton;

Label7: TLabel;

procedure N2Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure FormActivate(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure Button6Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button7Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

implementation

uses Unit1, Unit3;

{$R *.dfm}

procedure TForm2.N2Click(Sender: TObject);

begin

Form2.Label1.Visible:=true;

Form2.Label4.Visible:=true;

Form2.ColorBox1.Visible:=true;

Form2.ColorBox4.Visible:=true;

Form2.Button1.Visible:=true;

Form2.Button4.Visible:=true;

Form2.Label2.Visible:=false;

Form2.Label5.Visible:=false;

Form2.ColorBox2.Visible:=false;

Form2.ColorBox5.Visible:=false;

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:=true;

Form2.Label7.Visible:=false;

end;

procedure TForm2.N3Click(Sender: TObject);

begin

Form2.Label1.Visible:=false;

Form2.Label4.Visible:=false;

Form2.ColorBox1.Visible:=false;

Form2.ColorBox4.Visible:=false;

Form2.Button1.Visible:=false;

Form2.Button4.Visible:=false;

Form2.Label2.Visible:=true;

Form2.Label5.Visible:=true;

Form2.ColorBox2.Visible:=true;

Form2.ColorBox5.Visible:=true;

Form2.Button2.Visible:=true;

Form2.Button5.Visible:=true;

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:=true;

Form2.Label7.Visible:=false;

end;

procedure TForm2.N4Click(Sender: TObject);

begin

Form2.Label1.Visible:=false;

Form2.Label4.Visible:=false;

Form2.ColorBox1.Visible:=false;

Form2.ColorBox4.Visible:=false;

Form2.Button1.Visible:=false;

Form2.Button4.Visible:=false;

Form2.Label2.Visible:=false;

Form2.Label5.Visible:=false;

Form2.ColorBox2.Visible:=false;

Form2.ColorBox5.Visible:=false;

Form2.Button2.Visible:=false;

Form2.Button5.Visible:=false;

Form2.Label3.Visible:=true;

Form2.Label6.Visible:=true;

Form2.ColorBox3.Visible:=true;

Form2.ColorBox6.Visible:=true;

Form2.Button3.Visible:=true;

Form2.Button6.Visible:=true;

Form2.Button7.Visible:=true;

Form2.Label7.Visible:=false;

end;

procedure TForm2.FormActivate(Sender: TObject);

begin

Form2.Label1.Visible:=false;

Form2.Label4.Visible:=false;

Form2.ColorBox1.Visible:=false;

Form2.ColorBox4.Visible:=false;

Form2.Button1.Visible:=false;

Form2.Button4.Visible:=false;

Form2.Label2.Visible:=false;

Form2.Label5.Visible:=false;

Form2.ColorBox2.Visible:=false;

Form2.ColorBox5.Visible:=false;

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

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

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

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

Титульник.doc

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

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