Menghitung Determinan Matrik Ordo 4x4 dengan Pascal

Ini dia untuk penghitungan determinan matrik berordo 4x4, silahkan dicoba... :D

program determinan_ordo4x4;

uses crt;

var

mat:array[1..4,1..4]of integer;

i,j,det:integer;

begin

clrscr;

for i:=1 to 4 do

begin

for j:=1 to 4 do

begin

write('masukkan angka (',i,',',j,') ');

readln(mat[i,j]);

end;

end;

writeln('matriks');

for i:=1 to 4 do

begin

writeln;

for j:=1 to 4 do

write(mat[i,j]:3);

end;

readln;

det:=(((mat[1,1]*mat[2,2]*mat[3,3]*mat[4,4])+ (mat[1,2]*mat[2,3]*mat[3,4]*mat[4,1])+ (mat[1,3]*mat[2,4]*mat[3,1]*mat[4,2]))-((mat[4,1]*mat[3,2]*mat[2,3]*mat[1,4])- (mat[4,2]*mat[3,3]*mat[2,4]*mat[1,1])- (mat[4,3]*mat[3,4]*mat[2,1]*mat[1,2])));

writeln('determinan ',det);

readln;

end.

Semoga bermanfaat sob

Jangan lupa jempolnya

Sekalian kunjungi Facebook ku ya :D

Terimakasih :)