ELIMINASI GAUSS JORDAN dengan Delphi
procedure TForm1.Button1Click(Sender: TObject);
var
n,i,j,k,bar1,kol1:integer;
a,b:array [1..100,1..100]of real;
x,c:array [1..100]of real;
faktor,sum:real;
begin
memo1.Clear;
n:=stringgrid2.RowCount-1;
//memasukkan matrix a dan c
for i:=1 to n do
for j:=1 to n+1 do
begin
a[i,j]:=strtofloat(stringgrid1.cells[j,i]);
end;
//mulai eliminasi
for k:=1 to n do
begin
faktor:=a[k,k];
for j:=1 to n+1 do
begin
a[k,j]:=a[k,j]/faktor;
end;
for i:=1 to n+1 do
begin
if i<>k then
begin
faktor:=a[i,k];
for j:=1 to n+1 do
begin
a[i,j]:=a[i,j]-faktor*a[k,j];
end;
end;
end;
end;
//mengeluarkan output eliminasi gauss-jordan
for bar1:=1 to n do
for kol1:=1 to n+1 do
stringgrid2.cells[kol1,bar1]:=floattostr(a[bar1,kol1]);
//menghitung x[i]
for i:=1 to n do
begin
for j:=1 to n do
begin
x[i]:=a[i,n+1]
end;
memo1.lines.add('x'+inttostr(i)+' = '+floattostr(x[i]));
end;
end;
oke oke jeh..........
ReplyDeletemasuk...masuk
makasiiiiiiiiiiihh :)
ReplyDeleteterima kasih, mudah-mudahan ilmunya semakin bertambah dan menjadi berkah selalu ya mas
ReplyDeletehabis di run, terus ngisi datanya gimana?
ReplyDeletemakasih
yang tool Tedit nya di gimanain?
ReplyDeletebiar bisa nge input ke stringgid?
trima kasih..
Untuk Tedit bisa dicari di caption enablenya. Stringgrid bisa di goedit di enablekan.
ReplyDeleteMaaf ni gan,,minta pencerahan,,
ReplyDeleteSaya kok error ya,,
setelah saya inputkan angka di stringgrid1 dan tekan button1 muncul : ' ' is not valid floating value ..
Di errornya cuma Variable 'c' is declared but never used in 'TForm1.Button1Click'
Variable 'sum' is declared but never used in 'TForm1.Button1Click' ..
Terus 1 lagi gan saya kurang paham Teditnya dipake untuk menentukan baris dan kolom apa bukan ya..?
soalnya gak ada di kodingan buttonclicknya agan,,
:3
"" is not valid foating value berarti di stringgrid1 belum anda masukkan angka. Atau yang anda import masih keliru. Pengaturan baris kolom langsung melalui stringgrid1 seperti anda mengatur Tedit enablednya.
ReplyDeletegan....minta donk....program utuhnya...
ReplyDeletesaya kira lebih baik memahami alur pikiran program di atas dari pada program utuhnya. :-)
ReplyDeletegan kok
ReplyDeletekok ada eror pada memo1.Clear;