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

procedure btnSolveClick(Sender: TObject);

procedure btnPrintClick(Sender: TObject);

Лист

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

private

{ Private declarations }

public

{ Public declarations }

end;

var

fmTransTask: TfmTransTask;

a,b: array of integer;// наличие груза у поставщиков

// и спрос у потребителей

c: array of array of integer; // матрица тарифов перевозок

d: array of array of integer;// матрица перевозок (решение)

z,m,n:integer; //число поставщиков и потребителей

s:string;

implementation

{$R *.DFM}

procedure ShowSolve;

var

i,j:integer;

begin

for i:= 0 to m-1 do

for j:= 0 to n-1 do

fmTransTask.stgSolve.Cells[j+1,i+1]:=IntToStr(d[i,j]);

fmTransTask.lblZ.Caption:=IntToStr(z);

end;

procedure Minelem;