Симплекс әдісі арқылы шаруашылықтың максимум пайда табуын анықтау

var

a: array [1..3, 1..3] of integer;

i,j:integer;

jn1,jn2,jn3:integer;

bn1,bn2,bn3:integer;

ҚОСЫМША  Б  жалғасы

ls,rs:integer;

begin

for i:=1 to 3 do

for j:=1 to 3 do

a[i,j]:=strtoint(stringgrid1.Cells[i,j]);

 

begin

jn1:=0;

i:=1;

for j:=1 to 3 do

if a[j,i]mod 2=0 then jn1:=jn1+1;

 

begin

jn2:=0;

i:=2;

for j:=1 to 3 do

if a[j,i]mod 2=0 then jn2:=jn2+1;

 

begin

jn3:=0;

i:=3;

for j:=1 to 3 do

if a[j,i]mod 2=0 then jn3:=jn3+1;

 

 

begin

bn1:=0;

j:=1;

for i:=1 to 3 do

if (a[j,i]<0) then bn1:=bn1+1;

 

begin

bn2:=0;

j:=2;

for i:=1 to 3 do

 ҚОСЫМША  Б жалғасы

if (a[j,i]<0) then bn2:=bn2+1;

 

begin

bn3:=0;

j:=3;

for i:=1 to 3 do

if (a[j,i]<0) then bn3:=bn3+1;

 

begin

ls:=a[1,1]+a[2,2]+a[3,3];

rs:=a[1,3]+a[2,2]+a[3,1];

label1.caption:='1-ши баганындагы  терис сандар саны:  '+inttostr(bn1)+#13+'2-ші  баганындагы терис сандар саны:  '+inttostr(bn2)+#13+'3-ші баганындагы терис  сандар саны:  '+inttostr(bn3)+#13+'Сол жак  диоганаль:  '+inttostr(ls)+#13+'Он жак диоганаль:  '+inttostr(rs)+#13+'1-ші жолдагы жуп сандар саны:  '+inttostr(jn1)+#13+'2-ші жолдагы жуп сандар саны:  '+inttostr(jn2)+#13+'3-ші жолдагы жуп сандар саны:  '+inttostr(jn3);

end;

end;

end;

end;

end;

end;

end;

end;

end.

       

 

 

 

 

 

БАҚЫЛАУ МЫСАЛЫ

 

 

 

 

					ПКАТ 3706002.002 – 26.ТХ	Бет
Өл	Бет	Құжат №	Қолы	Күні