Код
procedure polovin(x:real;n:integer);
var a,b:real;{отрезок}
begin
n := 0;
Repeat
c := (a + b) / 2;
If (f(a) * f(c)) < 0 Then b := c
Else a := c;
Inc(n)
Until (b - a) <= Eps;
x := (a + b) / 2;
Write('KOPEHb PABEH x = ', x:10:7);writeln(' |');
Write('KOL-BO DELENIY = ',n);writeln(' |');
end;
var a,b:real;{отрезок}
begin
n := 0;
Repeat
c := (a + b) / 2;
If (f(a) * f(c)) < 0 Then b := c
Else a := c;
Inc(n)
Until (b - a) <= Eps;
x := (a + b) / 2;
Write('KOPEHb PABEH x = ', x:10:7);writeln(' |');
Write('KOL-BO DELENIY = ',n);writeln(' |');
end;
Вопрос. Если бы существовал метод деления отрезка на три части, то какие бы были у него недостатки?
Сообщение отредактировано: }0pa -