PROGRAM PENCARI DETERMINAN MATRIKS ORDO 2, 3 DAN 4

Bagi kamu mahasiswa yang mengambil mata kuliah Aljabar matriks dan linear. Pasti tidak asing dengan namanya determinan. Nah, bagi kamu yang kurang mahir mencari determinan dari suatu matriks atau kamu yang udah mahir mencari determinan namun pengin mengkoreksi apakah hasil yang kamu dapatkan sudah benar atau belum, bias di cek dengan program ini.

Download

Atau jika kamu ingin membuatnya sendiri, berikut codingnya
(dibuat dengan bahasa pemrograman clipper)

private lagi,ulang,pilih
cls
pilih:=space(1)
lagi:=space(1)
ulang:=.t.

do while ulang
cls
@01,10 say 'Program Pencari Nilai Determinan Matriks' color 'gr+'
@02,16 to 11,42
@03,19 say ' Determinan'
@04,17 to 04,41 double
@05,19 say 'A. Matriks Ordo 2'
@06,19 say 'B. Matriks Ordo 3'
@07,19 say 'C. Matriks Ordo 4'
@08,19 say 'X. Keluar'
@09,17 to 09,41
@10,19 say 'Pilihan :'
@24,00 say 'Created by Alvin Cah SINUS'

@10,35 get pilih pict'!' valid pilih$'ABCX' color 'w/gr+'
read
if pilih$'A'
cls
store 0 to a11,a12,a21,a22

@1,20 say 'PROGRAM MENCARI DETERMINAN MATRIKS ORDO 2'
@2,28 to 7,53
@3,30 say 'Masukkan Nilai Matriks '
@4,29 to 4,52 double
@5,34 get a11 pict '99'
@5,43 get a12 pict '99'

@6,34 get a21 pict '99'
@6,43 get a22 pict '99'
read
det:=(a11*a22)-(a12*a21)
@10,20 say 'Determinan : (a11.a22)-(a12.a21) '
@11,20 say 'Maka nilai determinan :' color 'w/b'
@11,46 say det color 'w/b'
@13,24 say 'Kembali ke Menu (Y/T):' color 'gr+'
@13,48 get lagi pict'!' valid lagi$'YT'
read
if lagi$'T'
ulang:= .f.
else
ulang:= .t.
endif

elseif pilih$'B'
cls
store 0 to a11,a12,a13,a21,a22,a23,a31,a32,a33

@1,20 say 'PROGRAM MENCARI DETERMINAN MATRIKS ORDO 3'
@2,21 to 8,55
@3,28 say 'Masukkan Nilai Matriks '
@4,22 to 4,54 double
@5,28 get a11 pict '99'
@5,37 get a12 pict '99'
@5,46 get a13 pict '99'

@6,28 get a21 pict '99'
@6,37 get a22 pict '99'
@6,46 get a23 pict '99'

@7,28 get a31 pict '99'
@7,37 get a32 pict '99'
@7,46 get a33 pict '99'
read
d1:=((a11*a22*a33)+(a12*a23*a31)+(a13*a32*a21))
d2:=((a13*a22*a31)+(a12*a21*a33)+(a11*a32*a23))

det:=d1-d2
@11,22 say 'Nilai determinan :' color 'w/b'
@11,46 say det color 'w/b'
@13,24 say 'Kembali ke Menu (Y/T):' color 'gr+'
@13,48 get lagi pict'!' valid lagi$'YT'
read
if lagi$'T'
ulang:= .f.
else
ulang:= .t.
endif

elseif pilih$'C'

cls
store 0 to a11,a12,a13,a14,a21,a22,a23,a24,a31,a32,a33,a34,a41,a42,a43,a44

@1,15 say 'PROGRAM MENCARI DETERMINAN MATRIKS ORDO 4'
@2,16 to 9,54
@3,19 say ' Masukkan Nilai Matriks '
@4,17 to 4,53 double
@5,19 get a11 pict '99'
@5,29 get a12 pict '99'
@5,39 get a13 pict '99'
@5,49 get a14 pict '99'

@6,19 get a21 pict '99'
@6,29 get a22 pict '99'
@6,39 get a23 pict '99'
@6,49 get a24 pict '99'

@7,19 get a31 pict '99'
@7,29 get a32 pict '99'
@7,39 get a33 pict '99'
@7,49 get a34 pict '99'

@8,19 get a41 pict '99'
@8,29 get a42 pict '99'
@8,39 get a43 pict '99'
@8,49 get a44 pict '99'
read
@12,20 say 'Nilai determinan dalam program ini, ' color '@r+'
@13,20 say 'dicari berdasarkan Ekspansi Baris 1 ' color '@r+'
@14,20 say 'Ekspansi A11 : '
@15,20 say 'Ekspansi A12 : '
@16,20 say 'Ekspansi A13 : '
@17,20 say 'Ekspansi A14 : '
@19,5 say 'Determinan : (A11.ekspA11) + (A12.ekspA12) + (A13.EkspA13) +(A14.EkpsA14) '

b1:=(a22*a33*a44)+(a23*a34*a42)+(a24*a43*a32)
b2:=(a24*a33*a42)+(a23*a32*a44)+(a22*a43*a34)
b3:=b1-b2
eks1:=((-1)^2)*b3
@14,39 say eks1

c1:=(a21*a33*a44)+(a23*a34*a41)+(a24*a43*a31)
c2:=(a24*a33*a41)+(a23*a31*a44)+(a21*a43*a34)
c3:=c1-c2
eks2:=((-1)^3)*c3
@15,39 say eks2

d1:=(a21*a32*a44)+(a22*a34*a41)+(a24*a42*a31)
d2:=(a24*a32*a41)+(a22*a31*a44)+(a21*a42*a34)
d3:=d1-d2
eks3:=((-1)^4)*d3
@16,39 say eks3

e1:=(a21*a32*a43)+(a22*a33*a41)+(a23*a42*a31)
e2:=(a23*a32*a41)+(a22*a31*a43)+(a21*a42*a33)
e3:=e1-e2
eks4:=((-1)^5)*e3
@17,39 say eks4

deter:=(a11*eks1)+(a12*eks2)+(a13*eks3)+(a14*eks4)
@20,20 say 'Maka, nilai determinan :' color '@w/b'
@20,46 say deter color '@w/b'
@22,24 say 'Kembali ke Menu (Y/T):' color 'gr+'
@22,48 get lagi pict'!' valid lagi$'YT'
read
if lagi$'T'
ulang:= .f.
else
ulang:= .t.
endif

else
ulang:= .f.
endif
enddo

Kreasi : alvin perez, boleh di copy.. :)