Автор работы: Пользователь скрыл имя, 08 Апреля 2011 в 09:11, дипломная работа
Транспортная задача является классической задачей исследования операций. Множество задач распределения ресурсов сводится именно к этой задаче. Распределительные задачи связаны с распределением ресурсов по работам, которые необходимо выполнить. Задачи этого класса возникают тогда, когда имеющихся в наличии ресурсов не хватает для выполнения каждой работы наиболее эффективным образом. Поэтому целью решения задачи, является отыскания такого распределения ресурсов по работам, при котором либо минимизируются общие затраты, связанные с выполнением работ, либо максимизируется получаемый в результате общий доход
Введение 4
1 Исследовательская часть 5
1.1 Описание и анализ предметной области 5
1.2 Обзор используемых элементов языка и среды программирования 11
2 Технологическая часть 16
2.1 Постановка задачи 16
2.2 Реализация модели математическим методом 17
2.3 Выбор архитектуры приложения 28
2.4 Структурные и функциональные схемы 29
2.5 Проектирование интерфейса пользователя 30
3 Специальная часть 32
3.1 Описание разрабатываемых процедур и функций 32
3.2 Таблица идентификаторов 34
3.3 Выбор стратегии тестирования и разработка тестов 35
4 Мероприятия по охране труда и технике безопасности 39
4.1 Освещение 40
4.2 Микроклимат 40
4.3 Эргономичность 42
4.4 Техника безопасности 47
5 Экономическая часть 49
5.1 Расчет стоимости разработки 49
5.2 Расчет экономического эффекта от внедрения программного обеспечения 58
Заключение 60
Список используемых источников 62
Приложение
Exit;
end;
CanSelect := True;
sgTable.Cells[CCol, CRow] := FloatToStr(F);
CCol := ACol;
CRow := ARow;
end;
end;
procedure
TfMain.sgTableSetEditText(
const Value: string);
begin
DataChanged := True;
end;
end.
TR_AboutForm.pas
unit
TR_AboutForm;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TfAbout = class(TForm)
Memo1: TMemo;
bOK: TButton;
procedure bOKClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
fAbout: TfAbout;
implementation
{$R
*.dfm}
procedure TfAbout.bOKClick(Sender: TObject);
ПРОДОЛЖЕНИЕ ПРИЛОЖЕНИЯ В
Close;
end;
end.
TR_MainForm.dfm
object fMain: TfMain
Left = 0
Top = 0
Caption = #1056#1077#1096#1077#1085#
ClientHeight = 414
ClientWidth = 559
Color = clBtnFace
Constraints.MinHeight = 391
Constraints.MinWidth = 567
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
KeyPreview = True
OldCreateOrder = False
Position = poDesktopCenter
OnActivate = FormActivate
OnConstrainedResize = FormConstrainedResize
OnCreate = FormCreate
OnKeyPress = FormKeyPress
PixelsPerInch = 96
TextHeight = 13
object gbInputParams: TGroupBox
Left = 0
Top = 0
Width = 559
Height = 49
Align = alTop
Caption = ' '#1042#1093#1086#1076#1085#
TabOrder = 0
object lSuppliersCount: TLabel
Left = 12
Top = 20
Width = 135
Height = 13
Caption = #1050#1086#1083#1080#1095#
end
object lConsumersCount: TLabel
Left = 250
Top = 20
Width = 139
Height = 13
Caption = #1050#1086#1083#1080#1095#
end
ПРОДОЛЖЕНИЕ ПРИЛОЖЕНИЯ В
object udSuppliersCount: TUpDown
Left = 207
Top = 17
Width = 15
Height = 21
Associate = eSuppliersCount
Min = 2
Max = 50
Position = 4
TabOrder = 0
end
object udConsumersCount: TUpDown
Left = 449
Top = 17
Width = 15
Height = 21
Associate = eConsumersCount
Min = 2
Max = 50
Position = 3
TabOrder = 1
end
object eSuppliersCount: TAlignEdit
Left = 153
Top = 17
Width = 54
Height = 21
BevelInner = bvNone
BevelKind = bkFlat
BevelWidth = 3
BorderStyle = bsNone
TabOrder = 2
Text = '4'
OnExit = eSuppliersCountExit
Alignment = eaRight
end
object eConsumersCount: TAlignEdit
Left = 395
Top = 17
Width = 54
Height = 21
BevelInner = bvNone
BevelKind = bkFlat
BevelWidth = 3
BorderStyle = bsNone
TabOrder = 3
Text = '3'
OnExit = eConsumersCountExit
Alignment = eaRight
end
end
object gbAddititionalInfo: TGroupBox
Left = 0
Top = 348
Width = 559
Height = 66
Align = alBottom
ПРОДОЛЖЕНИЕ ПРИЛОЖЕНИЯ В
Caption = ' '#1044#1086#1087#1086#1083#
TabOrder = 1
object pAddititionalInfo: TPanel
Left = 2
Top = 15
Width = 555
Height = 49
Align = alClient
BevelOuter = bvNone
BorderWidth = 4
TabOrder = 0
object memAddititionalInfo: TMemo
Left = 4
Top = 4
Width = 547
Height = 41
TabStop = False
Align = alClient
BevelInner = bvNone
BevelKind = bkFlat
BevelOuter = bvRaised
BorderStyle = bsNone
Ctl3D = True
Lines.Strings = (
#1042#1074#1077#1076#1080#
ParentCtl3D = False
ReadOnly = True
ScrollBars = ssVertical
TabOrder = 0
end
end
end
object gbManagement: TGroupBox
Left = 0
Top = 296
Width = 559
Height = 52
Align = alBottom
Caption = ' '#1059#1087#1088#1072#1074#
TabOrder = 2
object bCalcAutomatic: TButton
Left = 10
Top = 17
Width = 137
Height = 25
Caption = #1056'&'#1072#1089#1095#1105#
Enabled = False
TabOrder = 0
OnClick = bCalcAutomaticClick
end
object bNewCalculation: TButton
Left = 170
Top = 17
Width = 91
ПРОДОЛЖЕНИЕ ПРИЛОЖЕНИЯ В
Height = 25
Caption = #1053'&'#1086#1074#1099#1081' '#1088#1072#1089#1095#1105#
TabOrder = 1
OnClick = bNewCalculationClick
end
object bHelp: TButton
Left = 286
Top = 17
Width = 85
Height = 25
Caption = #1057#1087'&'#1088#1072#1074#
TabOrder = 2
OnClick = bHelpClick
end
object bAbout: TButton
Left = 377
Top = 17
Width = 85
Height = 25
Caption = #1054' &'#1087#1088#1086#1075#1088#
TabOrder = 3
OnClick = bAboutClick
end
object bExit: TButton
Left = 468
Top = 17
Width = 85
Height = 25
Caption = #1042'&'#1099#1093#1086#1076
TabOrder = 4
Информация о работе Разработка программы "Организация перевозок"