ALIN PASCAL (INVERS)

Hasil output ….

Program matriks ;

Uses crt;

Var a,b,c,d, invers p,q,r,s,I,z :real ;

Dimaksud  bahwa program yang kita buat adalah merupakan bilangan real.

Begin

Slrscr;

Writeln(‘ mencari inver matriks ordo 2x2’);

Gotoxy(5,5);write(‘a=’);read(a);

Gotoxy(18,5);write(‘b=’);read(b);

Gotoxy(5,7);write(‘c=’) read(c);

Gotoxt(18,7);write(“d=’);read(d);

Dimaksud sebagai begin untuk melakukan pemulaian suatu program ,  sedangkan a, b,c,d , disini dijelaskan sebagai peletakan hasil output yang akan kita ketik selanjutnya.

Z:= a*d – b * c ;

Writeln(‘det (a)=’);write (z);

I:= (a *d) – (b*C);

If not (i=0) then

Begin

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

P: = d * invers ;

q := b* invers ;

r := c * invers ;

s:= a  * invers ;

dimaksud sebagai bahwa variable z digunakan untuk pengurangan pada matriks. Kemudin merubah dari bilang determinan ke bilangan invers.

Else

Begin

Gotoxy(25.15);

Writeln(‘tidak ada inver matriks ‘);

Readln;

End;

Readln;

End

Dimaksud sebagai bahwa bila mana angka yang kita ketik tidak kondusif , maka tampilan output yang tampil adalah “tidak ada invers matrik “ kita bisa lihat codingan diatas menggunakan else.maka akan kembali sampai menemukan angka yang benar.