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

1. Вентцель Е.С. Исследование операции. М.: Советское радио, 1972.

2. Таха Х. Введение в исследование операций. Москва: Мир, 1985.

3. Балғабаева Л.Ш. Сызықтық және бейсызықтық бағдарламалау.

ҚазҰТУ 1997.

4. Балғабаева Л.Ш., Мураталиева Е.П. Автоматтандырылған басқарудың модельдері мен әдістері. Тәжірибелік сабақтарға және курстық жұмыс орындау үшін арналған әдістемелік нұсқаулар. – Алматы: КазҰТУ, 2003.

5. Балғабаева Л.Ш., Ким Е.Р. Сборник задач. Часть 1, 2, 3. Методические указания к практическим занятиям по дисциплинам «Основы исследования операций» и «Теория принятия решений». – Алматы: КазНТУ, 2005.

6. Балғабаева Л.Ш.Операцияларды зерттеудің негіздері.ҚазҰТУ 2008

7. Балгабаева Л.Ш. Шешімдер қабылдау теориясы пәнінен ОӘК.

Алматы: ҚазҰТУ, 2010.

Осымша А

unit Unit1;

interface

uses

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

Dialogs, jpeg, ExtCtrls, StdCtrls;

type

TForm1 = class(TForm)

Image1: TImage;

Button1: TButton;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

uses unit2;

procedure TForm1.Button1Click(Sender: TObject);

begin

Form1.Close;

end;

end.

unit Unit2;

interface

uses

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

Dialogs, StdCtrls, Grids;

type

TForm2 = class(TForm)

Button1: TButton;

Button2: TButton;

StringGrid1: TStringGrid;

Button3: TButton;

Label1: TLabel;

StringGrid2: TStringGrid;

Label2: TLabel;

Button4: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

q,w,i,j,m,n,c,d:integer;h:integer=0;

k:real;

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

b4:array[1..10000,1..10000] of integer;

b2,b3:array[1..100] of integer;

b:array[1..100] of real;

q1,w1:string;

implementation

{$R *.dfm}

uses unit1;

procedure TForm2.Button1Click(Sender: TObject);

label mmm;

begin

assignfile(input,'input111.txt'); reset(input);

assignfile(output,'output111.txt'); rewrite(output);

read(n);

read(m);

for i:=1 to n do

begin

for j:=1 to m do

begin

read(a[i,j]);

end;

end;

mmm:

d:=0;

for i:=2 to n-1 do

begin

for j:=2 to m-1 do

begin

if (a[i,m]<0) and (a[i,j]<0) then

begin

inc(d);

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

b2[d]:=i;

b3[d]:=j;

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

end;

end;

end;

for i:=1 to d do

begin

if b[i]<0 then

begin

if b[1]<b[i] then

begin

b[1]:=b[i];

b2[1]:=b2[i];

b3[1]:=b3[i];

b4[1,1]:=b4[1,i];

end;

end;

end;

c:=1;

for i:=b2[1]+c to n do

begin

for j:=2 to b3[1]-1 do

a[i,j]:=a[i,j]*a[b2[1],b3[1]]-a[i,b3[1]]*a[b2[1],j];

c:=c+1;

end;

for i:=2 to b2[1]-1 do

for j:=2 to b3[1]-1 do

a[i,j]:=a[i,j]*a[b2[1],b3[1]]-a[i,b3[1]]*a[b2[1],j];

for i:=2 to b2[1]-1 do

for j:=b3[1]+1 to m do

a[i,j]:=a[i,j]*a[b2[1],b3[1]]-a[i,b3[1]]*a[b2[1],j];

c:=1;

for i:=b2[1]+c to n do

begin

for j:=b3[1]+1 to m do

a[i,j]:=a[i,j]*a[b2[1],b3[1]]-a[i,b3[1]]*a[b2[1],j];

c:=c+1

end;

a[b2[1],b3[1]]:=1;

for i:=2 to b2[1]-1 do

a[i,b3[1]]:=a[i,b3[1]]*(-1);

for i:=b2[1]+1 to n do

a[i,b3[1]]:=a[i,b3[1]]*(-1);

q:=a[1,b3[1]];

w:=a[b2[1],1];

a[1,b3[1]]:=w;

a[b2[1],1]:=q;

q1:=StringGrid1.Cells[b3[1]-1,0];

w1:=StringGrid1.cells[0,b2[1]-1];

StringGrid1.Cells[b3[1]-1,0]:=w1;

StringGrid1.cells[0,b2[1]-1]:=q1;

writeln;

writeln;

for i:=2 to n do

begin

for j:=2 to m do

begin

a[i,j]:=a[i,j]*b4[1,1];

end;

end;

write('Sheshushi element',' ','a[', b2[1]-1,' ',b3[1]-1,']','=', a[b2[1],b3[1]]);

writeln;

showmessage('Sheshushi element'+' '+'a['+ inttostr(b2[1]-1)+' '+inttostr(b3[1]-1)+']='+ inttostr(a[b2[1],b3[1]]));

for i:=1 to n do

begin

for j:=1 to m do

write(' ',a[i,j],' ');

writeln;

end;

for i:=2 to n do

for j:=2 to m do

StringGrid1.Cells[j-1,i-1]:=IntToStr(a[i,j]);

for i:=2 to n-1 do

if a[i,m]<0 then goto mmm;

for i:=2 to n-1 do

begin

if a[i,1]<50 then

begin

write('x', a[i,1],'=',a[i,m]);

StringGrid2.Cells[0,h]:='X'+IntToStr(a[i,1]);

StringGrid2.Cells[1,h]:=inttostr(a[i,m]);

inc(h);

writeln;

end;

end;

for i:=2 to m-1 do

begin

if a[1,i]<20 then

begin

write('x', a[1,i],'=',0);

StringGrid2.Cells[0,h]:='X'+IntToStr(a[1,i]);

StringGrid2.Cells[1,h]:='0';

inc(h);

writeln;

end;

end;

write('z=',a[n,m]);

closefile(input); closefile(output);

showmessage('songgi natije');

end;

procedure TForm2.Button2Click(Sender: TObject);

begin

close;

end;

procedure TForm2.Button3Click(Sender: TObject);

begin

assignfile(input,'input111.txt'); reset(input);

assignfile(output,'output111.txt'); rewrite(output);

read(n);

read(m);

StringGrid1.ColCount:=m;

StringGrid1.RowCount:=n;

StringGrid2.RowCount:=m-2;

for i:=1 to n-2 do

StringGrid1.Cells[0,i]:='Y'+IntToStr(i);

StringGrid1.Cells[0,n-1]:='Z';

for i:=1 to m-2 do

StringGrid1.Cells[i,0]:='X'+IntToStr(i);

StringGrid1.Cells[m-1,0]:='1';

for i:=1 to n do

begin

for j:=1 to m do

read(a[i,j]);

end;

for i:=2 to n do

for j:=2 to m do

StringGrid1.Cells[j-1,i-1]:=IntToStr(a[i,j]);

closefile(input); closefile(output);

end;

procedure TForm2.Button4Click(Sender: TObject);

begin

Form1.Show;

end;

end.

Қосымша Ә

Date: 2016-05-13; view: 376; Нарушение авторских прав