Решение задачи о смесях симплексным методом

Курсовой проект - Компьютеры, программирование

Другие курсовые по предмету Компьютеры, программирование

nEl);count:=1 to form1.StringGrid4.ColCount -1 doCount2:=1 to form1.StringGrid4.RowCount -1 do(countMinR) then.StringGrid4.Cells [count,count2]:=floattostr(strtofloat(form1.StringGrid4.Cells [count,count2])-strtofloat(form1.StringGrid4.Cells [count,MinR])*strtofloat(form1.StringGrid4.Cells [MinC,count2]));.StringGrid4.Cells[0,MinR]:=form1.StringGrid4.Cells[MinC,0];count:=1 to form1.StringGrid4.RowCount - 1 doform1.StringGrid4.Cells [MinC,0]= form1.StringGrid4.Cells [0,count] then.StringGrid4.Cells [MinC,count]:=1.StringGrid4.Cells [MinC,count]:=0;.Label5.Caption :=Решение найдено!!!;:=true;;reshil or n;;TForm1.BitBtn6Click(Sender: TObject);.Close;;TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);key of

#8: ;

#13: edit2.SetFocus ;

a..z: ;

A..Z: ;

а..я: ;

А..Я: ;

0..9: ;key:=#0;;;TForm1.BitBtn1Click(Sender: TObject);Count:integer;:boolean;:=true;(edit1.Text =)or(edit2.Text =) then:=false;.Caption :=Заполните все поля ввода.;;Count := 1 to stringgrid1.RowCount do(edit1.Text = stringgrid1.Cells [0,Count]) then:=false;;boo then(stringgrid1.RowCount = 2) and (stringgrid1.Cells[0,1]=) then.RowCount := stringgrid1.RowCount.RowCount := stringgrid1.RowCount + 1;.Cells [0,stringgrid1.RowCount - 1] := edit1.Text;.Cells [1,stringgrid1.RowCount - 1] := edit2.Text;.Caption :=Ресурс добавлен!;.SetFocus();.Caption :=Такой ресурс уже есть;;TForm1.StringGrid1Click(Sender: TObject);i :integer;:=stringgrid1.Row;.Text := stringgrid1.Cells [0,i];.Text := stringgrid1.Cells [1,i];.Caption := ;;TForm1.BitBtn7Click(Sender: TObject);Count,i:integer;:boolean;:=true;Count := 1 to stringgrid1.RowCount do(edit1.Text = stringgrid1.Cells [0,Count]) then:=Count;:=false;;;boo then

label5.Caption :=Такого ресурса нет в списке!;

end.Cells [0,i] := edit1.Text;.Cells [1,i] := edit2.Text;.Caption :=Ресурс изменен.;;;TForm1.FormCreate(Sender: TObject);.Cells [0,0]:=Наименование;.Cells [1,0]:=ОФР;.Cells [0,0]:=Наименование;.Cells [1,0]:=Стоимость;;TForm1.BitBtn2Click(Sender: TObject);Count,i:integer;:boolean;:=true;Count := 1 to stringgrid1.RowCount do(edit1.Text = stringgrid1.Cells [0,Count]) then:=Count;:=false;;;boo then

label5.Caption :=Такого ресурса нет в списке!;

end.Rows[i].Clear ;Count := i to stringgrid1.RowCount-1 do.Cells [0,Count]:=stringgrid1.Cells [0,Count+1];.Cells [1,Count]:=stringgrid1.Cells [1,Count+1];;.RowCount := stringgrid1.RowCount -1;.Caption :=Ресурс стерт.;;;TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);key of

#8: ;

#13: bitbtn1.SetFocus;

0..9: ;

#110:;

;();;;groupbox3.Visible=truethenstringgrid2.Cells[0,1];.Enabled :=true;;groupbox6.Visible = true then.Visible := false;.Visible := true;.Visible :=true;.Visible :=true;.Enabled :=true;;;TForm1.Edit3KeyPress(Sender: TObject; var Key: Char);key of

#8: ;

#13: edit4.SetFocus ;

a..z: ;

A..Z: ;

а..я: ;

А..Я: ;

0..9: ;key:=#0;;;TForm1.Edit4KeyPress(Sender: TObject; var Key: Char);key of

#8: ;

#13: bitbtn3.SetFocus;

0..9: ;

#110:;

#46:;key:=#0;;;TForm1.BitBtn3Click(Sender: TObject);Count:integer;:boolean;:=true;(edit3.Text =)or(edit4.Text =) then:=false;.Caption :=Заполните все поля ввода.;;Count := 1 to stringgrid2.RowCount do(edit3.Text = stringgrid2.Cells [0,Count]) then:=false;;boo then(stringgrid2.RowCount = 2) and (stringgrid2.Cells[0,1]=) then.RowCount := stringgrid2.RowCount.RowCount := stringgrid2.RowCount + 1;.Cells [0,stringgrid2.RowCount - 1] := edit3.Text;.Cells [1,stringgrid2.RowCount - 1] := edit4.Text;

label5.Caption :=Продукт добавлен!;

edit3.SetFocus();.Caption :=Такой продукт уже есть;;TForm1.BitBtn9Click(Sender: TObject);Count,i:integer;:boolean;:=true;Count := 1 to stringgrid2.RowCount do(edit3.Text = stringgrid2.Cells [0,Count]) then:=Count;:=false;;;boo then

label5.Caption :=Такого продукта нет в списке!;

end.Rows[i].Clear ;Count := i to stringgrid2.RowCount-1 do.Cells [0,Count]:=stringgrid2.Cells [0,Count+1];.Cells [1,Count]:=stringgrid2.Cells [1,Count+1];;.RowCount := stringgrid2.RowCount -1;.Caption :=Продукт стерт.;;;TForm1.BitBtn8Click(Sender: TObject);Count,i:integer;:boolean;:=true;Count := 1 to stringgrid2.RowCount do(edit3.Text = stringgrid2.Cells [0,Count]) then:=Count;:=false;;;boo then

label5.Caption :=Такого продукта нет в списке!;

end.Cells [0,i] := edit3.Text;.Cells [1,i] := edit4.Text;

label5.Caption :=Продукт изменен.;

end;;TForm1.StringGrid2Click(Sender: TObject);i :integer;:=stringgrid2.Row;.Text := stringgrid2.Cells [0,i];.Text := stringgrid2.Cells [1,i];.Caption := ;;TForm1.StringGrid3KeyPress(Sender: TObject; var Key: Char);key of

#8: ;

#13:;

0..9: ;

#110:;

,: ;

#46:;key:=#0;;;TForm1.BitBtn11Click(Sender: TObject);form1.RadioButton2.Checked then(True)(True);;TForm1.BitBtn10Click(Sender: TObject);form1.RadioButton2.Checked then(False)(False);;

/