Найти методом Ньютона корень уравнения

Категория: Delphi/Pascal
2012-01-08 19:55:23

Найдите методом Ньютона корень уравнения f(X)=0, ГДЕ f(x)=sin(x)-cos(0,5*x)+2*X. Значения корня ищите в интервале (-1.2; 4.6). Точность вычисления корня -0,0002.Значения интервала и точность вычисления корня вводите с клавиатуры. Выходные данные: найденное значение корня; значение левой части решаемого уравнения при значениях x, равном корню; количество выполненных приближений (итераций).

code: #pascal
{
Вводимые данные:
________________________
 
OT:		-1.2
DO:		 4.6
TOCNOSTI:	 0.0002
}
 
Program PascalGuru;
 
function f(x:real):real;
begin
f:=sin(x)-cos(0.5*x)+(2*x);
end;
{-------------------------}
 
var otk,dok,toc:real;
    i:real;
 
begin
write('OT: ');  readln(otk);
write('DO: ');  readln(dok);
write('TOCNOSTI: ');  readln(toc);
 
repeat
writeln(otk:14:4,': ',f(otk):0:4 );
 
if (f(otk)>0) and (f(otk)<toc)  then break;
 
otk:=otk+toc;
until otk>=dok;
 
 
writeln;
writeln('Otvet: x= ',otk:0:4 );
 
readln;
end.
Поделиться:

Похожие статьи:

теги: студенты, метод Ньютона, корень уавнения