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.
Kata Kunci
program gauss jordan, contoh program pascal pada program linear, program eliminasi gauss jordan, gauss jordan dengan pascal, program pascal tentang eliminasi gauss, gauss jordan exchange, Listing Program C matriks eliminasi gaus, membuat program persamaan linier pada pascal, persamaan linear vb net, program 12345 pada pascal.
Related posts:
makasih mas… ini tugas UAS DASKOM sayaa… sangat membantuu
^^
isi webnya juga bagus.. hehe