Программаның логикалық құрылымы

1-40.зауыттар санын, қоймалар санын, өндірілетін өнім, тұтынатын өнім және тасу құнын енгізу.

41.stringgrid2 ұзындығын және колонка санын табу.

42.b массивінің индексі.

43.g массивінің индексі.

44.жол нөмірі.

45.қатар нөмірі.

46-47.матрица өлшемі.

48.текстік файл.

49-51.массив өлшемдері.

52.h cуммасы.

89-90.массивті d көшіреміз,қорытынды файлға жазылу үшін.

102-110.жолдан min табу.

111.егер табылса,

112-118.онда қосу.

146.егер элемент нөлге тең болса,

149.жол нөмірін сақтау.

150.қатар нөмірін сақтау.

156.0-дік элемент табылған қатардан min табу

160.0-дік элемент табылған қатардан min табу.

162.элементтнрді қосу.

164-171.осы элементтерден max табу.

188-191.max табылған жерден қатар мен жолды сызу.

219. Матрица результаты.

235-248. соңғы қорытынды.

250. s-ті f (1)файлына жазу.

261.f(1)файлын жабу.

263-266. форма 2 көрсету.

267-270. форма 3 көрсету.

271-275. барлық формаларды жабу.

Енгізілген мәліметтер

Шығарылған мәліметтер

ОРЫТЫНДЫ

Бұл курстық жұмысты орындау барысында операцияны зерттеудің негізгі принциптерімен таныстық. Есептің шешімін табу үшін курс барысында өткен операцияны зерттеу әдістерінің ішіндегі Коммивояжер есебінің әдісі

Литтл алгоримін практика жүзінде қолдануды үйрендік. Қолмен есептеу барысында табылған шешімді Delphi7 ортасында жазылған программамен тексеру арқылы ол мәндердің бір-біріне сәйкес келгеніне көз жеткіздім.

Сондықтан, мен өзімнің бұл курстық жұмыс тапсырмамды қоғамның көп болмаса да,қажетті салалары үшін тек қана пайдалы әсер береді деп тұжырымдаймын.

Қорыта келе, біз химиялық агрегатты айдағаннан кейін, әр түрлі бояулaрды қосылғандағы шығынын кемітудің жалпы соммасын есептедік Бұл курстық жұмысқа көрсетілген есепті формалдаудан кейін Литтл алгоритмімен шығарылуы талап етілген. Сондықтан, Литтл алгориттмін Delphi7 ортасында программа жазу арқылы бұл есептің жауабына қол жеткіздім.

ОЛДАНЫЛҒАН ӘДЕБИЕТТЕР ТІЗІМІ

1 Вагнер Г. Основы исследования операций. Т.1-3-М.: Мир, 1973

2 Зуховицкий С.Н., Авдеева Л.И. Линейное и выпуклое программирование. М: Наука 1967.

3 Исследование операций (в 2 – х книгах). Кн.1: Методические основы и математические методы / Под ред. Дж.Моудера, С.Элмаграби. М: Мир 1981.

4 Балгабаева Л.Ш. Шешімдер қабылдау теориясы пәнінен электронды оқулық. Алматы: ҚазҰТУ, 2004

5 Таха Х. Введение в исследование операций (в 2 – х книгах).

М: Мир 1985.

6 Балгабаева Л.Ш., Ким Е.Р. Сборник задач. Часть 2. Методические указания к практическим занятием до дисциплинам “Основы исследования операций ” и “Теория принятия решений ” : Алматы. КазНТУ, 2005

Осымша А

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Grids;

type

mas = array [0..20,0..20] of real;

mas2 = array [1..2,1..100] of real;

abba = record

i:integer;

j:integer;

baga:real;

end;

mas1 = array [1..100] of abba;

TForm1 = class(TForm)

StringGrid1: TStringGrid;

StringGrid2: TStringGrid;

Edit1: TEdit;

Edit2: TEdit;

Button1: TButton;

Label1: TLabel;

Label2: TLabel;

Button2: TButton;

StringGrid3: TStringGrid;

