Реферат: Линейное программирование: решение задач графическим способом

SetFillStyle(1,0); Bar(0,0,GetMaxX,MaxY-1);

OutTextXY(7,3,'Ввести еще? (Enter=Да/Esc=Нет)');

End;

var

Key:Char;

Begin

GetNerav;

repeat

key:=#0;

if KeyPressed then begin

key:=ReadKey;

case key of

#13: GetNerav;{ввод еще одного нер-ва}

end;

end;

Until Key in [#27];{до нажатия Esc}

End;

procedure EnterMainF;

{эта процедура предлагает выбрать пользователю выбрать выход из ОДЗ}

var key: Char;

j: 0..100;

S: String;

Begin

SetFillStyle(3,1); FloodFill(MinX+1, MinY-1, 15);

SetFillStyle(1,0); Bar(0,0,GetMaxX,MaxY-1);

SetColor(White);

OutTextXY(7,3,'Введите коэффициенты целевой функции: ');

Window(40,1,80,25); Read(MainF.x, MainF.y);

End;