Реферат: Нахождение опорного плана транспортной задачи

begin

word:=IntTostr(i);

words.add(word)

end

end.

Лист

Кп-км-п-44-2203-99

unit TransTask;

interface

uses

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

StdCtrls, ExtCtrls, Grids, ComCtrls, Math;

type

TfmTransTask = class(TForm)

pgcTransTask: TPageControl;

tbsAbout: TTabSheet;

tbsData: TTabSheet;

tbsTarif: TTabSheet;

tbsSolve: TTabSheet;

Label1: TLabel;

edProviderCount: TEdit;

spnProviderCount: TUpDown;

Label2: TLabel;

stgProvider: TStringGrid;

Label3: TLabel;

Label4: TLabel;

edCustomerCount: TEdit;