·
Dalam
membuat program matriks tersebut kita harus mengikuti beberapa langkah-langkah
berikut ini
·
Pertama-tama
kita masukkan data yang akan di input seperti variabelnya termasuk kedalam apa,keterangan
dapat dilihat seperti di bawah ini
·
Type t = object disini untuk mendefinisikan type data t kedalam type data
object.
·
Dan
untuk m1,m2 : array [1..2,1..2] of integer untuk matriks m1 dan matriks
m2, itu merupakan array dan memiliki masing-masing 2 ordo
karena pada pendataan tersebut kita memasukkan angkanya sampai 2, jika sampai 3
ordo kita juga bisa mengubahnya.
·
Untuk
Lok : array [1..4] of integer merupakan pendeklarasian variable lok yang dijadikan kedalam bentuk array dan tipe data ini merupakan tipe data integer
yakni untuk numerik saja.
·
procedure input pendefinisian procedure input.
·
Procedure kali pendefinisian procedure kali.
·
Procedure determinan pendefinisan procedure determinan.
·
Procedure transpose pendefinisan procedure transpose.
·
End pemberhentian dari syntax dan proses dari syntax
sebelumnya.
·
Var m:
t variable m yang didefinisikan sebagai type data t.
·
i,j,k,pil b,c : integer variable i,j,k dan pil b,c yang termasuk tipe data integer.
·
Procedure t.input awal dari penjabaran procedure input. Dinamakan t.input.
·
Begin untuk memulai suatu program.
·
Clrscr untuk membersihkan layar output dari output program sebelumnya.
·
Writeln (‘ Input Matrik I’) untuk menuliskan
di hasil output ‘Input Matrik I’
·
For i := 1 to 2 doà menggunakan kondisi for..do untuk variable i, 1 to 2 untuk memasukkan matriks sebanyak 2 ordo.
·
Begin untuk memulai proses program.
·
For j := 1 to 2 do menggunakan kondisi for..do untuk variable j, 1 to 2 untuk memasukkan matriks sebanyak 2 ordo.
·
Begin untuk memulai program.
·
Write (‘Elemen Matrik [‘,i,’,’,j,’]:’) untuk menuliskan
‘Elemen Matrik [isi dari variable I dan j yang sebelumnya sudah diisikan dengan matriks ordo 2x2].
·
Readln(m1[i,j]) membaca variable m1, dan matriksi,j [matriks ordo 2x2].
·
End untuk mengakhiri dari program yang ada. End disesuaikan sebanyak begin yang ada.
·
gotoxy (35,1); writeln (‘Input Matrik II’) menuju baris
35 dan kolom 1, dan menuliskan ‘Input Matrik II’ pada output
layar.
·
K := 2 nilai
k yang dimasukkan adalah 2.
·
For I := 1 to 2 do menggunakan kondisi for..do untuk variable I, 1 to 2 untuk memasukkan matriks sebanyak ordo 2x2.
·
Begin untuk memulai program dari seluruh blok, maupun hanya blok local dari suatu procedure.
·
For j := 1 to 2 do menggunakan kondisi for..do untuk variable j, 1 to 2 untuk memasukkan matriks sebanyak ordo 2x2.
·
Gotoxy(35,k) menuju baris ke 35, dan k. k itu sebelumnya sudah diinput dan ditentukan nilainya, yaitu 2. Berarti kolom 2.
·
Inc (k) function Inc (variable) digunakan untuk menggantikan I= I+1. Untuk mengulang atau menjumlahkan sebanyak jumlah atau nilai dari
k.
·
End untuk mengakhiri dari program yang ada. End disesuaikan sebanyak begin yang ada. Writeln untuk membuat jarak satu
enter agar jika di input
penempatannya di lain paragraf yang dibawahnya
·
Writeln (‘ *Matrik I *’) untuk menuliskan output
dengan hasil : * Matrik I*
·
Writeln (m1[1,1]:5,m1[1,2]:5) menuliskan matriks 1 (m1) pada baris 1 kolom 1, dan baris
1 kolom 2.
·
Writeln
(m1[2,1]:5,m1[2,2]:5) menuliskan matriks
1 (m1) pada baris 2 kolom 1, danbaris
2 kolom 2.
·
Procedure t.kali pendeklarasian dan judul dari procedure kali (t.kali).
·
Begin untuk memulai program dari blok procedure t.tambah.
·
Clrscr untuk menghapus hasil output dari program atau dari keluaran sebelumnya.
·
Gotoxy(26,12); writeln (‘Hasil Perkalian Matrik’) menuju ke baris 26 dan kolom 12, dan menuliskan ‘Hasil Perkalian Matrik pada layar
output.
·
Lok[1] := m1[1,1]*m2[1,1] pada lok
1, matriks 1 baris dan kolom 1 dikalikan dengan matriks 2
baris dan kolom 1 (sejenis).
·
Lok[2] := m1[1,2]*m2[1,2] pada lok
2, matriks 1 baris 1 kolom 2 dikalikan
dengan matriks 2 dengan baris dan kolom yang sama atau sejenis.
·
Lok[3] := m1[2,1]*m2[2,1] pada lok
3, matriks 1 baris 2 kolom 1 dikalikan
dengan matriks 2 dengan baris dan kolom yang sama atau sejenis.
·
Lok[4] := m1[2,2]*m2[2,2] pada lok
4, matriks 1 baris 2 kolom 2 dijumlahkan dengan matriks 2 dengan baris dan kolom yang sama atau sejenis.
·
Gotoxy (32,14); writeln(lok[1]:5,lok[2]:5) menuju baris
32 dan kolom 14 dan menuliskan hasil dari lok 1 dan lok 2 pada baris pertama.
·
Gotoxy (32,15);
writeln(lok[3]:5,lok[4]:5) menuju baris
32 dan kolom 15 dan menuliskan hasil dari lok 3 dan lok 4 pada baris kedua.
·
Readln untuk membaca ulang dari program yang
sebelumnya telah ditulis dan di deklarasikan.
·
Clrscr untuk membersihkan layar output dari keluaran
output yang sebelumnya.
·
End untuk mengakhiri blok procedure t.kali
·
Gotoxy (35,7); writeln (‘*Matrik II*’) menuju baris
35 kolom 7 dan menuliskan *Matrik II
pada layar output.
·
Gotoxy (27,12); writeln
(m2[1,1]:5,m2[1,2]:5) menuju baris
27 kolom 12 dan menuliskan matriks 2 (m2) untuk baris pertama,
kolom 1 dan 2.
·
Gotoxy (27,14); writeln
(m2[2,1]:5,m2[2,2]:5) menuju baris 27 kolom 14 dan menuliskan matriks 2 (m2) untuk baris kedua, kolom 1 dan 2.
·
Readln untuk membaca syntax yang telah dideklarasikan.
·
Clrscr untuk menghapus layar output dari program sebelumnya.
·
Clrscr untuk menghapus hasil output sebelumnya pada layar output.
·
End untuk mengakhiri program pada blok program.
·
Begin untuk memulai
program.
·
Repeat untuk
proses perulangan pada menu.
·
Clrscr untuk menghapus hasil output sebelumnya pada layar output.
·
Gotoxy (25,1); writeln (‘***** Menu Matrik
*****’) menuju baris
25 kolom 1 dan menuliskan***** Menu
Matrik *****
·
Gotoxy (25,2); writeln (‘1. Input Matrik’) menuju baris 25 kolom 2 dan menuliskan 1. Input a Matrik
·
Gotoxy (25,3); writeln (‘2. Perkalian Matrik’) menuju baris 25 kolom 3 dan menuliskan2. Perkalian Matrik
·
Gotoxy (25,4); writeln (‘3. determinan’) menuju baris 25 kolom 4
dan menuliskan 3. Determinan Matrik
·
Gotoxy (25,5); writeln (‘4. transpose’) menuju baris 25 kolom 5 dan menuliskan 4. transpose
·
Gotoxy (25,6); writeln (‘-----------------------------’) menuju baris 25 kolom 6
·
Gotoxy (27,7); write (‘Pilihan [1..5] :’); readln (pil) menuju baris
27 kolom 7 dan menuliskan Pilihan [1..5], kemudian membaca syntax tersebut sebagai
variable yang disesuaikan
·
Case pil of menggunakan kondisi case of atas variable pil.
·
1: begin untuk pilihan 1, begin.
·
m.input akan menampilkan bagian input, dan
·
m.tampil
akan menampilkan bagian tampil.
·
M.kali
akan menampilkan bagian kali
·
M.determinan
dan m.transpose akan menampilkan bagian transpose dan determinanya
·
Lalu
end akhir
Berikut
adalah OUTPUT dari program yang telah dibuat :
Dalam
menu tersebut terdapat 4 pilihan yang tersedia,kita bisa memilih sesuai
keinginan seperti contoh dibawah ini :
Misal
kita memilih angka menu 1 yaitu input matrik maka hasil gambar tampilan
outputnya seperti gambar di atas kita masukkan angka sesuai keinginan enter dan
hasilnya seperti gambar di atas Dan jika ingin mengembalikan ke menu awal bisa
kita enter dan langsung kembali ke menu
awal atau beranda Untuk hasil perkalian karena data sebelumnya sudah di input
maka hasil perkaliannya tinggal kita enter saja dan berikut hasilnya
Tidak ada komentar:
Posting Komentar