Разработка алгоритма решения транспортной задачи
Транспортная задача как одна из самых распространенных специальных задач линейного программирования: понятие, основное назначение. Формальное описание метода минимального элемента. Характеристика этапов разработки алгоритма решения поставленной задачи.
| Рубрика | Программирование, компьютеры и кибернетика |
| Вид | курсовая работа |
| Язык | русский |
| Дата добавления | 19.10.2012 |
| Размер файла | 713,3 K |
Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже
Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.
Back.Free;
Picture.Free;
end;
procedure TForm4.Button1Click(Sender: TObject);
begin
Form1.Show;
form4.Hide;
end;
end.
unit Unit5;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons;
type
TForm5 = class(TForm)
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
Label1: TLabel;
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
private
{ Private declarations }
public
sogl:boolean;
{ Public declarations }
end;
var
Form5: TForm5;
implementation
uses Unit1_1;
{$R *.dfm}
procedure TForm5.BitBtn1Click(Sender: TObject);
var i,j:integer;
begin
sogl:=true;
Form1.Button5.Enabled:=False;
Form1.N7.Enabled:=False;
Form1.N18.Enabled:=False;
if Form1.s1<Form1.s2 then begin
Form1.n:=Form1.n+1;
Form1.StringGrid1.ColCount:=Form1.m+2;
Form1.StringGrid1.RowCount:=Form1.n+2;
Form1.StringGrid1.FixedCols:=1;
Form1.StringGrid1.FixedRows:=1;
Form1.StringGrid1.FixedColor:=clmenu;
Form1.StringGrid2.ColCount:=Form1.m+1;
Form1.StringGrid2.RowCount:=Form1.n+1;
Form1.StringGrid2.FixedCols:=1;
Form1.StringGrid2.FixedRows:=1;
Form1.StringGrid2.FixedColor:=clmenu;
for i:=1 to Form1.m do begin
Form1.s:=inttostr(i);
Form1.StringGrid1.Cells[i,0]:='Пункт назначения'+Form1.s;
end;
for j:=1 to Form1.n do begin
Form1.s:=inttostr(j);
Form1.StringGrid1.Cells[0,j]:='Пункт отправления'+Form1.s;
end;
Form1.StringGrid1.Cells[Form1.m+1,0]:='Запасы';
Form1.StringGrid1.Cells[0,Form1.n+1]:='Потребности';
for j:=1 to Form1.m do begin
Form1.StringGrid1.Cells[j,Form1.n+1]:=Form1.StringGrid1.Cells[j,Form1.n];
Form1.StringGrid1.Cells[j,Form1.n]:='0';
end;
Form1.StringGrid1.Cells[Form1.m+1,Form1.n]:=inttostr(Form1.s2-Form1.s1);
Form5.Close;
end;
if Form1.s1>Form1.s2 then begin
Form1.m:=Form1.m+1;
Form1.StringGrid1.ColCount:=Form1.m+2;
Form1.StringGrid1.RowCount:=Form1.n+2;
Form1.StringGrid1.FixedCols:=1;
Form1.StringGrid1.FixedRows:=1;
Form1.StringGrid1.FixedColor:=clmenu;
Form1.StringGrid2.ColCount:=Form1.m+1;
Form1.StringGrid2.RowCount:=Form1.n+1;
Form1.StringGrid2.FixedCols:=1;
Form1.StringGrid2.FixedRows:=1;
Form1.StringGrid2.FixedColor:=clmenu;
for i:=1 to Form1.m do begin
Form1.s:=inttostr(i);
Form1.StringGrid1.Cells[i,0]:='Пункт назначения'+Form1.s;
end;
for j:=1 to Form1.n do begin
Form1.s:=inttostr(j);
Form1.StringGrid1.Cells[0,j]:='Пункт отправления'+Form1.s;
end;
Form1.StringGrid1.Cells[Form1.m+1,0]:='Запасы';
Form1.StringGrid1.Cells[0,Form1.n+1]:='Потребности';
for j:=1 to Form1.n do begin
Form1.StringGrid1.Cells[Form1.m+1,j]:=Form1.StringGrid1.Cells[Form1.m,j];
Form1.StringGrid1.Cells[Form1.m,j]:='0';
end;
Form1.StringGrid1.Cells[Form1.m,Form1.n+1]:=inttostr(Form1.s1-Form1.s2);
Form5.Close;
end;
for i:=1 to Form1.n do
for j:=1 to Form1.m do
Form1.ishod[i,j]:=strtoint(Form1.StringGrid1.Cells[j,i]);
for j:=1 to Form1.m do begin
Form1.potr[j]:=strtoint(Form1.StringGrid1.Cells[j,Form1.n+1]);
end;
for i:=1 to Form1.n do begin
Form1.zap[i]:=strtoint(Form1.StringGrid1.Cells[Form1.m+1,i]);
end;
end;
procedure TForm5.BitBtn2Click(Sender: TObject);
begin
close;
end;
end.
Размещено на Allbest.ru
Подобные документы
Общее понятие и характеристика задачи линейного программирования. Решение транспортной задачи с помощью программы MS Excel. Рекомендации по решению задач оптимизации с помощью надстройки "Поиск решения". Двойственная задача линейного программирования.
дипломная работа [2,4 M], добавлен 20.11.2010Создание и реализация алгоритма решения транспортной задачи методом наименьших стоимостей. Схема алгоритма основной программы. Основные шаги алгоритма решения транспортной задачи. Инструкция по эксплуатации программы и обзор результатов ее выполнения.
курсовая работа [2,0 M], добавлен 12.02.2013Описание алгоритма решения транспортной задачи по планированию перевозки зерна. Ход решения задачи вручную, в программе TORA методом наименьшего элемента, с помощью MS Excel. Разработка программы для решения задачи в общем виде средствами Delphi.
курсовая работа [2,5 M], добавлен 22.11.2012Краткий обзор решения транспортных задач. Экономическая интерпретация поставленной задачи. Разработка и описание алгоритма решения задачи. Построение математической модели. Решение задачи вручную и с помощью ЭВМ. Анализ модели на чувствительность.
курсовая работа [844,3 K], добавлен 16.06.2011Анализ метода линейного программирования для решения оптимизационных управленческих задач. Графический метод решения задачи линейного программирования. Проверка оптимального решения в среде MS Excel с использованием программной надстройки "Поиск решения".
курсовая работа [2,2 M], добавлен 29.05.2015Применение методов линейного программирования для решения оптимизационных задач. Основные понятия линейного программирования, свойства транспортной задачи и теоремы, применяемые для ее решения. Построение первичного опорного плана и системы потенциалов.
курсовая работа [280,8 K], добавлен 17.11.2011Особенности метода неопределенных множителей Лагранжа, градиентного метода и метода перебора и динамического программирования. Конструирование алгоритма решения задачи. Структурная схема алгоритма сценария диалога и описание его программной реализации.
курсовая работа [1010,4 K], добавлен 10.08.2014Основные принципы разработки программ. Разработка алгоритма решения задачи о пересечении двухвыпуклым многоугольником. Реализация разработанного алгоритма на языке программирования. Тесты для проверки работы программы. Графическая иллюстрация решения.
курсовая работа [53,3 K], добавлен 20.11.2015Обзор методов и подходов решения поставленной задачи аппроксимации логического вывода экспертной системы. Разработка и описание метода сетевого оператора для решения данной задачи. Разработка алгоритма решения. Проведение вычислительного эксперимента.
дипломная работа [1,5 M], добавлен 23.02.2015Составление математической модели решения транспортной задачи. Описание входной и выходной информации. Программно-технические средства, используемые при разработке программы. Общее описание программы, ее назначение, информационная совместимость.
курсовая работа [49,1 K], добавлен 24.05.2013
