Для математиков Опции

[}0pa]

Написал прогу для вычисления корня уравнения на заданном отрезке методо ПОЛОВИННОГО деления этого отрезка...

Код

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;

Вопрос. Если бы существовал метод деления отрезка на три части, то какие бы были у него недостатки?

Сообщение отредактировано: }0pa - 13.10.2006 3:46