Табличный симплекс-метод
| Категория реферата: Рефераты по информатике, программированию
| Теги реферата: защита диплома, сочинение
| Добавил(а) на сайт: Kardanov.
Предыдущая страница реферата | 7 8 9 10 11 12 13 14 15 16 17 | Следующая страница реферата
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;
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;
Assign(FileOfOutput, 'kurs97.res');
Rewrite(FileOfOutput);
CountSimplexVector;
WriteMatrixs;
while not AllIsPositiv do
begin
IndexOfEnterVector:=GetEnterVector;
IndexOfOutputString:=GetOutputString;
ReCountOutputString;
ReCountVectorA;
CountSimplexVector;
WriteMatrixsInFile;
WriteMatrixs;
if key=#0 then key:=readkey; key:=#0;
end;
Close(FileOfOutput);
END.
6. ОПИСАНИЕ ЛОГИКИ СТРУКТУРНОЙ СХЕМЫ
В программе реализованны следующие процедуры :
1. Процедура ReadDates - считывает данные из файла.
2. Процедура ReadDatesTargetVector - считывает коэффициенты при неизвестных в целевой функции из файла.
3. Процедура ReadDatesVector - считывание их входного файла матрицы А и заполнение диагональной матрицы.
Рекомендуем скачать другие рефераты по теме: биология 6 класс сонин, діяльність реферат.
Категории:
Предыдущая страница реферата | 7 8 9 10 11 12 13 14 15 16 17 | Следующая страница реферата
Главная