Friday, November 4, 2011

Metode Titik Tetap

algoritma metode titik tetap dalam delphi :

procedure TForm1.Button1Click(Sender: TObject);
var
  x0,x1,e,g,h:Real;
  i,n:integer;
begin
  x0:=strtofloat(edit1.Text);
  e:=0.0001;
  i:=0;
  n:=strtoint(edit3.text);
repeat
  i:=i+1;
  listbox4.Items.add(inttostr(i));
  listbox1.Items.add(format('%8.4f',[x0]));
  x1:=-cos(x0);
  listbox2.Items.add(format('%8.4f',[x1]));
  g:=(x1-x0)/x1;
  h:=abs(g);
  listbox5.Items.add(format('%8.4f',[h]));
  x0:=x1;
until
  h<e;
  edit2.text:=format('%8.4f',[x1]);

end;

end.

adapun tampilannya :
keunggulan metode titik tetap, adalah mudah diprogram. walaupun dalam metode tersebut akan memiliki banyak iterasi.

No comments:

Post a Comment