Дано:
x0 - начало интервала
xn - конец интервала
h - шаг
Задание: найти минимум функции f(x)=x^2-cosx на заданном интервале.
Функция выглядит так:
Исходный код программы для Delphi 7/Turbo Pascal:
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;
var x0,xn,h,y,x: real;
function f(x:real):real;
begin
result:=x*x-cos(x);
end;
begin
{ TODO -oUser -cConsole Main : Insert code here }
Writeln('input x0,xn,h');
Readln(x0,xn,h);
y:=f(x0);
x:=x0;
while x0 < xn do
begin
x0:=x0+h;
if f(x0) < y then
begin
y:=f(x0);
x:=x0;
end;
end;
Writeln('Min F(X):');
Writeln('X=',x:2:2,' f(x)=',y:2:2);
Readln;
end.
Результаты работы программы при х0=-2 xn=-2 h=0.1:
x=0
f(x)=-1
Блок схемы:
|
Главная
Каталог файлов
