Решение задачи о смесях симплексным методом
Курсовой проект - Компьютеры, программирование
Другие курсовые по предмету Компьютеры, программирование
?ач у студентов.
11. Исходный код
Unit1;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, Grids, StdCtrls, Buttons, ComCtrls, Menus;= class(TForm): TGroupBox;: TEdit;: TEdit;: TBitBtn;: TBitBtn;: TLabel;: TLabel;: TStringGrid;: TLabel;: TGroupBox;: TBitBtn;: TBitBtn;: TBitBtn;: TBitBtn;: TGroupBox;: TBitBtn;: TBitBtn;: TBitBtn;: TEdit;: TLabel;: TEdit;: TLabel;: TStringGrid;: TLabel;: TLabel;: TGroupBox;: TStringGrid;: TLabel;: TGroupBox;: TStringGrid;: TBitBtn;: TBitBtn;: TGroupBox;: TMemo;: TRichEdit;: TButton;: TButton;: TButton;: TRadioButton;: TRadioButton;BitBtn6Click(Sender: TObject);Edit1KeyPress(Sender: TObject; var Key: Char);BitBtn1Click(Sender: TObject);StringGrid1Click(Sender: TObject);BitBtn7Click(Sender: TObject);FormCreate(Sender: TObject);BitBtn2Click(Sender: TObject);Edit2KeyPress(Sender: TObject; var Key: Char);BitBtn4Click(Sender: TObject);BitBtn5Click(Sender: TObject);Edit3KeyPress(Sender: TObject; var Key: Char);Edit4KeyPress(Sender: TObject; var Key: Char);BitBtn3Click(Sender: TObject);BitBtn9Click(Sender: TObject);BitBtn8Click(Sender: TObject);StringGrid2Click(Sender: TObject);StringGrid3KeyPress(Sender: TObject; var Key: Char);BitBtn11Click(Sender: TObject);BitBtn10Click(Sender: TObject);Button1Click(Sender: TObject);Button2Click(Sender: TObject);Button3Click(Sender: TObject);
{ Private declarations }
{ Public declarations };: TForm1;
{$R *.dfm}Otchistka();.stringgrid1.RowCount :=2;.stringgrid1.Cells [0,form1.stringgrid1.RowCount - 1] := ;.stringgrid1.Cells [1,form1.stringgrid1.RowCount - 1] := ;.stringgrid2.RowCount :=2;.stringgrid2.Cells [0,form1.stringgrid2.RowCount - 1] := ;.stringgrid2.Cells [1,form1.stringgrid2.RowCount - 1] := ;.stringgrid3.RowCount :=2;.stringgrid2.Cells [0,form1.stringgrid2.RowCount - 1] := ;.stringgrid2.Cells [1,form1.stringgrid2.RowCount - 1] := ;.stringgrid3.ColCount :=2;.stringgrid3.RowCount :=2;;Otvet();count,count2:integer;
boo:boolean;.Memo1.Lines.Add(Выгодно производить/использовать следующую продукцию:);
for count:=1 to form1.StringGrid4.RowCount -1 docount2:=0 to form1.StringGrid2.RowCount -1 doform1.StringGrid4.Cells[0,count] = form1.StringGrid2.Cells[0,count2] then.Memo1.Lines.Add (form1.StringGrid4.Cells[0,count]+ в количестве + form1.StringGrid4.Cells[1,count]+ ед.);;:=false;count:=1 to form1.StringGrid4.RowCount -1 docount2:=0 to form1.StringGrid1.RowCount -1 doform1.StringGrid4.Cells[0,count] = form1.StringGrid1.Cells[0,count2] then:=true;;;boo then.Memo1.Lines.Add();
form1.Memo1.Lines.Add(При этом будут такие излишки ресурсов:);
for count:=1 to form1.StringGrid4.RowCount -1 docount2:=0 to form1.StringGrid1.RowCount -1 doform1.StringGrid4.Cells[0,count] = form1.StringGrid1.Cells[0,count2] then.Memo1.Lines.Add (form1.StringGrid4.Cells[0,count]+ в количестве + form1.StringGrid4.Cells[1,count]+ ед.);;;.Memo1.Lines.Add();form1.RadioButton2.Checked then.Memo1.Lines.Add(Затраты при таком плане использования составят + floattostr((-1)*strtofloat(form1.StringGrid4.Cells[1,1]))+ у.е.).Memo1.Lines.Add(Прибыль при таком плане производства составит + form1.StringGrid4.Cells[1,1]+ у.е.);;zapolni();Count:integer;.StringGrid3.Cells[1,0]:=ОФР;Count:=1 to form1.stringgrid1.RowCount-1 do.StringGrid3.RowCount :=form1.StringGrid3.RowCount +1;.StringGrid3.Cells[0,Count+1]:=form1.StringGrid1.Cells[0,Count];;.StringGrid3.Cells[0,1]:=Прибыль;.StringGrid3.Cells[1,1]:=0;Count:=1 to form1.stringgrid2.RowCount-1 do.StringGrid3.ColCount := form1.StringGrid3.ColCount+1;.StringGrid3.Cells[Count+1,0]:=form1.StringGrid2.Cells[0,Count];;Count:=1 to form1.StringGrid1.RowCount -1 do.StringGrid3.Cells[1,Count+1]:=form1.StringGrid1.Cells[1,Count];Count:=1 to form1.StringGrid2.RowCount -1 do.StringGrid3.Cells[Count+1,1]:=form1.StringGrid2.Cells[1,Count];;ZapEnd();Count,count2,tmp,k:integer;:=1;form1.RadioButton2.Checked then k:=-1;.StringGrid4.RowCount :=form1.StringGrid3.RowCount;.StringGrid4.ColCount := form1.StringGrid3.ColCount;count:=0 to form1.StringGrid3.RowCount-1 docount2:=0 to form1.StringGrid3.ColCount-1 do.StringGrid4.Cells [Count2,count] :=form1.StringGrid3.Cells [Count2,count];count:=1 to form1.StringGrid3.RowCount-1 docount2:=1 to form1.StringGrid3.ColCount-1 do.StringGrid4.Cells [Count2,count] :=floattostr(k*strtofloat(form1.StringGrid3.Cells [Count2,count]));count:=1 to form1.StringGrid4.ColCount -1 do.StringGrid4.Cells[count,1]:=floattostr(strtofloat(form1.StringGrid4.Cells[count,1])*(-1));:=form1.StringGrid4.ColCount;.StringGrid4.ColCount := tmp + form1.StringGrid3.RowCount -2;Count:=2 to form1.StringGrid3.RowCount -1 do.StringGrid4.Cells [count+tmp-2,0]:=form1.StringGrid3.Cells [0,count];;count:=tmp to form1.StringGrid4.ColCount-1 docount2:=1 to form1.StringGrid4.RowCount - 1 doform1.StringGrid4.Cells [count,0]= form1.StringGrid4.Cells [0,count2] then.StringGrid4.Cells [count,count2]:=1.StringGrid4.Cells [count,count2]:=0;;Proverka():boolean;Count,Count2:integer;:boolean;:=true;.StringGrid3.Cells [1,1]:=0;Count:=1 to form1.StringGrid3.RowCount -1 doCount2:=1 to form1.StringGrid3.ColCount -1 doform1.StringGrid3.Cells [Count2,Count]= then:=false;.Label5.Caption :=Ошибка заполнения таблицы. Найдено пустое поле!;
end;
0then:=zna4TMP/zna4TMP2;zna40 then:=zna4TMP/zna4TMP2;zna4<MinEl then:=zna4;:=Count;;;;:=strtofloat(form1.StringGrid4.Cells[MinC,MinR]);count:=1 to form1.StringGrid4.ColCount -1 do.StringGrid4.Cells[count,MinR]:=floattostr(strtofloat(form1.StringGrid4.Cells[count,MinR])/Mi