Симплекс-метод в СП DELPHI (стр. 3 )

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure Button6Click(Sender: TObject);

procedure Button7Click(Sender: TObject);

procedure ComboBox2Change(Sender: TObject);

procedure ComboBox1Change(Sender: TObject);

procedure Button8Click(Sender: TObject);

procedure Button9Click(Sender: TObject);

private

procedure drogba11;

procedure cheh1;

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

A:array [1..10,1..10] of real;

X:array [1..10] of real;

i, j,k, l,e, v,q, n,m, cx, cy, h,w, z:integer;

s, min:real;

implementation

{$R *.dfm}

{ TForm1 }

Var P:array [1..10] of TPanel;

procedure TForm1.Button1Click(Sender: TObject);

begin

Panel1.Caption:='Виды сырья';

Panel2.Caption:='1.';

Panel3.Caption:='2.';

Panel4.Caption:='3.';

Panel5.Caption:='Виды продукции';

Panel6.Caption:='I';

Panel7.Caption:='II';

Panel8.Caption:=Label2.Caption[124];

Panel9.Caption:=Label2.Caption[126];

Panel10.Caption:=Label2.Caption[128];

Panel11.Caption:=Label2.Caption[174];

Panel12.Caption:=Label2.Caption[176];

Panel13.Caption:=Label2.Caption[178];

Panel14.Caption:='Виды продукции';

Panel15.Caption:=Label2.Caption[41]+Label2.Caption[42];

Panel16.Caption:=Label2.Caption[44]+Label2.Caption[45];

Panel17.Caption:=Label2.Caption[47]+Label2.Caption[48] ;

Panel1.Visible:=true;

Panel2.Visible:=true;

Panel3.Visible:=true;

Panel4.Visible:=true;

Panel5.Visible:=true;

Panel6.Visible:=true;

Panel7.Visible:=true;

Panel8.Visible:=true;

Panel9.Visible:=true;

Panel10.Visible:=true;

Panel11.Visible:=true;

Panel12.Visible:=true;

Panel13.Visible:=true;

Panel14.Visible:=true;

Panel15.Visible:=true;

Panel16.Visible:=true;

Panel17.Visible:=true;

Label3.Visible:=true;

Button2.Visible:=true;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

Label4.Visible:=true;

Label20.Caption:=Panel8.Caption;

Label21.Caption:=Panel9.Caption;

Label22.Caption:=Panel10.Caption;

Label23.Caption:=Panel11.Caption;

Label24.Caption:=Panel12.Caption;

Label25.Caption:=Panel13.Caption;

Label26.Caption:=Panel15.Caption;

Label27.Caption:=Panel16.Caption;

Label28.Caption:=Panel17.Caption;

Label30.Caption:=Label2.Caption[270];

Label34.Caption:=Label2.Caption[316];

Label5.Visible:=true;

Label6.Visible:=true;

Label7.Visible:=true;

Label8.Visible:=true;

Label9.Visible:=true;

Label10.Visible:=true;

Label11.Visible:=true;

Label12.Visible:=true;

Label13.Visible:=true;

Label14.Visible:=true;

Label15.Visible:=true;

Label16.Visible:=true;

Label17.Visible:=true;

Label18.Visible:=true;

Label19.Visible:=true;

Label20.Visible:=true;

Label21.Visible:=true;

Label22.Visible:=true;

Label23.Visible:=true;

Label24.Visible:=true;

Label25.Visible:=true;

Label26.Visible:=true;

Label27.Visible:=true;

Label28.Visible:=true;

Label29.Visible:=true;

Label30.Visible:=true;

Label31.Visible:=true;

Label32.Visible:=true;

Label33.Visible:=true;

Label34.Visible:=true;

Label35.Visible:=true;

Label36.Visible:=true;

Label37.Visible:=true;

Image1.Visible:=true;

Image2.Visible:=true;

Image3.Visible:=true;

Image4.Visible:=true;

Image5.Visible:=true;

