на малюнку 13.
В
Малюнок 13 - Результати виконання тестової задачі 3
Результати, отримані в ході виконання програми, збігаються з раніше отриманими.
В ході тестування програми на контрольних завданнях програма жодного разу не давала збої і працювала коректно.
Висновок
У даній роботі був досліджений один із сучасних методів оптимізації, а саме знаходження найкоротшого шляху в неориентированной транспортної мережі за методом Мінті (метод міток).
Для досягнення поставленої мети вивчення методу було вивчено математичний опис даного методу оптимізації, сформульований алгоритм розв'язання задач знаходження мінімального шляху.
У ході виконання роботи був розроблений програмний модуль, який реалізує пошук мінімального шляху за методом Мінті. Так само були розроблені контрольні завдання для тестування і дослідження можливості і працездатності програми. p align="justify"> Список використаних джерел
. Конюховскій П.В. Математичні методи дослідження операцій в економіці. - СПб: Пітер, 2000. - 208с.
2. <# "justify"> Додаток А
Лістинг основного модуля програми
unit Unit1;, SysUtils, Classes, Graphics, Controls, Forms, StdCtrls, Grids, Types,, XPMan; = class (TForm): TButton;: TButton;: TButton;: TStringGrid;: TLabel ;: TMemo;: TLabeledEdit;: TLabeledEdit;: TLabeledEdit;: TButton; Button1Click (Sender: TObject); cmdAddClick (Sender: TObject); cmdCompClick (Sender: TObject); cmdDelClick (Sender: TObject); FormCreate (Sender: TObject) ; txtDestChange (Sender: TObject); txtHandlerKeyPress (Sender: TObject; var Key: Char); txtSrcChange (Sender: TObject); txtVertexChange (Sender: TObject);; = class (TStringGrid);: TForm1; TElement = record
_start, _end, _weight, _initial: Integer;
_checked: boolean;; = record
_vertex: integer;
_data: integer;; = array of TVertex; Math;
{$ R *. dfm} VertexCount: Integer = 6;: Integer = 1;: Integer = 6; EdgesCount = 10;: array [1 .. EdgesCount, 1 .. 3] of Integer =
((1, 2, 2), (1, 3, 3), (2, 3, 1),
(2, 4, 2), (2, 5, 10), (3, 4, 6),
(3, 5, 4), (4, 5, 3), (4, 6, 8),
(5, 6, 2)); InArr (const Arr: TVertexArray; const Num: Integer): Boolean; I: Integer;: = False; I: = 0 to High (Arr) doArr [I]. _vertex = Num then: = True;;;; TForm1.Button1Click (Sender: TObject);. Clear;. Clear;. Clear;. Clear;; TForm1.cmdAddClick (Sender: TObject); I: Integer; . RowCount: = Grid.RowCount + 1; I: = 0 to 2 do Grid.Cells [I, Grid.RowCount - 1]: = '0 ';; TForm1.FormCreate (Sender: TObject); I, + 1;. Te...
