TUGAS CP 2 Cara Mencari invers dan determinan menggunakann program lazarus uses crt; type matrik = object emat, kof : array [1..3,1..3] of integer; procedure input; procedure tampil; procedure invers; procedure invers2; procedure invers3; end; var i,j,ordo,det,pil : integer; mat : matrik; procedure matrik.input; begin writeln ; writeln ('Masukan Ordo Matrik [2..3] : ');readln(ordo); writeln ('Matriks Ordo ',ordo); for i := 1 to ordo do begin for j := 1 to ordo do begin write ('Elemen [',i,',',j,'] = '); readln (emat[i,j]); end; end; end; procedure matrik.tampil; begin writeln; for i:=1 to ordo do begin for j:= 1 to ordo do begin write (emat[i,j]:5,' '); end; writeln; end; readln; end; procedure matrik.invers; begin if ordo = 2 then matrik.invers2 else matrik.invers3; end; procedure matrik.invers2; begin writeln; det := (emat[1,1]*emat[2,2])-(emat[1,2]*emat[2,1]); writeln ('Determi...
