Метод касательных
Кто нибудь поможет решить X^2-6X-10=0
Начальное приближение к корню 2.23
Нужно на паскале наколбасить)))
Начальное приближение к корню 2.23
Нужно на паскале наколбасить)))
Цитата:
Originally posted by Crazy Joker
Кто нибудь поможет решить X^2-6X-10=0
Начальное приближение к корню 2.23
Нужно на паскале наколбасить)))
Кто нибудь поможет решить X^2-6X-10=0
Начальное приближение к корню 2.23
Нужно на паскале наколбасить)))
Ты расскажи что за метод касательных, а затем попробую реализовать
const eps=1e-5;{точноcть}
function f(x:real):real;
begin
f:=x*x-6*x-10;
end;
{Производная}
function df(x:real):real;
begin
df:=2*x-6;
end;
var x0,x1,y0,y1:real;
begin
write('Введите начальное значение:');
read(x0);
x1:=x0;
x0:=x0+2*eps;
while abs(x0-x1)>=eps do
begin
x0:=x1;
x1:=x0+f(x0)/df(x0);
end;
writeln(x1);
end.
function f(x:real):real;
begin
f:=x*x-6*x-10;
end;
{Производная}
function df(x:real):real;
begin
df:=2*x-6;
end;
var x0,x1,y0,y1:real;
begin
write('Введите начальное значение:');
read(x0);
x1:=x0;
x0:=x0+2*eps;
while abs(x0-x1)>=eps do
begin
x0:=x1;
x1:=x0+f(x0)/df(x0);
end;
writeln(x1);
end.
Цитата: wanja
const eps=1e-5;{точноcть}
function f(x:real):real;
begin
f:=x*x-6*x-10;
end;
{Производная}
function df(x:real):real;
begin
df:=2*x-6;
end;
var x0,x1,y0,y1:real;
begin
write('Введите начальное значение:');
read(x0);
x1:=x0;
x0:=x0+2*eps;
while abs(x0-x1)>=eps do
begin
x0:=x1;
x1:=x0+f(x0)/df(x0);
end;
writeln(x1);
end.
function f(x:real):real;
begin
f:=x*x-6*x-10;
end;
{Производная}
function df(x:real):real;
begin
df:=2*x-6;
end;
var x0,x1,y0,y1:real;
begin
write('Введите начальное значение:');
read(x0);
x1:=x0;
x0:=x0+2*eps;
while abs(x0-x1)>=eps do
begin
x0:=x1;
x1:=x0+f(x0)/df(x0);
end;
writeln(x1);
end.
вызывает ошибку №205:confused: