Анализ экономических задач симплексным методом

var b,cb:array[1..m] of real;c,x,e:array[1..50] of real;a:array[1..m,1..50] of real;

s0,max,mb,s1:real;i,j,k,i0,j0,m21,nm1,n1:integer; Bi:array[1..m] of integer;

begin

clrscr;

writeln;

writeln (' Симплексный метод решения задачи линейного программирования:');

writeln;

writeln (' Проведем некоторые преобразования с данной задачей:');

writeln;

writeln (' Подготовьте матрицу: сначала равенства, потом неравенства вида >= и неравенства вида =}

for i:=m1+1 to m2

do a[i,n+i-m1]:=-1;

{переход к равенствам в неравенствах max

then begin max:=e[i];

j0:=i

end;

{получили столбец с максимальной оценкой}

if max0

then begin writeln(' Пустое множество планов');

goto 20

end;

for i:=1 to n

do writeln(' x[',i,']=',x[i]:7:4);

20:readkey

end.

Содержание

Введение………………………………………………………………………………1

§1. Задача линейного программирования и свойства её решений…………….…4

§2. Графический способ решения

задачи линейного программирования……………………………………….…6

§3. Симплексный метод……………………………………………………………..8

§4. Понятие двойственности……………………………………………………….11

§5. Основные теоремы двойственности

и их экономическое содержание………………………………………….……14

§6. Примеры экономических задач………………………………………………..16

§7. Анализ задачи об оптимальном использовании сырья………………………19

§8. Программа и расчеты…………………………………………………………..25