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);
Berikut ini merupakan source code metode newton cotes open formula yang saya buat dengan delphi.
procedure TForm1.Button1Click(Sender: TObject);
var
fx: array [1..10] of real;
w: array [1..10] of real;
y: array [1..10] of real;
i,n: integer;
a,b,jumlah,h,c,alpha,hasil: real;
Berikut ini merupakan source code metode newton cotes close formula yang saya buat dengan delphi.
procedure TForm1.Button1Click(Sender: TObject);
var
x: array [1..10] of real;
w: array [1..10] of real;
y: array [1..10] of real;
i,n: integer;
a,b,jumlah,h,c,alpha,hasil: real;
Berikut ini merupakan source code metode jacobi yang saya buat menggunakan delphi.
var
a11,a12,a13,a21,a22,a23,a31,a32,a33,c1,c2,c3 :real;
galatx3,x3lama,x3baru,x2baru,x1baru,galatx1,galatx2,x1lama,x2lama :real;
i :integer;
begin
a11:=4; a12:=1; a13:=2;
a21:=1; a22:=3; a23:=1;
a31:=1; a32:=2; a33:=5;
c1:=16;
c2:=10;
c3:=12;
Berikut ini merupakan source code metode interpolasi newton dan lagrange yang saya buat menggunakan delphi.
procedure TForm1.Button5Click(Sender: TObject);
begin
x[i]:=strtofloat(edit4.text);
fx[i]:=strtofloat(edit5.Text);
tabel[i,0]:=strtofloat(edit5.Text);
i:=i+1;
edit4.Text:=”;
edit5.Text:=”;
end;
Berikut ini merupakan source code metode interpolasi newton yang saya buat menggunakan delphi.
var
b,x,fx: array [0..20] of real;
hasil1,hasilakhir,hasil,xa:real;
n,i,j:integer;
begin
x[0]:=1; fx[0]:=0;
x[1]:=4; fx[1]:=1.3863;
x[2]:=6; fx[2]:=1.7917;
xa:=2;
n:=strtoint(edit2.text);
Berikut ini merupakan source code metode interpolasi yang saya buat menggunakan delphi.
procedure TForm1.Button1Click(Sender: TObject);
var
x,x0,x1,fx0,fx1,fx:real;
begin
x:=2;
x0:=1;
x1:=6;
fx0:=0;
fx1:=1.7917;
Berikut ini merupakan source code metode gauss sedel yang saya buat menggunakan delphi.
var
a11,a12,a13,a21,a22,a23,a31,a32,a33,c1,c2,c3,galat3,x3lama,x3baru,x2baru,
x1baru,galat1,galat2,x1lama,x2lama :real;
i :integer;
begin
a11:=4; a12:=1; a13:=2;
a21:=1; a22:=3; a23:=1;
a31:=1; a32:=2; a33:=5;
c1:=16;
c2:=10;
c3:=12;
Berikut ini merupakan source code metode false position yang saya buat menggunakan delphi.
label bawah;
var
cek,cek1,xr,xa,xb,fxr,fxa,fxb,galat,error,xrlama,xrbaru:real;
i:integer;
begin
xa:=strtofloat(edit1.Text);
xb:=strtofloat(edit2.Text);
fxa:=(((xa*xa*xa)+(xa*xa))-(3*xa))-3;
fxb:=(((xb*xb*xb)+(xb*xb))-(3*xb))-3;
