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

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

Программная реализация обязательна. На проверку нужно прислать коды программ и результаты работы в виде скриншота окна программы Паскаль.

Программа:

Program tabul;

const xn=-3;

      xk=3;

      dx=0.3;

function fi(x: real):real;

begin

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

end;      

var x,xmin: real;   

begin 

 writeln('x':4,'fi':9); 

 x:=xn; 

 xmin:=x;

 repeat

  writeln(x:5:1,fi(x):12:5); 

  if fi(xmin)>fi(x) then xmin:=x;

  x:=x+dx;

 until x>xk;

 writeln('Мин значение: fi(',xmin:1:1,')=',fi(xmin):1:5); 

end.