Question

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

Answer 1

program Prog;

var

i: Integer;

x: Double;

MinF: Double;

MinFArg: Double;

function f(x:Double): Double;

begin

f:=3*x*x+2*cos(x*pi/180);

end;

begin

x:=-3;

MinF:=f(x);

while x<3 do begin

 if f(x)<MinF then begin

  MinF:=f(x);

  MinFArg:=x;

 end;

 x+=0.3

end;

write('Минимальное значение функции: ');

writeln(Round(MinF));

write('Значение аргумента: ');

writeln(Round(MinFArg));

end.