Button3.Visible:=true;

end;

procedure TForm1.drogba11;

begin

For i:=1 to n+1 do

For j:=m+2 to 2*n do

A[i, j]:=0;

For i:=1 to n do

A[i, i+m+1]:=1;

Repeat

min:=maxlongint;

For i:=2 to m+1 do

begin

If (A[n+1,i]<min) then

begin

min:=A[n+1,i];

e:=i;

end;

end;

If min=0 then break;

min:=maxlongint;

For i:=1 to n do

begin

If (A[i,1]/abs(A[i, e]))<min then

begin

min:=A[i,1]/A[i, e];

v:=i;

s:=A[i, e];

end;

end;

For i:=1 to 2*n do

A[v, i]:=A[v, i]/s;

For i:=1 to n+1 do

begin

If i<>v then

begin

s:=A[i, e];

A[i, e]:=0;

For j:=1 to 2*n do

begin

If j<>e then

begin

A[i, j]:=A[i, j]-(A[v, j]*s);

end;

end;

end;

end;

Until z=m ;

For i:=1 to n do

For j:=2 to m+1 do

If A[i, j]=1 then X[j-1]:=A[i,1]

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

A[1,1]:=StrToInt(Panel15.Caption);

A[2,1]:=StrToInt(Panel16.Caption);

A[3,1]:=StrToInt(Panel17.Caption);

A[4,1]:=0;

A[1,2]:=StrToInt(Panel8.Caption);

A[2,2]:=StrToInt(Panel9.Caption);

A[3,2]:=StrToInt(Panel10.Caption);

A[4,2]:=-StrToInt(Label30.Caption);

A[1,3]:=StrToInt(Panel11.Caption);

A[2,3]:=StrToInt(Panel12.Caption);

A[3,3]:=StrToInt(Panel13.Caption);

A[4,3]:=-StrToInt(Label34.Caption);

n:=3;

m:=2;

drogba11;

Label40.Caption:=FloatToStrF(A[4,1],ffGeneral,0,2);

Label44.Caption:=FloatToStrF(X[1],ffGeneral,0,2);

Label45.Caption:=FloatToStrF(X[2],ffGeneral,0,2);

Label38.Visible:=true;

Label39.Visible:=true;

Label40.Visible:=true;

Label41.Visible:=true;

Label42.Visible:=true;

Label43.Visible:=true;

Label44.Visible:=true;

Label45.Visible:=true;

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

Panel18.Caption:='Виды сырья';

Panel19.Caption:='1';

Panel20.Caption:='2';

Panel21.Caption:='3';

Panel22.Caption:='Виды продукции';

Panel23.Caption:='I';

Panel24.Caption:='II';

Panel25.Caption:=Label91.Caption[250]+Label91.Caption[251];

Panel26.Caption:=Label91.Caption[254];

Panel27.Caption:=Label91.Caption[258];

Panel28.Caption:=Label91.Caption[288];

Panel29.Caption:=Label91.Caption[291];

Panel30.Caption:=Label91.Caption[295]+Label91.Caption[296];

Panel31.Caption:='Виды продукции';

Panel32.Caption:=Label91.Caption[116]+Label91.Caption[117]+Label91.Caption[118];

Panel33.Caption:=Label91.Caption[121]+Label91.Caption[122]+Label91.Caption[123];

Panel34.Caption:=Label91.Caption[127]+Label91.Caption[128]+Label91.Caption[129] ;

Panel18.Visible:=true;

Panel19.Visible:=true;

Panel20.Visible:=true;

Panel21.Visible:=true;

Panel22.Visible:=true;

Panel23.Visible:=true;

Panel24.Visible:=true;

Panel25.Visible:=true;

Panel26.Visible:=true;

Panel27.Visible:=true;

Panel28.Visible:=true;

Panel29.Visible:=true;

Panel30.Visible:=true;

Panel31.Visible:=true;

Panel32.Visible:=true;

Panel33.Visible:=true;