1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:

function f(x: extended): extended;
begin
  result := x*x-16; // Funktion: f(x)=x^2-16
end;

procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
    li, mi, re: extended;
begin

li := 2;  // In diesem Bereich muss sich die Nullstelle befinden
re := 10;

for i := 0 to 50 do // je nach gewünschter Genauigkeit Rechenvorgang öfters wiederholen
begin

  mi := (li+re)/2;  // Berechnung der Mitte des Intervalls

  if f(li) * f(re) <= 0 then  // Ist eines der Multiplikatoren Negativ ist auch das Produkt negativ, und wir wissen, dass sich die Nullstelle im Linken Bereich des Intervalls befindet
  begin
    re:=mi;
  end
  else
  begin
    li:=mi;
  end;

end;

self.Caption := floattostr(mi);

end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
    li, mi, re: extended;
begin

li := 10;  // In diesem Bereich muss sich die Nullstelle befinden
re := 2;

for i := 0 to 50 do // je nach gewünschter Genauigkeit Rechenvorgang öfters wiederholen
begin

  mi := (li+re)/2;  // Berechnung der Mitte des Intervalls

  if f(mi)*f(li) <= 0 then
    re:=mi
  else
    li:=mi;
end;

self.Caption := floattostr(mi);

end;