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 pascal persamaan linier, program gauss jordan, program gauss jordan di delphi, persamaan linier pascal, contoh scrip c algoritma dan flow chart untuk konfersi suhu, contoh pascal programming aljabar linier matrik, listing program delphi untuk sistem persamaan linear, program persamaan linear dengan pascal, algoritma eliminasi gauss jordan, contoh persamaan linier pascal.

Related posts:

1. Program PSB SMA Ver.1 Pascal
2. Perintah With..Do dalam Pascal
3. Program untuk Mencari Akar Persamaan Kuadrat
4. ARRAY PADA PASCAL
5. Program Konversi Suhu
6. Program untuk Mengurutkan Data dengan Metode RADIX SORT
7. Perulangan dengan Repeat Until
8. Pascal
9. Program Input Nilai Mahasiswa
10. Program dengan Array of String