максимум функции

[Раиска]

Найти максимум функции: R= (2arctg3x)/(1+y cosx); y=10,5*10^-4 если X принадлежит [0;2] шаг h=0,4

[ViktorR]

А в чем трудность?

function R(x: real) : real; {описание функции}
const y = 10.5e-4;
begin
  R := {тут записываем выражение на языке Паскаль};
end;
{опишем переменные, вдоволь}
var x, y, h, max : real;
   xbeg, xend : real;
{Main}
begin
   xbeg := 0;
   xend := 2;
   max := R(xbeg); {значение на левой границе принимаем за максимум, поначалу}
  {тут опишем цикл, в котором просмотрим все значения}
  {функции на заданном интервале}
   x := xbeg;
   repeat
      y := R(x);
      if y > max then
         y := max;
      x := x + h;
   until   {тут условие завершения цикла: пока x меньше или равен xend}
   {теперь можно вывести максимальное значение}
end.

Примерно так получается ...
PS: Не проверялось.

[Раиска]

Спасибо, очень признательна. А можно так?

function getMax(x,y:real):real; 
var 
max, h, current:real; 
begin 
  h:=0; 
  max:=low(max); 
  while h<=2 do begin 
     current:=((2*arctg(3*x))/(1+y*cos(x))); 
     if max < current then max:=current; 
     h = h + 0.4;end; 
  getMax:=max; 
end;

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[northener]

Спасибо, очень признательна. А можно так?

Можно. Только x на h в формуле поменяйте.

[ViktorR]

Раиска

А можно так?

Можно, и не только так ...
Вот только, так думаю, не следует смешивать "напитки" ...
Будет лучше, когда функция, описывающая уравнение, определена отдельно, а функция поиска максимума - отдельно.
Т.е., для примера, предложат найти максимум другой функции и что?
Вновь писать все?
А если все в своем "стакане", то следует только записать ещё одну функцию.
А что если у этой функции надо найти минимум? Тогда напишем только ещё функцию для поиска минимума. И т.п.
Ситуация не придуманная мной.
Попробуйте решить такую задачу, как вывод на экран нескольких разных функций с максимальным использованием экранного пространства (большие красивые графики на большом экране ).
Для масштабирования Вам придется искать и максимумы и минимумы заданных функций.
Или там, например, надо написать функцию для численного интегрирования. И???

Добавлено.
А какую роль играет параметр X в функции GetMax? В том виде, как Вы записали, он там ни к чему.

Как-то так, ...