метод равномерного и дихотомического поиска Опции

[Catty]

Нигде не могу в сети найти алгоритмы этих методов, если у кого то есть алгоритмы киньте сюда пожалуйста или дайте ссылку! :flowers: :flowers:

[klem4]

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

uses crt;

var

  left, right : single;
  step, t, min : single;

function f( x : single) : single;
begin
   f := sin(x);
end;

Begin

   clrscr;

   write('Left=');  readln(left);
   write('Right='); readln(right);
   write('Step='); readln(step);

   min := left;

   t := min;

   while (t<=right) do begin

      writeln('t = ',t:2:2,' f( ',t:2:2,' )= ', f(t)2);
      if f(t) < f(min) then
       min := t;

      t := t + step;
   end;

   writeln;
   writeln('MIN : ');
   writeln('t = ', min:2:2, '  f(' ,min:2:2,' ) = ', f(min)2);

   readln;

end.

если использовать методы поиска, то надо просто забить значения ф-и в массив, в такомже цикле, ну а затем просто воспользоваться методом поиска.