транспортная задача методом минимального элемента - Delphi - Ответ 2846000

unit Unit2;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;
 
type
  TForm2 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label5: TLabel;
    Label12: TLabel;
    Label14: TLabel;
    Bevel1: TBevel;
    Bevel2: TBevel;
    L11: TLabel;
    L21: TLabel;
    L31: TLabel;
    L41: TLabel;
    L12: TLabel;
    L22: TLabel;
    L32: TLabel;
    L42: TLabel;
    L13: TLabel;
    L23: TLabel;
    L33: TLabel;
    L43: TLabel;
    L14: TLabel;
    L24: TLabel;
    L34: TLabel;
    L44: TLabel;
    E11: TEdit;
    E21: TEdit;
    E31: TEdit;
    E12: TEdit;
    E22: TEdit;
    E32: TEdit;
    E13: TEdit;
    E23: TEdit;
    E33: TEdit;
    E15: TEdit;
    E25: TEdit;
    E35: TEdit;
    E51: TEdit;
    E52: TEdit;
    E53: TEdit;
    Button1: TButton;
    E14: TEdit;
    E24: TEdit;
    E34: TEdit;
    E44: TEdit;
    E43: TEdit;
    E42: TEdit;
    E41: TEdit;
    E54: TEdit;
    E45: TEdit;
    Label13: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    Label23: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
  type
  ar=array[1..4,1..4] of integer;
var
  Form2: TForm2;
 
implementation
 
{$R *.dfm}
procedure TForm2.Button1Click(Sender: TObject);
var
 i,j,sum,min,mi,mj:integer;
zap:array [1..4] of integer;
pot:array [1..4] of integer;
pynktu,mas:ar;
begin
 for i:=1 to 4 do
 for j:=1 to 4 do
 pynktu[i,j]:=strtoint(Tedit(findcomponent('E'+inttostr(i)+inttostr(j))).Text);
 for i:=1 to 4 do
 zap[i]:=strtoint(Tedit(findcomponent('E'+inttostr(i)+'5')).text);
 for i:=1 to 4 do
 pot[i]:=strtoint(Tedit(findcomponent('E5'+inttostr(i))).text);
 end;
 procedure min( a:ar);
 var min,m_i,m_j,i,j:integer;
 begin
     min:=32768;
 for j:=1 to 4 do
  begin
    for i:=1 to 4 do
    begin
      if a[i,j]<min then
      begin
        min:=a[i,j];
        m_i:=i;
        m_j:=j;
        end;
for i:=1 to 4 do
 for j:=1 to 4 do
 min(a);
 a[m_i,m_j]:=0;
 if (zap[i]<>0) and (pot[i]<>0)
 then
 if zap[i]>=pot[j]
 then
 begin
 mas[m_i,m_j]:=pot[j];
 zap[i]:=zap[i]-pot[j];
 pot[j]:=0;
 end
 else
 begin
 mas[m_i,m_j]:=zap[i];
 pot[j]:=pot[j]-zap[i];
 zap[i]:=0;
 end
 else
 mas[m_i,m_j]:=0;
 sum:=0;
 for i:=1 to 4 do
 for j:=1 to 4 do
 begin
 Tedit(findcomponent('L'+inttostr(i)+ inttostr(j))).Text:=inttostr(mas[m_i,m_j]);
 sum:=sum+pynktu[i,j]*mas[m_i,m_j];
 end;
 
   label13.Caption:=inttostr(sum);
   end;
end;
end.