Курсовая работа: Решение задач линейного программирования транспортной задачей

SpinEdit1: TSpinEdit;

SpinEdit2: TSpinEdit;

Label1: TLabel;

Label2: TLabel;

Button1: TButton;

Button2: TButton;

Memo1: TMemo;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

c, x : Array [1..10, 1..10] of Integer;

a, b : Array [1..10] of Integer;

F : Integer;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);

var

i, i1, j1, j : Byte;

s : TControl;

begin

Label1.Hide;

Label2.Hide;

SpinEdit1.Hide;