Goedangilmu

Source Code Metode Secant

Posted on May 9th, 2007 in Programming, 525 views

Berikut ini merupakan source code Metode Secant yang saya buat menggunakan Delphi.

var
i:integer;
xikurangsatu,xi,xalama,fxikurangsatu,fxi,galat,xabaru:real;
begin
xikurangsatu:=strtofloat(edit1.text);
xi:=strtofloat(edit2.text);xalama:=xi;
i:=0;
repeat
i:=i+1;

fxikurangsatu:=(((xikurangsatu*xikurangsatu*xikurangsatu)+(xikurangsatu*

xikurangsatu))-(2*xikurangsatu))-2;
fxi:=(((xi*xi*xi)+(xi*xi))-(2*xi))-2;

xabaru:=xi-((fxi*(xikurangsatu-xi))/(fxikurangsatu-fxi));

galat:=abs((xabaru-xalama)/xabaru);

xalama:=xabaru;
xikurangsatu:=xi;
xi:=xabaru;

memo1.Lines.add(inttostr(i)+chr(vk_tab)+floattostr(galat)+chr(vk_tab)+

floattostr(xabaru));
until galat<=0.01;

end;

Related Posts :

• Source Code Newton Raphson
• Source Code Metode Gauss Sedel
• Source Code Metode Bisection
• Source Code Metode False Position
• Source Code Metode Interpolasi Newton Dan Lagrange
• Source Code Metode Titik Tengah
• Source Code Metode Trapesium
• Source Code Metode Jacobi
• Source Code Metode Regresi Linier
• Source Code Metode Simpson