Предыдущая страница реферата | 5  6  7  8  9  10  11  12  13  14  15 | Следующая страница реферата

function ToStr(const D : real) : string; var S : string; begin str(D:6:2, S);

ToStr:=' ' + S + ' '; end;

procedure WriteMatrixs;

procedure WriteTargetMatrix; var i : integer; begin writeln(' +------------------------------------
--------------+'); write (' ¦ Target ¦'); for i:=1 to n+m do write(ToStr(TargetVector[i]),'¦'); writeln; end;

procedure WriteMatrixA; var i,j : integer; begin writeln(' +-----------------+--------+--------+--------+--------+
-----+--------¦'); writeln(' ¦ Basis ¦ D.Basis¦ A 0 ¦ A 1 ¦ A 2 ¦ A 3 ¦
A 4 ¦ A 5 ¦'); writeln(' +--------+--------+--------+--------+--------+--------+
-----+--------¦'); for i:=1 to m do

- 34 -

begin write(' ¦ A ',BasisVector[i],'
¦',ToStr(DigitOfBasisVector[i]),'¦'); for j:=0 to m+n do write(ToStr(VectorA[i, j]),'¦'); writeln; if i = m then writeln(' +--------+--------+--------+--------+--
---+--------+--------+--------¦') else writeln(' +--------+--------+--------+--------+--
---+--------+--------+--------¦'); end; end;

procedure WriteMatrixSimplex; var i : integer; begin write(' ¦ Simplex¦'); for i:=0 to m+n do write(ToStr(SimplexVector[i]),'¦'); writeln; writeln(' +---------------------------------------------
--------------+'); end;

begin clrscr;

WriteTargetMatrix;

WriteMatrixA;

WriteMatrixSimplex; end;

procedure WriteMatrixsInFile;

procedure WriteTargetMatrix; var i : integer; begin writeln(FileOfOutput, ' +----------------------
----------------------------+'); write (FileOfOutput, ' ¦ Target ¦'); for i:=1 to n+m do write(FileOfOutput, ToStr(TargetVector[i]),'¦'); writeln(FileOfOutput); end;

procedure WriteMatrixA; var i,j : integer; begin writeln(FileOfOutput, ' +-----------------+--------+--------+----
-+--------+--------+--------¦'); writeln(FileOfOutput, ' ¦ Basis ¦ D.Basis¦ A 0 ¦ A 1 ¦ A 2
¦ A 3 ¦ A 4 ¦ A 5 ¦'); writeln(FileOfOutput, ' +--------+--------+--------+--------+----
-+--------+--------+--------¦'); for i:=1 to m do begin write(FileOfOutput, ' ¦ A ',BasisVector[i],'
¦',ToStr(DigitOfBasisVector[i]),'¦'); for j:=0 to m+n do write(FileOfOutput, ToStr(VectorA[i, j]),'¦'); writeln(FileOfOutput); if i = m then writeln(FileOfOutput, ' +--------+--------+-----
+--------+--------+--------+--------+--------¦') else writeln(FileOfOutput, ' +--------+--------+-----
+--------+--------+--------+--------+--------¦'); end; end;

- 35 -

procedure WriteMatrixSimplex; var i : integer; begin write(FileOfOutput, ' ¦ Simplex¦'); for i:=0 to m+n do write(FileOfOutput,
ToStr(SimplexVector[i]),'¦'); writeln(FileOfOutput); writeln(FileOfOutput, ' +-------------------------------
----------------------------+'); end;

begin clrscr;

WriteTargetMatrix;

WriteMatrixA;

WriteMatrixSimplex; end;

{ Головная программа }

BEGIN

ClrScr;

ReadDates;

Рекомендуем скачать другие рефераты по теме: шпоры по праву, реферат по физкультуре.



Предыдущая страница реферата | 5  6  7  8  9  10  11  12  13  14  15 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки