Gauss-Seidel Iteration dengan Delphi

disederhanakan menjadi:


Alhamdulillah... Selesai juga tugas dari dosen untuk menjawab soal quiz dengan program... Perjuangan sungguh perjuangan.. Tak ada kesuksesan tanpa pengorbanan..

Bismillah...

Metode Iterasi Gauss Seidel

procedure TForm1.Button1Click(Sender: TObject);

var

n,i,j,k,bar,iterasi,maxit:integer;

a:array [1..100,1..100]of real;

x,xlama:array [1..100]of real;

sum,e:real;

begin

n:=stringgrid1.RowCount-1;

maxit:=strtoint(edit2.text);

//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;

//menghitung x[i]

e:=1;iterasi:=0;

while (e>0.001) or (iterasi<100)>

begin

iterasi:=iterasi+1;

for i:=1 to n do

begin

sum:=a[i,n+1];

for j:=1 to n do

if j<>i then

sum:=sum-x[j]*a[i,j];

xlama[i]:=x[i];

x[i]:=sum/a[i,i];

e:=abs((x[i]-xlama[i])/x[i]);

//mengeluarkan hasil iterasi tiap x

stringgrid2.cells[i,iterasi]:=floattostr(x[i]);

stringgrid2.cells[0,iterasi]:=inttostr(iterasi);

stringgrid2.cells[i,0]:='x'+inttostr(i);

end;

stringgrid2.RowCount:=iterasi+1;

end;

end;