Sistem Persamaan Linear
Algoritma Algoritma penyelesaian penyelesaian sistem persamaan persamaan linear linear dengan dijabarkan sebagai berikut:
metode Gauss-Seidel
program metode_Gauss_Seidel; uses crt; label ulang; tyep daftar = array[0..0!0..0" array[0..0!0..0" of real; #aria = array[0..$00" of real; #ar mm!a!b!% : daftar; k! mf! &: #aria; mn! mu: real; m! n! i! j! ': byte; ab: c&ar; begin ulang: clrscr; (rite)*+anyaknya kumpulan persamaan,-; readln)n-; for i:= to n do begin for j:= to n do begin (rite)*/oefisien A, !i!j! ,:,-; read)a[i!j"-; end; (rite)ilai 1, !i! * :,-; readln )&[i"-; end; for ':= to n do begin b[i!'":=a[i!'"2a[i!i"; end; k[i":=&[i"2a[i!i"; end; m:=0; for i:= to n do begin %[i!":=0.0; 1
end; clrscr; (rite)*1asil program iterasi Gauss Seidel,-; (riteln; (rite; for i:= to n do begin (rite)* 3, !i! * *-; end; (riteln; repeat begin m:=m4; for i:= to n do begin mn:=0; for j:= to n do begin if j= t&en begin end else begin mn:=mn5b[i!j"6%[j!i"; end; %[j!i4":=%[j!i"; end; %[i!i4":=k[i"4mn; mf[i":=%[i!i4"5%[i!i"; mm[i!m":=%[i!i4"; end; for i:= to n do begin %[i!":=%[i!i4"; end; mu:=0; for i:= to n do begin mu:=mu4abs)mf[i"-; end; (rite)m-; 2
for i:= to n do begin mm[i!0" :=0; (rite)* *!mm[i!m5" : 0 : 7! * *-; end; (riteln; end; until abs)mu-8957; for i:= to n do begin (riteln)*1asil iterasi adala& 3, !i! *:, !mm[i!m5" : : 7-; end; (riteln; (rite)*Apaka& anda ingin mengulangi )y2t-,-; readln)ab-; if)ab=,y,- or )ab=,,- t&en begin goto ulang; end else begin end; end. Latihan
% 4 %$ 4 %> = $ % 4 %$ 4 $%> = 0 % 4 %$ 4 7%> = $0 2;
7% 4 %$ 4 %> 4 % = 0 % 4 ?%$ 4 $%> 4 >% = 7 $% 4 $%$ 4 @%> 4 $% =$0 >% 4 $%$ 4 %> 4 % =
3
