Симплекс әдісі арқылы шаруашылықтың максимум пайда табуын анықтау
Курсовая работа, 26 Января 2013, автор: пользователь скрыл имя
Описание
Құрылған бағдарлама Delphi тілінде жазылған. Delphi бағдарламалау тілі көптеген курстық жобаларды, өзінің процедуралы және логикалық, объектілі бағдарлы байлықтарымен жүзеге асырады. Delphi тілінде бағдарлама құру өте қолайлы, маңызды және тиімді болып келеді.
Работа состоит из 1 файл
Айжан курсавой.doc
— 570.50 Кб (Скачать документ)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.
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-ши
end;
end;
end;
end;
end;
end;
end;
end;
end.
БАҚЫЛАУ МЫСАЛЫ
ПКАТ 3706002.002 – 26.ТХ |
Бет | |||||
Өл |
Бет |
Құжат № |
Қолы |
Күні |