CODING DAN LOGIKA PROGRAM
Ø Uses Crt; digunakan untuk memanggil unit library &
menghidupkan fungsi crt pada pascal.
Ø Var emat, kof : array [1..3,1..3] of integer; Mendeklarasikan emat dan kof sebagai
variable array, dengan 2 dimensi dan masing –masing dari dimensi nya memiliki 3
elemen yang bertipe data integer.
Ø I, j, ordo, det, pil : integer; Pendeklarasian variable i, j,ordo,
det, pil, sebagai variable yang berdata integer.
Ø Procedure input; Pendeklarasian mulainya procedure input.
Ø Begin memulai
program
Ø Writeln;
Mencetak layar kosong
Ø Writeln(‘======INPUT MATRIKS======’); untuk mencetak kalimat di antara
tanda kutip dan membuat kalimat selanjutnya berada dibawah
Ø Write(‘masukan ordo : ‘); readln ordo); untuk mencetak kalimat di diantara
tanda kutip dengan mengambil variable di ordo secara horizontal
Ø Write(‘masukan elemen matriks’, ordo,’X’, ordo); untuk mencetak kalimat di antara tanda kutip dan memanggil
variable ordo
Ø Writeln;
Untuk mecetak layar kosong
Ø For i := 1 to ordo do Untuk
I bernilai 1 sampai dengan nilai var ordo maka lakukan baris program
selanjutnya
Ø Begin Untuk
memulai program
Ø For j := 1 to ordo do Untuk
I bernilai 1 sampai dengan nilai var ordo maka lakukan baris program
selanjutnya
Ø Begin Untuk
memulai program
Ø Write(‘elemen [‘,I,’,’,j,’] = ‘); untuk mencetak elemen yang ada di
var I dan j
Ø Readln(emat[I, j]); Membaca elemen matriks di var I dan j untuk dicetak
Ø End;
untuk menghentikan procedure input
Ø End;
untuk menghentikan procedure input
Ø End;
untuk menghentikan procedure input
Ø Procedure tampil; Pendeklarasian mulainya procedure tampil
Ø Begin Untuk
memulai procedure tampil
Ø Writeln; untuk
mencetak layar kosong
Ø For I := 1 to
ordo do Untuk I bernilai 1 sampai dengan
nilai var ordo maka lakukan baris program selanjutnya
Ø Begin Untuk
memulai program
Ø For j := 1 to
ordo do Untuk J bernilai 1 sampai dengan
nilai var ordo maka lakukan baris program selanjutnya
Ø Begin Untuk
memulai program
Ø Write(emat[I,
j]:5,’’); untuk
mencetak elemen matriks yang ada di var i dan j
Ø End; Untuk
mengakhiri program
Ø Writeln; Untuk
mencetak layar kosong
Ø End; Untuk
mengakhiri program
Ø Readln; Untuk
membaca variable dan memanggil variable
Ø End;
Untuk mengakhiri program
Ø Procedure
invers2; Pendeklarasian mulainya procedure invers2
Ø Begin Untuk
memulai procedure invers2
Ø Writeln(‘====INVERS
MATRIKS=====’); Untuk mencetak kalimat yang ada di
antara tanda kutip
Ø Writeln(‘matriks
inversnya :’); writeln; Untuk mencetak kalimat yang ada di
antara tanda kutip secara horiontal
Ø Writeln(emat[2,2],’/’,det,’
‘,’-‘,emat[1,2],’/’,det); Untuk mencetak elemen matriks 2,2
determinan dan – elemen matriks 1,2 determinan
Ø Writeln(‘-‘,emat[2,2],’/’,det,’
‘,emat[1,2],’/’,det); Untuk mencetak - elemen matriks 2,2
determinan dan elemen matriks 1,2 determinan
Ø Readln;
Untuk membaca variable yang akan dipanggil
Ø End;
Untuk menghentikan procedure invers2
Ø Procedure
invers3;
Ø Var detA, detB :
integer; yaitu menunjukkan bahwa variabel detA dan detB
sebagai data integer.
Ø Begin Untuk
memulai procedure invers3
Ø detA :=
((emat[1,1]*emat[2,2]*emat[3,3])+(emat[1,2]*emat[2,3]*emat[3,1])+(emat[1,3]
*emat[2,1]*emat[3,2])); Untuk
menjelaskan jika var detA adalah kumpulan dari perhitungan matriks diatas
Ø detB :=
((emat[1,3]*emat[2,2]*emat[3,1])+(emat[2,3]*emat[3,2]*emat[1,1])+(emat[1,2]
*emat[2,1]*emat[3,2])); Untuk
menjelaskan jika var detA adalah kumpulan dari perhitungan matriks diatas
Ø det := detA –
detB; Untuk menjelaskan jika ingin menentukan nilai
determinan yaitu dengan cara mengurangi detA ke detB
Ø writeln; Untuk menceak layar kosong
Ø writeln(‘Determinan
Matriks : ‘,det); writeln; Untuk mencetak kalimat yang ada di
antara tanda kutip dengan mngambil variable det
Ø kof[1,1] :=
((emat[2,2]*emat[3,3])-(emat[3,2]*emat[2,3])); Hasil
untuk kof(koefisien) [1,1] adalah dari elemen matriks diatas
Ø kof[1,2] :=
((emat[2,1]*emat[3,3])-(emat[2,3]*emat[3,1]));
Hasil untuk kof(koefisien) [1,2] adalah dari elemen matriks diatas
Ø kof[1,3] :=
((emat[2,1]*emat[3,2])-(emat[2,2]*emat[3,1]));
Hasil untuk kof(koefisien) [1,3] adalah dari elemen matriks diatas
Ø kof[2,1] :=
((emat[1,2]*emat[3,3])-(emat[1,3]*emat[3,2]));
Hasil untuk kof(koefisien) [2,1] adalah dari elemen matriks diatas
Ø kof[2,2] :=
((emat[1,1]*emat[3,3])-(emat[1,3]*emat[3,1]));
Hasil untuk kof(koefisien) [2,2] adalah dari elemen matriks diatas
Ø kof[2,3] :=
((emat[1,1]*emat[3,2])-(emat[1,2]*emat[3,1]))*-1; Hasil
untuk kof(koefisien) [2,3] adalah dari elemen matriks diatas di kali minus 1
Ø kof[3,1] :=
((emat[2,2]*emat[3,3])-(emat[1,3]*emat[2,2])); Hasil
untuk kof(koefisien) [3,1] adalah dari elemen matriks diatas
Ø kof[3,2] :=
((emat[2,2]*emat[3,3])-(emat[1,3]*emat[2,1])); Hasil
untuk kof(koefisien) [3,2] adalah dari elemen matriks diatas
Ø kof[3,3] :=
((emat[2,2]*emat[3,3])-(emat[1,2]*emat[2,1])); Hasil
untuk kof(koefisien) [3,3] adalah dari elemen matriks diatas
Ø writeln(‘matriks
invers :’); writeln; Untuk mencetak kalimat yang ada di
antara tanda kutip
Ø for j := 1 to 3
do Untuk j jika bernilai 1 sampai
dengan 3 maka lakukan baris program selanjutnya
Ø begin Untuk
memulai program
Ø for I := 1 to 3
do Untuk i jika bernilai 1 sampai
dengan 3 maka lakukan baris program selanjutnya
Ø begin Untuk
memulai program
Ø write(‘’:6,kof[I,
j],’/’, det); Untuk mencetak yang ada di antara tanda
kutip dengan mengambil kof[I, j] dan determinan
Ø end; Untuk
menghentikan program
Ø writeln; Untuk
mencetak layar kosong
Ø end; Untuk
meghentikan program
Ø readln; Untuk
membaca dan mengambil variable sesuai instruksi
Ø end; Untuk
menghentikan program
Ø procedure deter;
Pendeklarasian
mulainya procedure deter
Ø begin Untuk
memulai procedure deter
Ø writeln; Untuk
mencetak layar kosong
Ø writeln(‘======DETERMINAN
MATRIKS=====’); Untuk mencetak kalimat yang ada di
antara tanda kutip
det :=
(emat[1,1]*emat[2,2])-(emat[1,2]*emat[2,1]); ])); Untuk
menjelaskan jika var detA adalah kumpulan dari perhitungan matriks diatas
Ø writeln(‘determinan
matriks :’, det); writeln; Untuk mencetak kalimat yang ada di
antara tanda kutip dengan mengambil variable det
Ø readln; Untuk
membaca dan mengambil variable sesuai instruksi
Ø end; Untuk
mengakhiri program
Ø begin Untuk
memulai program
Ø repeat Untuk
mengulang statement
Ø clrscr; Untuk
membersihkan layar
Ø gotoxy(25,1);writeln(‘=====MENU
MATRIKS=====’); yaitu Agar menghasilkan output dengan
judul program :=====MENU UTAMA======: pada kolom 25 baris 1.
Ø gotoxy(25,2);writeln(‘1.
Input matriks’); yaitu Agar menghasilkan output dengan
judul program :-------MENU UTAMA -------: pada kolom 25 baris 1.
Ø gotoxy(25,3);writeln(‘2.
Determinan matriks’); yaitu Agar menghasilkan output
dengan kalimat yang ada diantara tanda kutip pada kolom 25 baris 2.
Ø gotoxy(25,4);writeln(‘1.
Invers matriks’); yaitu Agar menghasilkan output dengan
kalimat yang ada diantara tanda kutip pada kolom 25 baris 3.
Ø gotoxy(25,5);writeln(‘1.
Keluar’); yaitu Agar menghasilkan output kalimat yang ada
diantara tanda kutip pada kolom 25 baris 4.
Ø gotoxy(25,6);writeln(‘========================’);
yaitu
agar menghasilkan output yang ada diantara tanda kutip di kolom 25 baris 6.
Ø gotoxy(25,7);writeln(‘Pilihan
1-4 :’);readln(pil); yaitu Agar menghasilkan output pilihan
[1-4]: pada kolom 25 baris 7. readln(pil); yaitu Agar menghasilkan output
dengan kata depan.
Ø case pil of
yaitu mempunyai suatu ungkapan logika yang disebut dengan selector dan sejumlah
statemen yang diawali dengan suatu label permasalahan (case label) yang
mempunyai tipe sama dengan selector.
Ø 1 : begin yaitu
untuk memulai perintah program pada procedure input dan tampil .
Ø Input; Untuk
pendeklarasian terhadap prosedur input
Ø Tampil; Untuk
pendeklarasian terhadap prosedur tampil
Ø End; Untuk
mengakhiri prosedur 1
Ø 2 : begin yaitu
untuk memulai perintah program pada procedure deter
Ø Deter; Untuk
pendeklarasian terhadap prosedur deter
Ø End; Untuk
mengakhiri prosedur 2
Ø 3 : begin yaitu
untuk memulai perintah program pada procedure case of
Ø Case ordo of Untuk
pendeklarasian terhadap prosedur case of
Ø 2 : invers2; Untuk
pendeklarasian terhadap prosedur invers2
Ø 3 : invers3; Untuk
pendeklarasian terhadap prosedur invers3
Ø End; Untuk
menghentikan procedure
Ø End; Untuk
menghentikan procedure
Ø End; Untuk
menghentikan procedure
Ø Until(pil = 4); Pemilihan
pilihan hanya sampai 4
Ø End. Untuk
mengakhiri keseluruhan program