Точка максимума функции Y

[Oscarrr]

Точка максимума функции Y

Y=2*x1+19*x2

при ограничениях:
-x1/19-x2/3+1/4<=0
-2*x1+2*19*x2-19*2<=0
2*2*x1-19*x2-19*2<=0

Pascal

 

[Vladimir_S]

А вот это

2*19*x2, 2*2*x1, 19*2

что за художества? Следует ли это понимать, как
38*х2, 4*х1, 38
или как?

 

[Vladimir_S]

И вообще - что тут делать Паскалем, я как-то не вижу. Задача элементарно решается посредством карандаша и бумаги.
1. Y(x1,x2) - монотонно-возрастающая функция, следовательно решение дадут максимально-допустимые значения х1 и х2. Их мы найдём из системы неравенств.
2. Решая систему из второго и третьего неравенств, находим: х1<=19, x2<=2.
3. Убеждаемся, что максимальные значения х1=19 и х2=2 удовлетворяют первому неравенству.
4. Окончательно: х1=19, х2=2, Y=76.

 

[Vladimir_S]

Var
 x1,x2:Real;

Begin
 x1:=0;
 While ((1+1/19*x1)>=(3/4-3/19*x1)) and ((1+1/19*x1)>=(-2+4/19*x1)) do
  x1:=x1+0.01;
 writeln('x1 = ',x1:0:3);
 if (3/4-3/19*x1)>(-2+4/19*x1) then
  x2:=(3/4-3/19*x1)
 else
  x2:=(-2+4/19*x1);
 writeln('x2 = ',x2:0:3);
 writeln(' Y = ',(x1*2+x2*19):0:3);
 Readln
End.

Пояснения - см. http://www.tehnari.ru/f41/t100141/#post1089153