procedure FormCreate(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

count,

ind,

flag1,

bn,

gn,

ii,

jj

n:integer;

b,d,a:mas;

INF,OUTF:textfile;

C:mas1;

g:array [1..20] of integer;

e:mas2;

H:real;

implementation

procedure File_Read(var x:textfile; s:string; var y:mas; var a:integer);

var i,j:integer;

begin

AssignFile(x,s);

Reset(x);

read(x,a);

readln(x);

for i:=1 to n do

begin

y[i,0]:=i;

y[0,i]:=i;

end;

for i:=1 to a do

begin

for j:=1 to a do

read(x,y[i,j]);

readln(x);

end;

Closefile(x);

end;

procedure Min_Rows(var x:mas; var Y:real);

var i,j:integer;

flag:boolean;

min:real;

begin

for i:=1 to n do

begin

min:=1000;

flag:=false;

for j:=1 to n do

begin

if ((min > x[i,j]) and (x[i,j]>=0)) then

begin

min:=x[i,j];

flag:=true;

end;

end;

if (flag) then

begin

Y:=Y + min;

for j:=1 to n do

if (x[i,j]>=0) then

x[i,j]:=x[i,j] - min;

end;

end;

end;

procedure Min_Cols(var x:mas; var Y:real);

var i,j:integer;

min:real;

flag:boolean;

begin

for j:=1 to n do

begin

min:=1000;

flag:=false;

for i:=1 to n do

begin

if ((min > x[i,j]) and (x[i,j]>=0)) then

begin

min:=x[i,j];

flag:=true;

end;

end;

if (flag) then

begin

Y:=Y + min;

for i:=1 to n do

if (x[i,j]>=0) then

x[i,j]:=x[i,j] - min;

end;

end;

end;

procedure Find_C(var x:mas1; var y:integer; var max:real);

var i,j,k:integer;

min:real;

begin

y:=0;

for i:=1 to n do

begin

for j:=1 to n do

if ((i <> j) and (a[i,j]=0) and (a[i,j]>-1)) then

begin

inc(y);

C[y].i:=i;

C[y].j:=j;

end;

end;

for k:=1 to y do

begin

min:=1000;

for i:=C[k].i to C[k].i do

for j:=1 to n do

if ((i <> j) and (min > a[i,j]) and (j <> C[k].j) and (a[i,j]>-1)) then

min:=a[i,j];

C[k].baga:=min;

min:=1000;

for j:=C[k].j to C[k].j do

for i:=1 to n do

if ((i <> j) and (min > a[i,j]) and (i <> C[k].i) and (a[i,j]>-1)) then

min:=a[i,j];

C[k].baga:=C[k].baga + min;

end;

max:=-1;

for k:=1 to y do

if (max < C[k].baga) then

begin

max:=C[k].baga;

ii:=C[k].i;

jj:=C[k].j;

end;

end;

procedure Write_in_File();

var i,j,x,y:integer;

s:string;

begin

Append(OUTF);

writeln(OUTF);

writeln(OUTF);

writeln(OUTF,'');

writeln(OUTF);

for i:=1 to n do

if (1 = e[i,1]) then

x:=i;

s:=floattostr(e[x,1])+'-->'+floattostr(e[x,2]);

write(OUTF,s);

for i:=1 to n-1 do

begin

for j:=1 to n do

if (e[x,2] = e[j,1]) then

begin

y:=j;

break;

end;

s:='-->'+floattostr(e[y,2]);

write(OUTF,s);

x:=y;

end;

closefile(OUTF);

end;

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

var i,j:integer;

begin

H:=0;

flag1:=0;

File_Read(INF,'input.txt',a,n);

count:=n;

bn:=n;

ind:=1;

gn:=0;

AssignFile(OUTF,'output.txt');

Rewrite(OUTF);

writeln(OUTF);

for i:=0 to n do

for j:=0 to n do

begin

d[i,j]:=a[i,j];

// b[i,j]:=a[i,j];

end;

Stringgrid1.ColCount:=n+1;

Stringgrid1.RowCount:=n+1;

Stringgrid3.ColCount:=n+1;

Stringgrid3.RowCount:=n+1;

for i:=0 to n do

for j:=0 to n do

if (a[i,j]= -1) then

Stringgrid1.Cells[j,i]:='x'

else

Stringgrid1.Cells[j,i]:=floattostr(a[i,j]);

end;

procedure TForm1.Button1Click(Sender: TObject);

var m1,k,i,j,m,flag,p,l:integer;

max:real;

s:string;

begin

dec(count);

Append(OUTF);

m:=0;

Min_Rows(a,H);

Min_Cols(a,H);

Find_C(C,m,max);

edit1.Text:=floattostr(H);

a[jj,ii]:=-1;

e[ind,1]:=ii;

e[ind,2]:=jj;

inc(ind);

Stringgrid3.ColCount:=bn;

Stringgrid3.RowCount:=bn;

dec(bn);

writeln(OUTF);

s:=floattostr(ii)+'-->'+floattostr(jj)+'('+floattostr(d[ii,jj])+') ';

write(OUTF,s);

for i:=1 to n do

a[i,jj]:=-2;

for j:=1 to n do

a[ii,j]:=-2;

l:=0;

for i:=0 to n do

begin

p:=-1;

flag:=0;

for j:=1 to n do

if (a[i,j] = -2) then

inc(flag);

for j:=0 to n do

if ((a[i,j]>-2) and (flag <> n)) then

begin

inc(p);

b[l,p]:=a[i,j];

end;

if (flag <> n) then

inc(l);

end;

for i:=0 to bn do

for j:=0 to bn do

begin

if (b[i,j]= -1) then

Stringgrid3.Cells[j,i]:='x';

if (b[i,j] >= 0) then

Stringgrid3.Cells[j,i]:=floattostr(b[i,j]);

end;

edit2.Text:=floattostr(max);

if (flag1 = 0) then

begin

m1:=m;

Stringgrid2.RowCount:=m;

Stringgrid2.Height:=17*m;

end;

flag1:=1;

for k:=0 to m do

begin

Stringgrid2.Cells[1,k]:=floattostr(C[k+1].baga);

Stringgrid2.Cells[0,k]:='C['+inttostr(C[k+1].i)+ ',' + inttostr(C[k+1].j)+']';

end;

for k:=m to Stringgrid2.RowCount-1 do

begin

Stringgrid2.Cells[1,k]:=' ';

Stringgrid2.Cells[0,k]:=' ';

end;

for i:=0 to n do

for j:=0 to n do

begin

if (a[i,j]= -1) then

begin

Stringgrid1.Cells[j,i]:='x';

end;

if (a[i,j]= -2) then

begin

Stringgrid1.Cells[j,i]:=' '

end;

if (a[i,j] >= 0) then

Stringgrid1.Cells[j,i]:=floattostr(a[i,j]);

end;

closefile(OUTF);

if (count = 0) then

Button1.Enabled:=false;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

Write_in_File();

end;

end.