CONTOH PROGRAM DETERMINAN DAN MATRIKS

DETERMINAN:

var A : array[1..2,1..2] of integer;
j,k,D : integer;
begin
For j:=1 to 2 do
begin
write('Entrikan baris ',j,' matriks A : ');
readln(A[j,1] , A[j,2]);
end;
For j:=1 to 2 do
begin
For k:=1 to 2 do write(A[j,k] : 5);
writeln;
end;
writeln;writeln;writeln;
D := A[1,1]*A[2,2] - A[1,2]*A[2,1];
writeln('Det(A) = ',D);
end.

TRANSPOSE :

var A,B : matriks;
k,j,bar,kol : integer;
begin
write('Tentukan ordo matriks (baris kolom) : '); readln(bar,kol);
{ mengentrikan matriks }
For j:=1 to kol do
begin
write('Entri kolom ke ',j,' matriks A :(Tekan enter setelah entri satu bil)');
For k:= 1 to bar do readln(A[k,j]);
end;
{ Menampilkan matriks }
For k:=1 to bar do
begin
For j:=1 to kol do write(A[k,j]:5);
writeln;
end;
end.