Invers Matriks

INVERS MATRIKS
Definisi:
Sebuah matriks n x n dinamakan matriks elementer jika matriks tersebut dapat diperoleh dari
matriks satuan (identitas) n x n dengan melakukan sebuah operasi baris elementer

program PASCAL;
uses wincrt;
var x,y:array[1..20,1..20] of integer;
i,j:integer;
begin
writeln ('matrik invers');
writeln('berordo 2x2');
writeln;
writeln ('masukkan nilai matriks:');
for i:=1 to 2 do
for j:=1 to 2 do
begin
write ('nilai [',i,',',j,']=') ;
readln (x[i,j]);
end;
writeln;
writeln('bentuk matriks');
for i:=1 to 2 do
begin
for j:=1 to 2 do
write (x[i,j]:4);
writeln;
end;
writeln;
writeln ('invers latriks');

y[1,1] :=x[2,2];
y[1,2]:=-(x[1,2]);
y[2,1]:=-(x[2,1]);
y[2,2]:=x[1,1];
for i:=1 to 2 do
begin
for j:=1 to 2 do
write (y[i,j]:4);
writeln;
end;
end.