PROGRAM MATRIKS INVERS ORDO 2 X 2 (PASCAL)

MATRIKS INVERS ORDO 2 X 2

1.    Invers Matriks Persegi

Definisi Invers Matriks 1:

Misalkan A dan B adalah dua matriks yang berordo 2 × 2 dan memenuhi

persamaan AB = BA = I2 maka matriks A adalah matriks invers dari matriks

B atau matriks B adalah matriks invers dari matriks A.

Definisi Invers Matriks 2:

 Untuk membuat program INVERS MATRIKS 2 x 2 di atas,berikut adalah script untuk membuatnya :

Program Invers_Matriks_2_x_2;
uses wincrt;
var
m1:array[1..10,1..10] of integer;
x1,y1:integer;
p,q,r,s,invers,a,b,c,d,i:real;

begin
write('Invers matriks berordo 2 x 2');
writeln;
for x1:= 1 to 2 do
begin
for y1:= 1 to 2 do
begin
write('masukkan data[',x1,':',y1,']='); readln(m1[x1,y1]);
end;
end;
writeln('matriks 1');
for x1:= 1 to 2 do
begin
for y1:= 1 to 2 do
begin
write(m1[x1,y1]:7);

end;writeln;
end;writeln;

begin
a:=m1[1,1];
b:=m1[1,2];
c:=m1[2,1];
d:=m1[2,2];
i:=(a*d)-(b*c);

end;

if not(i=0) then
begin
invers:=1/((a*d)-(b*c));
p:=d*invers;
q:=-b*invers;
r:=-c*invers;
s:=a*invers;
writeln('Hasil invers matriksnya adalah');
gotoxy(5,13);write(p:0:2);
gotoxy(13,13);write(q:0:2);
gotoxy(5,14);write(r:0:2);
gotoxy(13,14);write(s:0:2);
end else
begin
writeln('Maaf operasi invers matriks tidak bisa dikerjakan');
end;
end.

Tampilannya :