Pages

Ads 468x60px

Tuesday, October 18, 2011

METODE ITERASI TITIK TETAP

Berikut saya tampilkan psucode metode ITERASI TITIK TETAP mata kuliah metode numerik
dengan menggunakan delphi
Semoga membantu...

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

end;

0 comments:

Post a Comment

Popular Posts