![Составьте программу Pascal для решения задачи: Дана функция Протабулируйте данную функцию на промежутке [-3; 3] с шагом h = 0.3. Найдите минимальное значение функции, а также определите значение аргумента, для которого оно достигается.](/public/images/library/external/library-detail-hero-book.png)
Условие:
Составьте программу Pascal для решения задачи:
Дана функция
Протабулируйте данную функцию на промежутке [-3; 3] с шагом h = 0.3.
Найдите минимальное значение функции, а также определите значение аргумента, для которого оно достигается.
Решение:
Текст программы
var f, x, min, min_x: double;begin x:= -3; min:= MaxInt; while x = 3 do begin f:= 3 * Power(x, 2) + 2 * Cos(x); if f min then begin min:= f; min_x:= x; end; writeln('fi: ', f, ', x: ', ...