Условие задачи
Дана функция 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.
Ответ
Результат работы программы: