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;