Тағайындау есебін Т.Е.Венгер әдісімен шешу курстық жұмыс
Мазмұны - www.topreferat.com.kz
КІРІСПЕ
НЕГІЗГІ БӨЛІМ
2.1 Есептің қойылымы
2.2 Математикалық модель құру
2.3 Есепті шығарудың нақты әдісі
2.4 Есептің шешімі
2.5 Есептің блок – схемасы
2.6 Есептің бағдарламасы (бағдарлама листингі)
2.7 Программаны баяндау бөлімі
ҚОРЫТЫНДЫ
ҚОЛДАНЫЛҒАН ӘДЕБИЕТТЕР
Жұмыс түрі: Курстық жұмыс
Жұмыс көлемі: 31 бет
Пәні: Соңғы қосылған курстық жұмыстар
-----------------------------------------------------------------------------------
КУРСТЫҚ ЖҰМЫСТЫҢ ҚЫСҚАРТЫЛҒАН МӘТІНІ
Мазмұны
КІРІСПЕ
НЕГІЗГІ БӨЛІМ
2.1 Есептің қойылымы
2.2 Математикалық модель құру
2.3 Есепті шығарудың нақты әдісі
2.4 Есептің шешімі
2.5 Есептің блок – схемасы
2.6 Есептің бағдарламасы (бағдарлама листингі)
2.7 Программаны баяндау бөлімі
ҚОРЫТЫНДЫ
ҚОЛДАНЫЛҒАН ӘДЕБИЕТТЕР
1. КІРІСПЕ
Адамзат баласы өте ертеден объектерді, процестерді, әр түрлісаладағы
Осы зерттеулердің нәтижелері нақты объектілермен процесстердің қасиеттерін анықтауда,
Адам қолмен абстракты немесе материалды обьектілер модельбола алады.
Модель дегеніміз – нақты объектіні процессті немесе құбылысты
Модель – көрнектi түрде, жазбаша жоспар, сызба түрiнде
Модельдiң түрлерi
Модельдердi қасиеттерiне байланысты мынадай топтарға жiктеймiз:
Қолданылу аймағы;
Модельдiк уақыт факторын ескеру;
Бiлiм саласына қарай топтау;
Модельдi көрсету тәсiлiне қарай топтау.
Қолданылу аймағына байланысты модель – оқу, тәжiрибелiк, ғылыми
Оқу модельдерi – көрнектi оқу құралы, әр түрлi
Тәжiрибелiк модель – жобалау объектiсiнiң кiшiрейтiлген немесе өте
Ғылыми – техникалық модельдер – процестер мен құбылыстарды
Ойын модельдерi - әскери, экономикалық спорттық ойындар жатады.
Имитациялық модель – шын мәнiндегi нақты объектiнi өте
Модельдi уақыт факторына байланысты динамикалық және статистикалық деп
Статистикалық модель деп – объект жөнінде алынған ақпараттың
Динамикалық модель – уақыт барысындағы объектінің қасиеттерінің өзгерістерін
Модельдерді көрсетілу әдісіне байланысты, материалдық және
ақпараттық деп 2 топқа бөлеміз.
Ақпараттық модель екіге бөлінеді: таңбалық және вербальдік.
Таңбалықтың өзі екіге бөлінеді: компьютерлік модель және компьютерлік
Курстық жұмыстың негізгі мақсаты болып - өндірістегі берілген
НЕГІЗГІ БӨЛІМ
2.1 Есептің қойылымы
Эффектілік критерийлердің саны бойынша математикалық модельдер бір критерлік
Белгісіз факторлар бойынша математикалық және белгісіз элементі
Стохастикалық модельде белгіңіз факторлар – бұл кездейсоқ өлшемдер,
Олардың арасынан мыналар бөлінеді:
стохастикалық бағдарламалау моделі, оларға мақсатты функцияға шектеулі түрде
кездейсоқ процестер теориясының модельдері, олар процесстерді зерттеуге арналған,
тұтас қызметкөрсету теориясының модельдері, оларда көпканалды жүйелер шектеледі.
Белгісіздік элементі бар модельдер факторларға тәуелді жағдайларды модельдеуге
ойын теориясының моделіне тапсырма ойын түрін беріледі, онда
имитациялық модельде шынайы процесс машиналық уақытта болып жатады;
детерминалық модельдер белгісіз фактор есепке алынбайды. Оларға көптеген
сызықтық модельде мақсатты функция жәнек ауыспалы басқару бойынша
сызықсыз модель – мұнда не мақсатты функция не
динамикалық модельді уақыт факторы есепке алынады;
графикалық модель тапсырманы графикалық құрылым түрінде көрсетуге қолайлы
өзіндік құнды өндірудің минимизациясы
өңдеу уақытының минимизациясы
2. Модельдердің параметрлері:
1. m – жабдықтау бірліктерінің саны;
2. n - кәсіпорын шығара
3. Ті – жұмыс уақытын фонды і-жабдықтау
4. lk – бұйым жасаудың әртүрлі әдістер
5. tikl – бұйым өңдеудің уақыты k-нің атаулары,
6. αk – бұйымға сұраныс k-нің атаулары k
7. S – алдын-ала ескерілгенді бұйымдардың сақталуына арналған
8. ckl – бұйымның өзіндік құны k-ның атаулары
9. ckl – талап етілетін бұйымның өзіндік құны
10. Басқаратын айнымалылар:
3. Мүмкін болатын шешімдердің анықтамасы
жабдықтау жұмыс фондының шектеулері.
- склад размері бойынша шектеулер.
- сұраныс бойынша шектеулер;
- өндірудің өзіндік құнының шектеулері
Басқару айнымалылары және параметрлері бойынша өзгерту критериясының нәтижесі
Пайданың максимизациясы:
П – пайданың қосындысы:
, Пк – k атаулы
Өзіндік құнның минимизациясы:
Станко сағаттарда көрсетілген Т өңдеудің уақыт қосындысының минимизациясы:
4) Өңдеу уақытының қосындысының минимизациясы:
Біз бір көп критерийлі немесе төрт біркритерийлі сызықтық
Егер сызықты емес пайда шығарылатын бұйымдардың санына тәуелді
Тапсырма
Институт 4 іздестіру проектілерін орындауға грант алды. 1-ші
Уақыт матрицасы:
Мұнда әр ғалымға аймен берілген жұмыстың ұзақтығы көрсетілген.
2.2 Математикалық модель құру
Математикалық модель есебін құрайық:
Есептің мақсаты: барлық орындалған проектінің уақыт қосындысын минималдау
Параметрлері есептің шартында берілген
3. Айнымалылардың басқармасы
4. Мақсатты функция
2.3 Есептi шығарудың нақты әдiсi
Тағайындау есебі Т.Е.Венгер әдісімен шешілуі мүмкін.
Тағайындау есебін шешу үшін кесте құрамыз.
1 бағанға жұмысқа кандидат номерін, ал 1 жолға
Әдіс алгоритмі:
Әр жолдан нөлді алу. Ол үшін әр жолдан
Әр бағаннан нөлді алу. Жаңа кестенің әр бағанынан
Оптималды шешімді іздеу.Нөлі аз жолды қарастырады. Осы жолдағы
Нөлдері бар жолдар мен бағандардың минималды жинағын іздеу.
Белгіленген нөлдері жоқ барлық жолдарды;
Белгіленген жолдың біреуінде болсын сызылған нөлі бар барлық
Белгіленген бағанның біреуінде болсын сызылған нөлі бар барлық
b және с қимылдары белгілейтін жол мен бағанбіткенге
5. Кейбір нөлдерді ауыстыру. Түзу өткізілген торлардан ең
6. Есептің мақсаты: барлық орындалған проектінің уақыт қосындысын
2.4 Есептің шешімі
Параметрлері есептің шартында берілген
Мақсатты функция:
Әр жолдан минималды элементті тауып, оны осы жолдың
№ 1 2 3 4 min
1 8 12 10 13 8
2 7 9 9 10 7
3 9 12 7 13 7
4 14 12 8 13 8
№ 1 2 3 4
1 0 4 2 5
2 0 2 2 3
3 2 5 0 6
4 6 4 0 5
Әр бағаннан минималды элементті тауып, оны осы жолдың
№ 1 2 3 4
1 0 4 2 5
2 0 2 2 3
3 2 5 0 6
4 6 4 0 5
min 0 2 0 3
№ 1 2 3 4
1 0 2 2 2
2 0 0 2 0
3 2 3 0 3
4 6 2 0 2
1-ші жолдағы нөлді белгілеп, 1-ші бағандағы қалғандарын сызып
№ 1 2 3 4
1 0. 2 2 2
2 0 0. 2 0
3 2 3 0. 3
4 6 2 0 2
– ші бағанда белгіленген ноль бар, 3 –
№ 1 2 3 4
1 0. 2 2 2
2 0 0. 2 0
3 2 3 0. 3
4 6 2 0 2
5.Қалған клеткадағы элемент 2 – ге тең. 2
№ 1 2 3 4
1 0 2 4 2
2 0 0 4 0
3 0 1 0 1
4 4 0 0 0
№ 1 2 3 4
1 -2 0 2 0
2 -2 -2 2 -2
3 0 1 0 1
4 4 0 0 0
Берілген таблицаны 3 қадамды қайталайық.
Белгіленген нольдер саны 4 тең. Осылайша біз оптималды
№ 1 2 3 4
1 0. 2 4 2
2 0 0. 4 0
3 0 1 0. 1
4 4 0 0 0.
Проектіні шығару уақыты:
Т=8+9+7+13=37ай
2.5 Есептің блок - схемасы
2.6 Есептің бағдарламасы (бағдарлама листингі)
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids, ExtCtrls, Buttons;
type
TForm1 = class(TForm)
SG1: TStringGrid;
Label2: TLabel;
Panel1: TPanel;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Edit6: TEdit;
Edit7: TEdit;
Edit8: TEdit;
Edit9: TEdit;
Edit10: TEdit;
Edit11: TEdit;
Edit12: TEdit;
Label3: TLabel;
BitBtn1: TBitBtn;
Edit21: TEdit;
Edit22: TEdit;
Edit23: TEdit;
Edit24: TEdit;
Button3: TButton;
Edit25: TEdit;
Edit26: TEdit;
Edit27: TEdit;
Edit28: TEdit;
Button4: TButton;
Button5: TButton;
Button6: TButton;
Button1: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
x1,x2,x3,x4,y1,y2,y3,y4,z1,z2,z3,z4,v1,v2,v3,v4,x11,x12,x13,x14,y11,y12,y13,y14,z11,z12,z13,z14,v11,v12,v13,v14, min:integer;
implementation
uses Unit2;
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
SG1.Cells[0,0]:='N';
SG1.Cells[0,1]:='1';
SG1.Cells[0,2]:='2';
SG1.Cells[0,3]:='3';
SG1.Cells[0,4]:='4';
SG1.Cells[1,0]:='1';
SG1.Cells[2,0]:='2';
SG1.Cells[3,0]:='3';
SG1.Cells[4,0]:='4';
SG1.Cells[1,1]:=edit1.text;
SG1.Cells[1,2]:=edit2.text;
SG1.Cells[1,3]:=edit3.text;
SG1.Cells[1,4]:=edit21.text;
SG1.Cells[2,1]:=edit4.text;
SG1.Cells[2,2]:=edit5.text;
SG1.Cells[2,3]:=edit6.text;
SG1.Cells[2,4]:=edit22.text;
SG1.Cells[3,1]:=edit7.text;
SG1.Cells[3,2]:=edit8.text;
SG1.Cells[3,3]:=edit9.text;
SG1.Cells[3,4]:=edit23.text;
SG1.Cells[4,1]:=edit10.text;
SG1.Cells[4,2]:=edit11.text;
SG1.Cells[4,3]:=edit12.text;
SG1.Cells[4,4]:=edit24.text;
SG1.Cells[5,0]:='min';
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
form2.show; end;
procedure TForm1.Button3Click(Sender: TObject);
begin
x1:=strtoint(edit1.Text );
x2:=strtoint(edit4.Text );
x3:=strtoint(edit7.Text );
x4:=strtoint(edit10.Text );
begin
if (x1edit25.Text:=inttostr(x1); end else
if (x2edit25.Text:=inttostr(x2); end else
if (x3edit25.Text:=inttostr(x3); end else
edit25.Text:=inttostr(x4); end;
SG1.Cells[5,1]:=edit25.Text ;
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
x1:=strtoint(edit1.Text );
x2:=strtoint(edit4.Text );
x3:=strtoint(edit7.Text );
x4:=strtoint(edit10.Text );
y1:=strtoint(edit2.Text );
y2:=strtoint(edit5.Text );
y3:=strtoint(edit8.Text );
y4:=strtoint(edit11.Text );
z1:=strtoint(edit3.Text );
z2:=strtoint(edit6.Text );
z3:=strtoint(edit9.Text );
z4:=strtoint(edit12.Text );
v1:=strtoint(edit21.Text );
v2:=strtoint(edit22.Text );
v3:=strtoint(edit23.Text );
v4:=strtoint(edit24.Text );
begin
if (y1edit26.text:=inttostr(y1); end else
if (y2edit26.Text:=inttostr(y2); end else
if (y3edit26.Text:=inttostr(y3); end else
edit26.Text:=inttostr(y4); end;
SG1.Cells[5,2]:=edit26.Text ;
end;
procedure TForm1.Button5Click(Sender: TObject);
begin
z1:=strtoint(edit3.Text );
z2:=strtoint(edit6.Text );
z3:=strtoint(edit9.Text );
z4:=strtoint(edit12.Text );
begin
if (z1edit27.text:=inttostr(z1); end else
if (z2edit27.Text:=inttostr(z2); end else
if (z3edit27.Text:=inttostr(z3); end else
edit27.Text:=inttostr(z4); end;
SG1.Cells[5,3]:=edit27.Text ;
end;
procedure TForm1.Button6Click(Sender: TObject);
begin
v1:=strtoint(edit21.Text );
v2:=strtoint(edit22.Text );
v3:=strtoint(edit23.Text );
v4:=strtoint(edit24.Text );
begin
if (v1edit28.text:=inttostr(v1); end else
if (v2edit28.Text:=inttostr(v2); end else
if (v3edit28.Text:=inttostr(v3); end else
edit28.Text:=inttostr(v4); end;
SG1.Cells[5,4]:=edit28.Text ;
button1.Visible:=true;
end;
end.
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, ExtCtrls, Grids;
type
TForm2 = class(TForm)
Label2: TLabel;
SG1: TStringGrid;
Panel1: TPanel;
Label3: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Edit6: TEdit;
Edit7: TEdit;
Edit8: TEdit;
Edit9: TEdit;
Edit10: TEdit;
Edit11: TEdit;
Edit12: TEdit;
Edit21: TEdit;
Edit22: TEdit;
Edit23: TEdit;
Edit24: TEdit;
BitBtn1: TBitBtn;
Button2: TButton;
Edit29: TEdit;
Edit30: TEdit;
Edit31: TEdit;
Edit32: TEdit;
Button7: TButton;
Button8: TButton;
Button9: TButton;
Button10: TButton;
Button1: TButton;
procedure Button2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button7Click(Sender: TObject);
procedure Button8Click(Sender: TObject);
procedure Button9Click(Sender: TObject);
procedure Button10Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
x1,x2,x3,x4,y1,y2,y3,y4,z1,z2,z3,z4,v1,v2,v3,v4,x11,x12,x13,x14,y11,y12,y13,y14,z11,z12,z13,z14,v11,v12,v13,v14,a,b,c,d, min:integer;
implementation
uses Unit1, Unit3;
{$R *.dfm}
procedure TForm2.Button2Click(Sender: TObject);
begin
x1:=strtoint(form1.Edit1.Text);
x2:=strtoint(form1.edit4.Text );
x3:=strtoint(form1.edit7.Text );
x4:=strtoint(form1.edit10.Text );
y1:=strtoint(form1.edit2.Text );
y2:=strtoint(form1.edit5.Text );
y3:=strtoint(form1.edit8.Text );
y4:=strtoint(form1.edit11.Text );
z1:=strtoint(form1.edit3.Text );
z2:=strtoint(form1.edit6.Text );
z3:=strtoint(form1.edit9.Text );
z4:=strtoint(form1.edit12.Text );
v1:=strtoint(form1.edit21.Text );
v2:=strtoint(form1.edit22.Text );
v3:=strtoint(form1.edit23.Text );
v4:=strtoint(form1.edit24.Text );
a:=strtoint(form1.edit25.Text );
b:=strtoint(form1.edit26.Text );
c:=strtoint(form1.edit27.Text );
d:=strtoint(form1.edit28.Text );
edit1.Text:=inttostr(x1-a);
edit4.Text:=floattostr(x2-a);
edit7.Text:=inttostr(x3-a);
edit10.Text:=inttostr(x4-a);
edit2.Text:=inttostr(y1-b);
edit5.Text:=floattostr(y2-b);
edit8.Text:=inttostr(y3-b);
edit11.Text:=inttostr(y4-b);
edit3.Text:=inttostr(z1-c);
edit6.Text:=floattostr(z2-c);
edit9.Text:=inttostr(z3-c);
edit12.Text:=inttostr(z4-c);
edit21.Text:=inttostr(v1-d);
edit22.Text:=floattostr(v2-d);
edit23.Text:=inttostr(v3-d);
edit24.Text:=inttostr(v4-d);
SG1.Cells[1,1]:=edit1.text;
SG1.Cells[1,2]:=edit2.text;
SG1.Cells[1,3]:=edit3.text;
SG1.Cells[1,4]:=edit21.text;
SG1.Cells[2,1]:=edit4.text;
SG1.Cells[2,2]:=edit5.text;
SG1.Cells[2,3]:=edit6.text;
SG1.Cells[2,4]:=edit22.text;
SG1.Cells[3,1]:=edit7.text;
SG1.Cells[3,2]:=edit8.text;
SG1.Cells[3,3]:=edit9.text;
SG1.Cells[3,4]:=edit23.text;
SG1.Cells[4,1]:=edit10.text;
SG1.Cells[4,2]:=edit11.text;
SG1.Cells[4,3]:=edit12.text;
SG1.Cells[4,4]:=edit24.text;
button7.Visible:=true;
button8.Visible:=true;
button9.Visible:=true;
button10.Visible:=true;
end;
procedure TForm2.FormCreate(Sender: TObject);
begin
SG1.Cells[0,0]:='N';
SG1.Cells[0,1]:='1';
SG1.Cells[0,2]:='2';
SG1.Cells[0,3]:='3';
SG1.Cells[0,4]:='4';
SG1.Cells[1,0]:='1';
SG1.Cells[2,0]:='2';
SG1.Cells[3,0]:='3';
SG1.Cells[4,0]:='4';
SG1.Cells[1,1]:=edit1.text;
SG1.Cells[1,2]:=edit2.text;
SG1.Cells[1,3]:=edit3.text;
SG1.Cells[1,4]:=edit21.text;
SG1.Cells[2,1]:=edit4.text;
SG1.Cells[2,2]:=edit5.text;
SG1.Cells[2,3]:=edit6.text;
SG1.Cells[2,4]:=edit22.text;
SG1.Cells[3,1]:=edit7.text;
SG1.Cells[3,2]:=edit8.text;
SG1.Cells[3,3]:=edit9.text;
SG1.Cells[3,4]:=edit23.text;
SG1.Cells[4,1]:=edit10.text;
SG1.Cells[4,2]:=edit11.text;
SG1.Cells[4,3]:=edit12.text;
SG1.Cells[4,4]:=edit24.text;
SG1.Cells[0,5]:='min';
end;
procedure TForm2.Button7Click(Sender: TObject);
begin
x11:=strtoint(edit1.Text );
x12:=strtoint(edit2.Text );
x13:=strtoint(edit3.Text );
x14:=strtoint(edit21.Text );
begin
if (x11edit29.Text:=inttostr(x11); end else
if (x12edit29.Text:=inttostr(x12); end else
if (x13edit29.Text:=inttostr(x13); end else
edit29.Text:=inttostr(x14); end;
SG1.Cells[1,5]:=edit29.Text ;
end;
procedure TForm2.Button8Click(Sender: TObject);
begin
y11:=strtoint(edit4.Text );
y12:=strtoint(edit5.Text );
y13:=strtoint(edit6.Text );
y14:=strtoint(edit22.Text );
begin
if (y11edit30.Text:=inttostr(y11); end else
if (y12edit30.Text:=inttostr(y12); end else
if (y13edit30.Text:=inttostr(y13); end else
edit30.Text:=inttostr(y14); end;
SG1.Cells[2,5]:=edit30.Text ;
end;
procedure TForm2.Button9Click(Sender: TObject);
begin
z11:=strtoint(edit7.Text );
z12:=strtoint(edit8.Text );
z13:=strtoint(edit9.Text );
z14:=strtoint(edit23.Text );
begin
if (z11edit31.Text:=inttostr(z11); end else
if (z12edit31.Text:=inttostr(z12); end else
if (z13edit31.Text:=inttostr(z13); end else
edit31.Text:=inttostr(z14); end;
SG1.Cells[3,5]:=edit31.Text ;
end;
procedure TForm2.Button10Click(Sender: TObject);
begin
v11:=strtoint(edit10.Text );
v12:=strtoint(edit11.Text );
v13:=strtoint(edit12.Text );
v14:=strtoint(edit24.Text );
begin
if (v11edit32.Text:=inttostr(v11); end else
if (v12edit32.Text:=inttostr(v12); end else
if (v13edit32.Text:=inttostr(v13); end else
edit32.Text:=inttostr(v14); end;
SG1.Cells[4,5]:=edit32.Text ;
button1.Visible:=true;
end;
procedure TForm2.Button1Click(Sender: TObject);
begin
form3.show;
end; end.
unit Unit3;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, ExtCtrls, Grids;
type
TForm3 = class(TForm)
Label2: TLabel;
SG1: TStringGrid;
Panel1: TPanel;
Label3: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Edit6: TEdit;
Edit7: TEdit;
Edit8: TEdit;
Edit9: TEdit;
Edit10: TEdit;
Edit11: TEdit;
Edit12: TEdit;
Edit21: TEdit;
Edit22: TEdit;
Edit23: TEdit;
Edit24: TEdit;
BitBtn1: TBitBtn;
Button2: TButton;
Button1: TButton;
Edit13: TEdit;
Button3: TButton;
Button4: TButton;
Edit14: TEdit;
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form3: TForm3;
x1,x2,x3,x4,y1,y2,y3,y4,z1,z2,z3,z4,v1,v2,v3,v4,x11,x12,x13,x14,y11,y12,y13,y14,z11,z12,z13,z14,v11,v12,v13,v14,a,b,c,d, min:integer;
implementation
uses Unit2, Unit1;
{$R *.dfm}
procedure TForm3.Button2Click(Sender: TObject);
begin
SG1.Cells[0,0]:='N';
SG1.Cells[0,1]:='1';
SG1.Cells[0,2]:='2';
SG1.Cells[0,3]:='3';
SG1.Cells[0,4]:='4';
SG1.Cells[1,0]:='1';
SG1.Cells[2,0]:='2';
SG1.Cells[3,0]:='3';
SG1.Cells[4,0]:='4';
x1:=strtoint(form2.Edit1.Text);
x2:=strtoint(form2.edit4.Text );
x3:=strtoint(form2.edit7.Text );
x4:=strtoint(form2.edit10.Text );
y1:=strtoint(form2.edit2.Text );
y2:=strtoint(form2.edit5.Text );
y3:=strtoint(form2.edit8.Text );
y4:=strtoint(form2.edit11.Text );
z1:=strtoint(form2.edit3.Text );
z2:=strtoint(form2.edit6.Text );
z3:=strtoint(form2.edit9.Text );
z4:=strtoint(form2.edit12.Text );
v1:=strtoint(form2.edit21.Text );
v2:=strtoint(form2.edit22.Text );
v3:=strtoint(form2.edit23.Text );
v4:=strtoint(form2.edit24.Text );
a:=strtoint(form2.edit29.Text );
b:=strtoint(form2.edit30.Text );
c:=strtoint(form2.edit31.Text );
d:=strtoint(form2.edit32.Text );
edit1.Text:=inttostr(x1-a);
edit2.Text:=floattostr(y1-a);
edit3.Text:=inttostr(z1-a);
edit21.Text:=inttostr(v1-a);
edit4.Text:=inttostr(x2-b);
edit5.Text:=floattostr(y2-b);
edit6.Text:=inttostr(z2-b);
edit22.Text:=inttostr(v2-b);
edit7.Text:=inttostr(x3-c);
edit8.Text:=floattostr(y3-c);
edit9.Text:=inttostr(z3-c);
edit23.Text:=inttostr(v3-c);
edit10.Text:=inttostr(x4-d);
edit11.Text:=floattostr(y4-d);
edit12.Text:=inttostr(z4-d);
edit24.Text:=inttostr(v4-d);
SG1.Cells[1,1]:=edit1.text;
SG1.Cells[1,2]:=edit2.text;
SG1.Cells[1,3]:=edit3.text;
SG1.Cells[1,4]:=edit21.text;
SG1.Cells[2,1]:=edit4.text;
SG1.Cells[2,2]:=edit5.text;
SG1.Cells[2,3]:=edit6.text;
SG1.Cells[2,4]:=edit22.text;
SG1.Cells[3,1]:=edit7.text;
SG1.Cells[3,2]:=edit8.text;
SG1.Cells[3,3]:=edit9.text;
SG1.Cells[3,4]:=edit23.text;
SG1.Cells[4,1]:=edit10.text;
SG1.Cells[4,2]:=edit11.text;
SG1.Cells[4,3]:=edit12.text;
SG1.Cells[4,4]:=edit24.text;
button3.Visible:=true;
button2.Visible:=false;
end;
procedure TForm3.Button3Click(Sender: TObject);
begin
x1:=strtoint(Edit1.Text);
x2:=strtoint(edit4.Text );
x3:=strtoint(edit7.Text );
x4:=strtoint(edit10.Text );
y1:=strtoint(edit2.Text );
y2:=strtoint(edit5.Text );
y3:=strtoint(edit8.Text );
y4:=strtoint(edit11.Text );
z1:=strtoint(edit3.Text );
z2:=strtoint(edit6.Text );
z3:=strtoint(edit9.Text );
z4:=strtoint(edit12.Text );
v1:=strtoint(edit21.Text );
v2:=strtoint(edit22.Text );
v3:=strtoint(edit23.Text );
v4:=strtoint(edit24.Text );
SG1.Cells[1,2]:=inttostr(y1+2);
SG1.Cells[3,2]:=inttostr(y3+2);
SG1.Cells[2,1]:=inttostr(x2-2);
SG1.Cells[4,1]:=inttostr(x4-2);
SG1.Cells[2,3]:=inttostr(z2-2);
SG1.Cells[2,4]:=inttostr(v2-2);
SG1.Cells[4,3]:=inttostr(z4-2);
SG1.Cells[4,4]:=inttostr(v4-2);
edit2.Text:=inttostr(y1+2);
edit8.Text:=inttostr(y3+2);
edit4.Text:=inttostr(x2-2);
edit10.Text:=inttostr(x4-2);
edit6.Text:=inttostr(z2-2);
edit22.Text:=inttostr(v2-2);
edit12.Text:=inttostr(z4-2);
edit24.Text:=inttostr(v4-2);
button1.Visible:=true;
button4.Visible:=true;
end;
procedure TForm3.Button1Click(Sender: TObject);
begin
x1:=strtoint(Edit1.Text);
x2:=strtoint(edit4.Text );
x3:=strtoint(edit7.Text );
x4:=strtoint(edit10.Text );
y1:=strtoint(edit2.Text );
y2:=strtoint(edit5.Text );
y3:=strtoint(edit8.Text );
y4:=strtoint(edit11.Text );
z1:=strtoint(edit3.Text );
z2:=strtoint(edit6.Text );
z3:=strtoint(edit9.Text );
z4:=strtoint(edit12.Text );
v1:=strtoint(edit21.Text );
v2:=strtoint(edit22.Text );
v3:=strtoint(edit23.Text );
v4:=strtoint(edit24.Text );
edit13.Text:=inttostr(8*x1+12*x2+10*x3+13*x4+7*y1+9*y2+9*y3+10*y4+9*z1+12*z2+7*z3+13*z4+14*v1+12*v2+8*v3+13*v4);
end;
procedure TForm3.Button4Click(Sender: TObject);
begin
x1:=strtoint(form1.edit1.Text);
v2:=strtoint(form1.edit5.Text);
z3:=strtoint(form1.edit9.Text);
v4:=strtoint(form1.edit24.Text);
edit14.Text:=inttostr(x1+v2+z3+v4);
end;
end.
unit Unit4;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, OleCtrls, SHDocVw, StdCtrls, Buttons, jpeg, ExtCtrls;
type
TForm4 = class(TForm)
Image1: TImage;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
SpeedButton3: TSpeedButton;
SpeedButton4: TSpeedButton;
SpeedButton5: TSpeedButton;
SpeedButton6: TSpeedButton;
SpeedButton7: TSpeedButton;
SpeedButton8: TSpeedButton;
Label1: TLabel;
SpeedButton9: TSpeedButton;
Panel1: TPanel;
WebBrowser1: TWebBrowser;
procedure SpeedButton4Click(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
procedure SpeedButton3Click(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton9Click(Sender: TObject);
procedure SpeedButton6Click(Sender: TObject);
procedure SpeedButton5Click(Sender: TObject);
procedure SpeedButton8Click(Sender: TObject);
procedure SpeedButton7Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form4: TForm4;
implementation
uses Unit1;
{$R *.dfm}
procedure TForm4.SpeedButton4Click(Sender: TObject);
begin
SpeedButton9.Visible:=true;
panel1.Visible:=true;
WebBrowser1.Navigate(ExtractFilePath(Application.ExeName) + '1.htm');
end;
procedure TForm4.SpeedButton2Click(Sender: TObject);
begin
SpeedButton9.Visible:=true;
panel1.Visible:=true;
WebBrowser1.Navigate(ExtractFilePath(Application.ExeName) + '2.htm');
end;
procedure TForm4.SpeedButton3Click(Sender: TObject);
begin
SpeedButton9.Visible:=true;
panel1.Visible:=true;
WebBrowser1.Navigate(ExtractFilePath(Application.ExeName) + '1.htm');
end;
procedure TForm4.SpeedButton1Click(Sender: TObject);
begin
SpeedButton9.Visible:=true;
panel1.Visible:=true;
WebBrowser1.Navigate(ExtractFilePath(Application.ExeName) + '2.htm');
end;
procedure TForm4.SpeedButton9Click(Sender: TObject);
begin
panel1.Visible:=false;
SpeedButton9.Visible:=false;
end;
procedure TForm4.SpeedButton6Click(Sender: TObject);
begin
panel1.Visible:=false;
SpeedButton9.Visible:=false;
form1.show;
form4.Hide;
end;
procedure TForm4.SpeedButton5Click(Sender: TObject);
begin
panel1.Visible:=false;
SpeedButton9.Visible:=false;
form1.show;
form4.Hide;
end;
procedure TForm4.SpeedButton8Click(Sender: TObject);
begin
close;
end;
procedure TForm4.SpeedButton7Click(Sender: TObject);
begin
close;
end;
end.
2.7. Программаны баяндау бөлімі
procedure TForm1.Button1Click(Sender: TObject) - 1 жолдың минимумын табу
procedure TForm1.Button2Click(Sender: TObject) - 2 жолдың минимумын табу
procedure TForm1.Button3Click(Sender: TObject) - 3 жолдың минимумын табу
procedure TForm1.Button4Click(Sender: TObject) - 4 жолдың минимумын табу
procedure TForm1.Button5Click(Sender: TObject) – 1 бағананың минимумын табу
procedure TForm1.Button6Click(Sender: TObject) – 2 бағананың минимумын табу
procedure TForm1.Button7Click(Sender: TObject) – 3 бағананың минимумын табу
procedure TForm1.Button8Click(Sender: TObject) – 4 бағананың минимумын табу
procedure TForm3.Button2Click(Sender: TObject) – 1 кестені құру процедурасы
procedure TForm3.Button1Click(Sender: TObject) – есептін шешімін табу процедурасы
procedure TForm4.SpeedButton4Click(Sender: TObject) – есептің берілгенін шығару
procedure TForm4.SpeedButton2Click(Sender: TObject) – есептің шығарудың нақты әдісін
procedure TForm4.SpeedButton6Click(Sender: TObject) – есепті шешімі
Finalization орындалатын
3. ҚОРЫТЫНДЫ
Курстық жұмыстың тақырыбы «Тағайындау есебін Т.Е.Венгер әдісімен шешу»
Алға қойылған мақсат тапсырысты орындаушылардың сандық мәндері тапсырыс
Венгер әдісімен шешу, көптеген қаржы мөлшерін үнемдеуге мүмкіншілік
Есепті шығара отырып, өзіме қажетті жағдайларды оқып
Бұл есепте қарастырылатын барлық әдістерді меңгердiм деген ойдамын.
Бұл есептің шешімі Delphi 6.0 программалау ортасында жасалған.
Бағдарлама интерфейсі пайдаланушыға ыңғайлы және түсінікті. Барлық еңгізілген
Қорыта келгенде мен өзіме берілген курыстық жұмысты
ҚОЛДАНЫЛҒАН ӘДЕБИЕТТЕР
В.Б. Попов “ Turbo Pascal ” Москва “Финансы
Абрамов В.Г. “Введение в языке Паскаль.” М. Наука.
Пильщиков В.Н. “Сборник упражнений на языке Паскаль. ”
Ян Борецкий. “Турбо – Паскаль с графикой для
Л.М. Калимова. “Практическое программирование. Решение Типовых задач. Pascal
Фаронов В.В “ Turbo Pascal 7.0. ”. Начальное
А.И. Марченко, Л.А. Марченко. “Программирование в среде Turbo
Аитов Ж.А., Мақамбаев М.Б. “ Паскаль тілінде программалау”,
А. Колесникова, В. Гинзбург “Турбо Паскаль 7.0” Киев,
Ғылыми - әдістемелік журнал “Информатика негіздері” 2002 –
А.П. Ершов, В.М. Монахова “Информатика мен Есептеуіш техника
А.Г. Кушниренко, Г.Н. Лебедев, Р.А. Соверень “Информатика мен
Н.М. Шахмаев, С.Н. Шахмаев, Д.Ш. Шодиев “Физика 9”,
Б. Кронгарт, В. Кем, Н. Қойшыбаев “Физика” 10,
Г.Я. Мякишев, Б.Б. Буховцев “Физика 10 ”,
Р. Башарұлы, Г.Байжасарова, У.Тоқбергенова “Физика 10 ”, Алматы
Г.Я. Мякишев, Б.Б. Буховцев “ Физика 11 ”,
18. Терехов Л.Л. “ Экономика – математические методы.
19. И.Л. Акулич. “ Математическое програмирование в примерах.
20. И.Л. Калихман.”Сборник задач по математическому програмированию”
21. В.В. Мякинков. “Экономико-математические методы в планировании”
Москва, 1982г.
31
№ 1 2 … …
1 …
2 …
… … … … … … …
… …
… … … … … … …
… …
1 жолдың
минимумын табу
2 жолдың
минимумын табу
4 жолдың
минимумын табу
3 жолдың
минимумын табу
1 жолдың
минимумын табу
2 жолдың
минимумын табу
3 жолдың
минимумын табу
4 жолдың
минимумын табу
Басы
Мәліметтерді енгізу
Есептің шешімін табу
Соңы
Кестені толтыру
