Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 16.12.2014, 20:28   #1 (permalink)
Oscarrr
Новичок
 
Регистрация: 16.12.2014
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Точка максимума функции 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
Oscarrr вне форума   Ответить с цитированием

Старый 16.12.2014, 20:28
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Я уверен, что в этих обсуждениях вы найдете решение

Проблемная точка доступа
Найдена точка доступа
Роутер или точка доступа

Старый 17.12.2014, 10:35   #2 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

А вот это
Цитата:
2*19*x2, 2*2*x1, 19*2
что за художества? Следует ли это понимать, как
38*х2, 4*х1, 38
или как?
Vladimir_S вне форума   Ответить с цитированием
Старый 17.12.2014, 14:06   #3 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

И вообще - что тут делать Паскалем, я как-то не вижу. Задача элементарно решается посредством карандаша и бумаги.
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 вне форума   Ответить с цитированием
Старый 18.12.2014, 12:03   #4 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Код:
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.
Пояснения - см. Реализовать в Паскале
Vladimir_S вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ


Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 21:26.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.