Program GJE (Gauss Jordan Exchange) dengan Pascal


Pada perkuliahan Aljabar Linear, ada sebuah penyelesaian matriks dengan menggunakan GJE. Perhitungannya cukup rumit, butuh ketelitian. Karena seringnya saya ceroboh dalam menghitung. Akhirnya saya putuskan untuk membuat programnya saja. Daripada susah-susah ngitung, mending buat programnya. Jadi tinggal masukin matriksnya aja lalu enter dan muncul hasilnya, kan cara menghitungnya dan jalan rumusnya dah ngerti. Haha!!

Setelah dibuat, ternyata cukup panjang juga. Hanya saja untuk kunci iterasi-nya udah aku tentuin di x11(iterasi ke-1) dan x22(iterasi ke-2). Berikut penggalan programnya :

Bagian untuk input nilai persamaan :

writeln('Sistem Persamaan Linear 2 x 2');
writeln('Perhatian : Program ini mengambil kunci iterasi 1 pada x1 y1');
writeln;
writeln('Untuk persamaan yang pertama : ');
writeln;
write('Masukan Nilai x1 : ');readln(x11);
write('Masukan Nilai x2 : ');readln(x21);
write('Masukan Nilai y1 : ');readln(y11);
writeln;
writeln('Untuk persamaan yang kedua : ');
writeln;
write('Masukan Nilai x1 : ');readln(x12);
write('Masukan Nilai x2 : ');readln(x22);
write('Masukan Nilai y2 : ');readln(y22);

Bagian perhitungan :

{iterasi 1}
key1:=1/x11; y1x2:=(x21/x11)*-1; y1:=(y11/x11)*-1;
y2x1:=x12/x11; y2x2:=x22*((x12-x21)/x11); y2:=y22*((x12-y11)/x11);
{iterasi 2}
x1y1:=key1*((y1x2-y2x1)/y2x2); x2y1:=y1x2/y2x2; i2y1:=y1*((y1x2-y2)/y2x2);
x1y2:=(y2x1/y2x2)*-1; key2:=1/y2x2; i2y2:=(y2/y2x2)*-1;

Penampil Hasil :

writeln;
writeln('Hasil iterasi 1');
writeln('| | y1 | x2 | |');
writeln('| x1 | ',key1:1:2,' | ',y1x2:1:2,' | ',y1:1:2,' |');
writeln('| y2 | ',y2x1:1:2,' | ',y2x2:1:2,' | ',y2:1:2,' |');
writeln;
writeln('Hasil iterasi 2');
writeln('| | y1 | y2 | |');
writeln('| x1 | ',x1y1:1:2,' | ',x2y1:1:2,' | ',i2y1:1:2,' |');
writeln('| x2 | ',x1y2:1:2,' | ',key2:1:2,' | ',i2y2:1:2,' |');
writeln;
writeln;
writeln('HP:{',i2y1:1:2,',',i2y2:1:2,'}');

Program ini masih saya kembangkan, sekarang sudah nyampe di perhitungan untuk ordo 3×3. Tapi untuk penentuan kunci iterasi masih sama seperti pada program diatas. Program GJE untuk ordo 3×3 tidak saya tampilkan karena masih banyak kelemahan pada program tersebut.

,

One response to “Program GJE (Gauss Jordan Exchange) dengan Pascal”

Leave a Reply