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

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);

repeat

c:=a-(f(a)/(f(b)-f(a)))*(b-a);

writeln (c:10:8);

if f(c)*f(a)>0 then a:=c else b:=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 -.7

vvedite tochnost 0.001

-0.89655455

-0.92513533

-0.92825863

koren uravneniya -0.92825863

vvedite levuy granicu otrezka -0.3

vvedite pravuy granicu otrezka 0.3

vvedite tochnost 0.001

0.00000000

koren uravneniya 0.00000000

vvedite levuy granicu otrezka 0.7

vvedite pravuy granicu otrezka 1

vvedite tochnost 0.001

0.89655455

0.92513533

0.92825863

koren uravneniya 0.92825863

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

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