Metode posisi palsu - Metode Numerik

tampilan koding, dalam delphi :
procedure TForm1.Button1Click(Sender: TObject);
var
  x0,x1,x2,y0,y1,y2,E:Real;
begin
  x0:=strtofloat(edit1.Text);
  x1:=strtofloat(edit2.text);
  E:=0.0001;
repeat
  listbox1.items.add(format('%8.4f',[x0]));
  listbox2.Items.add(format('%8.4f',[x1]));
  y0:=x0+cos(x0);
  y1:=x1+cos(x1);
  x2:=((x0*y1)-(x1*y0))/(y1-y0);
  listbox3.Items.add(format('%8.4f',[x2]));
  listbox4.Items.add(format('%8.4f',[y0]));
  listbox5.Items.add(format('%8.4f',[y1]));
  y2:=x2+cos(x2);
  listbox6.Items.add(format('%8.4f',[y2]));
  if y0*y2<0 then x1:=x2 else
    x0:=x2;
until
  abs(y2)<E;
  edit3.Text:=format('%8.4f',[x2]);
end;
end.

algoritmanya :
1. y0 = f(x0) ; y1 = f(x1)
2. x2 = (x0*y1 - x1*y0)/(y1-y0)
3. y2 = f(x2)
4. jika y0*y2<0 maka x1 ganti x2 ; y1 ganti y2
                         jika tidak x0 ganti x2 ; y0 ganti y2
5. mutlak dati (y2)<= e, e (epsilon). maka akar = x2.

keunggulan posisi palsu dibanding dengan metode bagi dua, adalah :
1. lebih cepat
2. lebih mendekati akar
3. pasti konvergen

tampilan dalam delphi sebagai berikut :