Компьютерная модель метода касательных

function f1(x:real):real;// первая производная

begin

f1:=3*x*x-cos(x);

end;

function f2(x:real):real;//вторая производная

begin

f2:=6*x+sin(x);

end;

begin

clrscr;

write ('vvedi kolichestvo korney ');

readln (n);

for i:=1 to n do

begin

write ('vvedite levuy granicu otrezka ');

readln (A);

write ('vvedite pravuy granicu otrezka ');

readln (B);

write ('vvedite tochnost ');

readln (E);

if f(a)-f2(a)>0 then c:=a else c:=b;

repeat

writeln(c:10:8);

c:=c-f(c)/f1(c);

until abs(f(c))<e;

writeln ('koren uravneniya ', c:10:8);

end;

readln

end.

Результаты компьютерного эксперимента

vvedi kolichestvo korney 3

vvedite levuy granicu otrezka -1

vvedite pravuy granicu otrezka -0.7

vvedite tochnost 0.001

-1.00000000

-0.93554939

koren uravneniya -0.92870181

vvedite levuy granicu otrezka -0.3

vvedite pravuy granicu otrezka 0.3

vvedite tochnost 0.001

-0.30000000

0.09180784

-0.00186023

koren uravneniya 0.00000002

vvedite levuy granicu otrezka 0.7

vvedite pravuy granicu otrezka 1

vvedite tochnost 0.001

1.00000000

0.93554939

koren uravneniya 0.92870181

Таким образом, решения уравнения

Поиск по сайту: