Найдите минимальное значение функции, а также определите значение аргумента, для которого оно достигается.

Дана функция fi(x)= 3x2 + 2cosx. Протабулируйте данную функцию на промежутке [-3; 3] с шагом h = 0.3. Найдите минимальное значение функции, а также определите значение аргумента, для которого оно достигается.

Код программы:

var

    x,fi,min,xm:real;

 begin

    x:=-3;

    min:=(3*x*x)+(2*cos(x));

    while (x<3) do

    begin

       fi:=(3*x*x)+2*cos(x);

       writeln('x = ',x:0:1,'  fi(x) = ',fi:0:4); 

       if (fi<min) then

          begin

            min:=fi;

            xm:=x;

          end;

       x:=x+0.3;

    end;

    writeln;

    writeln('Мин. значение fi(x) = ',min:0:1,', при x = ',xm:0:4);

end.