Program GJE (Gauss Jordan Exchange) dengan Pascal

Jul 25, 2009 1 Comment by Sahabat

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.

Kata Kunci

eliminasi gouss jordan menggunakan turbo paskal, skripsi sistem persamaan linier dengan menggunakan turbo pascal.

Linear algebra, Pascal
Sahabat

Tentang Penulis

Penulis adalah sahabat-sahabat yg menyumbang tulisan di nusinau.com untuk dimuat dengan bijaksana. Silakan kirim tulisannya ke nusinau[at]gmail[dot]com atau ke admin[at]nusinau[dot]com. Butuh diskusi cepat? colek di twitter @nusinau

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

  1. yeeyyooo says:

    makasih mas… ini tugas UAS DASKOM sayaa… sangat membantuu
    ^^

    isi webnya juga bagus.. hehe

Leave a Reply

You must be logged in to post a comment.