найти макимально значение функции

[Lizonka-88]

нужно найти максимальное значение функции на отрезке. Вариант найти производную и приравнять к нулю, не желателен, потому что функция имеет не оч презентабельный вид. можно это как-то с помощью цикла сделать, выбрать шаг поменьше и перебрать все значения на данном отрезке. подскажите как?

[Valio]

Что за функция?

[Lizonka-88]

(-6*ln(x)*ln(x)+ln(x)+2)/(x*x*x*x*ln(x)*ln(x)*ln(x))

[Serge_Bliznykov]

пусть отрезок задан числами A и B (A<B)

код поиска может выглядеть примерно так:

x := A;
maxX := x;
maxF := ВашаФункция( maxX );
x := x + 0.001; {величина шага - чем меньше шаг, тем вычисление будет точнее, 
    но, разумеется, потребуется больше циклов расчёта!}
while x<=B do begin
   f := ВашаФункция( x );
   if f>maxF then begin
      maxF := f;
      maxX := x;
   end;
   x := x + 0.001; {величина шага }
end;

WriteLn('Максимальное значение на участке от ',A,' до ',B,
             ' равно ', maxF,' при X = ', maxX);

[Valio]

Функция которая тут прозвучала имеет нереальный максимум (или даже бесконечность) гдето в области 1.