program matriks;
uses crt;
var
a11,a12,a13,a21,a22,a23,a31,a32,a33,det,t:integer;
begin
clrscr;
writeln('MATRIKS 3X3');
writeln('-------------');
writeln('input baris pertama');readln(a11,a12,a13);
writeln('input baris kedua');readln(a21,a22,a23);
writeln('input baris ketiga');readln(a31,a32,a33);
writeln('----------------');
writeln('----------------');
writeln('bentuk matriksnya adalah : ');
writeln(a11 ,a12, a13 );
writeln(a21 ,a22, a23 );
writeln(a31 ,a32, a33 );readln;
writeln('----------------');
writeln('----------------');
det:=a11*a22*a33+a12*a23*a31+a13*a21*a32-a31*a22*a13-a32*a23*a11-a33*a21*a12;
writeln('determinan matriks = ',det);readln;
writeln('----------------');
writeln('----------------');
writeln('jadi transpos matriksnya adalah : ');
writeln(a11, a21, a31 );
writeln(a12, a22, a32 );
writeln(a13, a23, a33 );
readln;
writeln('----------------');
writeln('----------------');
t:=a11*a22*a33+a21*a32*a13+a31*a12*a23-a13*a22*a31-a23*a32*a11-a33*a12*a21;
writeln('jadi determinan matriks transposnya = ',t);readln;
end.
