Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 27.05.2013, 23:47   #1
vralayala
Пользователь
 
Регистрация: 23.05.2013
Сообщений: 16
Восклицание нахождение минимума функции

вот дана функция f(x)=0.56*x*x*x-11*x+4*sin(x+1)+3 [-5;5]; шаг 0.5 .
Нацдите минимум среди значений функции,имеющих четную целую часть.
vralayala вне форума Ответить с цитированием
Старый 28.05.2013, 00:26   #2
vralayala
Пользователь
 
Регистрация: 23.05.2013
Сообщений: 16
По умолчанию

каков алгоритм?я не могу понять,как найти минимум
vralayala вне форума Ответить с цитированием
Старый 28.05.2013, 00:37   #3
ViktorR
Старожил
 
Регистрация: 23.10.2010
Сообщений: 2,309
По умолчанию

например:
Код:
...
function myf(x : real) : real; {определим функцию}
begin
   myf := 0.56*sqr(x)*x-11*x+4*sin(x+1)+3;
end;
...
   x := -5;   {нач. значение}
 dx := 0.5;   {шаг}
 fmin := myf(x); {первое значение мин.}
        {следует убедиться, что левая граница}
        {соотвтетствует условию - просто вычислить}
while x <=5 do begin
  x := x + dx;
  fn := myf(x);
  n := trunc(fn);
  if (((n mod 2) = 0) AND (fmin > fn)) then
     fmin := fn; 
end;
...
или посложнее:
Код:
 x := -5;   {нач. значение}
 dx := 0.5;   {шаг}
 flg := false;
while x <=5 do begin
  fn := myf(x);
  n := trunc(fn);
  if ((n mod 2) = 0) then
    if flg then
       if (fmin > fn) then begin
          fmin := fn;
          xmin := x;
       end
    else begin
      fmin := fn;
       xmin := x;
       flg := true;
   end;
   x := x + dx;
end;
  if flg then
    {сообщаем, что минимум, соотвтетствующий условию
      задачи найден и выводим значение xmin и fmin}
  else
     {Сообщаем, что значения отсутствуют}
Не проверено ...


Но! Как-то так, ....
Как-то так, ...
ViktorR вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Нахождение минимума функции методом Нелдера-МИда mitsel Фриланс 1 12.12.2011 22:07
С++ нахождение минимума функции Hellgate Помощь студентам 1 14.11.2011 12:39
Нахождение минимума. Скарам Обсуждение статей 3 30.01.2011 11:07
нахождение максимума и минимума ф-ции в delphi Tatusya Помощь студентам 8 24.06.2010 18:12
Нахождение минимума и максимума графика в Delphi BOOFER Помощь студентам 1 20.06.2010 10:12