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;
11 komentar:
oke oke jeh..........
masuk...masuk
makasiiiiiiiiiiihh :)
terima kasih, mudah-mudahan ilmunya semakin bertambah dan menjadi berkah selalu ya mas
habis di run, terus ngisi datanya gimana?
makasih
yang tool Tedit nya di gimanain?
biar bisa nge input ke stringgid?
trima kasih..
Untuk Tedit bisa dicari di caption enablenya. Stringgrid bisa di goedit di enablekan.
Maaf ni gan,,minta pencerahan,,
Saya 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.
gan....minta donk....program utuhnya...
saya kira lebih baik memahami alur pikiran program di atas dari pada program utuhnya. :-)
gan kok
kok ada eror pada memo1.Clear;
Posting Komentar