Goedangilmu

Source Code Newton Raphson

Posted on April 27th, 2007 in Programming, 578 views

Berikut ini merupakan source code metode newton raphson yang saya buat dengan delphi.

procedure TForm1.Button1Click(Sender: TObject);
var
xa,fxa,xalama,fxa1,xabaru,galat:real;
i:integer;
begin
xa:=strtofloat(edit1.Text);

xalama:=xa;
i:=0;
repeat
i:=i+1;

fxa:=(((xa*xa*xa)+(xa*xa))-(3*xa))-3;
fxa1:=((3*xa*xa)+(2*xa))-3;

xabaru:=xalama-(fxa/fxa1);

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

memo1.Lines.add(inttostr(i)+chr(vk_tab)+floattostr(galat)+chr(vk_tab)+floattostr(xabaru));
until galat<=0.001;
edit2.Text:=floattostr(xabaru);
end;

Related Posts :

• Source Code Metode Secant
• Source Code Metode Interpolasi Newton Dan Lagrange
• Source Code Metode Gauss Sedel
• Source Code Metode Newton Cotes Open Formula
• Source Code Metode Newton Cotes Close Formula
• Source Code Metode Bisection
• Source Code Metode False Position
• Source Code Metode Trapesium
• Source Code Metode Interpolasi Newton
• Source Code Metode Jacobi