Matematika Informatika 1

egin
writeln ;
write ('Masukan Elemen Matrik ',ordo,'X',ordo);
writeln;
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 ('Determinan Matrik = ',det);writeln;
writeln ('Matrik Inversnya :'); writeln;
writeln (emat[2,2],'/',det,' ','-
',emat[1,2],'/',det);
writeln('-',emat[2,1],'/',det,'
',emat[1,1],'/',det);
readln;
end;
procedure matrik.invers3;
24