PROGRAM PERHITUNGAN INVERS MATRIKS MENGGUNAKAN PROGRAM TURBO PASCAL.

Uses crt : untuk dipakai pada dos

Uses wincrt : untuk dipakai pada windows.

var a,b,c,d,i,invers,p,q,r,s : real;  : untuk membuat variable dan menentukan type variable yaitu bilangan real.

jawab : char;  : untuk membuat Variable jawab berisikan type data char yang berupa character.

pass : string[8];  : untuk membuat variable pass berisikan type data string yang jumlahnya ditentukan yaitu 8 karakter.

Begin : untuk memulai / memerintahkan pembuatan program inti.

clrscr;  : untuk membersihkan layar output ketika program dijalankan.

Repeat : untuk membuat statement / pernyataan untuk mengulang perintah.

clrscr;  : untuk membersihkan layar output ketika program dijalankan.

gotoxy (20,1);

writeln ('...::: Mencari Invers Matriks Ordo 2x2 :::...');

: pada baris 20 kolom ke-1 program akan mencetak ‘mencari invers matriks ordo 2x2’ saat program dijalankan.

gotoxy (10,5); write('A= '); read (a);

: Pada baris 10 kolom ke-5 akan membuat inputan untuk mengisi nilai A dan menyimpan divariabel a.

gotoxy (18,5); write('B= '); read (b);

: Pada baris 18 kolom ke-5 akan membuat inputan untuk mengisi nilai B dan menyimpan divariabel b.

gotoxy (10,7); write('C= '); read (c);

: Pada baris 10 kolom ke-7 akan membuat inputan untuk mengisi nilai C dan menyimpan divariabel c.

gotoxy (18,7); write('D= '); read (d);

: Pada baris 18 kolom ke-7 akan membuat inputan untuk mengisi nilai D dan menyimpan divariabel d.

i:= (a*d)-(b*c);

: rumus untuk perhitungan, i = hasil perkalian variabel a dan variabel d, dikurang hasil perkalian variabel b dan variabel c.

if not (i=0) then

begin

invers:= 1/((d*a)-(b*c));

: rumus perhitungan, invers = 1 dibagi dengan hasil perkalian variabel d dan variabel a, dikurang hasil perkalian variabel b dan variabel c.

p:=d*invers;

: rumus perhitungan, p = variabel d dikali invers.

q:=-b*invers;

: rumus perhitungan, q= variabel (-b) dikali invers.

r:=-c*invers;

: rumus perhitungan, r= variabel (-c) dikali invers.

s:=a*invers;

: rumus perhitungan, s= variabel a dikali invers.

gotoxy (25,10); writeln('Invers Matriks A');

: pada baris 25 kolom ke-10 program akan mencetak ‘invers matriks A’ saat program dijalankan.

gotoxy (10,13); write (p:0:3);

: Pada baris 10 kolom ke-13 program akan mencetak isi dari variabel p.

gotoxy (18,13); write (q:0:3);

: Pada baris 18 kolom ke-13 program akan mencetak isi dari variabel q.

gotoxy (10,16); write (r:0:3);

: Pada baris 10 kolom ke-16 program akan mencetak isi dari variabel r.

gotoxy (18,16); write (s:0:3);

: Pada baris 18 kolom ke-16 program akan mencetak isi dari variabel s.

end;  : untuk membuat pemberhentian program sementara, bukan secara total.

if (i=0) then

begin

gotoxy (25,15);

writeln ('Tidak Ada Invers Matriks');

: Pada baris 25 kolom ke-15 program akan mencetak 'Tidak Ada Invers Matriks' saat program dijalankan.

end;   : untuk membuat pemberhentian program sementara, bukan secara total.

gotoxy (10,18);

writeln ('Tekan Sembarang Tombol Untuk Mengulangi, Atau Tekan X Untuk Keluar')

: Pada baris 10 kolom ke-18 program akan mencetak 'Tekan Sembarang Tombol Untuk Mengulangi, Atau Tekan X Untuk Keluar' saat program dijalankan.

jawab:=readkey;

until upcase (jawab)='X';

: upcase digunakan untuk mebuat huruf menjadi capital.

halt;

end.  : untuk menghentikan atau mengakhiri program secara keseluruhan.

Saat program ingin dijalankan, terlebih dahulu lakukan compile agar kita mengetahui program kita bisa running atau masih erorr.

Saat program dijalankan :