Компьютерная модель метода половинного деления

CloseGraph; // закрытие графического режима и возврат в текстовый режим

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+B)/2;

writeln(c:10:8);

if abs (f(C))<=0.0001 then goto 1;

if f(A)*f(C)<0

then B:=C

else A:=C

until (B-A)/2<=E;

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

end;

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

vvedi kolichestvo korney 3

vvedite levuy granicu otrezka -1

vvedite pravuy granicu otrezka -0.7

vvedite tochnost 0.001

-0.85000000

-0.92500000

-0.96250000

-0.94375000

-0.93437500

-0.92968750

-0.92734375

-0.92851563

koren uravneniya -0.92851563

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.85000000

0.92500000

0.96250000

0.94375000

0.93437500

0.92968750

0.92734375

0.92851563

koren uravneniya 0.92851563

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

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