Program Delphi Mencari Akar Persamaan Tak Linier dengan Menggunakan Metode Iterasi Titik Tetap

procedure TMetodeIterasiTitikTetap.Panel5Click(Sender: TObject);
var
x0,x1,g0,e,m:Real;
i,n:integer;
function pangkat(p:real;m:integer):real;
var
hasil:real;
o:integer;
begin
hasil:=1;
for o:= 1 to m do
hasil:=hasil*p;
pangkat:=hasil;
end;
begin
  x0:=strtofloat(edit1.text);
  e:=strtofloat(edit2.text) ;
  n:=strtoint(edit3.text);
  i:=0;
repeat
  i:=i+1;
  listbox1.Items.add(inttostr(i));
  listbox2.Items.add(floattostr(x0));
  g0:=1/(pangkat(x0,2)+1);
  x1:=g0;
  listbox3.Items.add(floattostr(x1));
  m:=abs((x1-x0)/x1);
  listbox4.Items.add(floattostr(m));
  if m>e then x0:=x1;
  until
  (i=n) or (m<e);
  edit4.text:=floattostr(x1);
end;



procedure TMetodeIterasiTitikTetap.Panel6Click(Sender: TObject);
begin
edit1.Text:=' ';
edit2.Text:=' ';
edit3.Text:=' ';
edit4.text:=' ';
listbox1.items.Clear;
listbox2.items.Clear;
listbox3.items.Clear;
listbox4.items.Clear;

end;

procedure TMetodeIterasiTitikTetap.Panel7Click(Sender: TObject);
begin
halt;
end;

end.