M A T R I K S

Adalah struktur penyimpanan data di dalam memori utama yang
setiap individu elemennya diacu dengan menggunakan dua buah
indeks (yang biasanya dikonotasikan dengan baris dan kolom).
Karena Matriks sebenarnya adalah Larik, maka konsep umum dari larik
juga berlaku untuk matriks, yaitu :
1. Kumpulan elemen yang bertipe sama. Tipe elemen matriks dapat
berupa tipe dasar (integer, real, Boolean, char, dan string),
atau tipe terstruktur seperti record.
2. Setiap elemen data dapat diakses secara acak (random) jika
indeksnya (baris dan kolom) diketahui yang dalam hal ini indeks
menyatakan posisi relative di dalam kumpulannya.
3. Merupakan struktur data yang static, artinya jumlah elemennya
suda ditentukan terlebih dahulu di dalam kamus dan tidak bisa
diubah selama pelaksanaan program.
Elemen matriks diacu dengan indeks baris dan indeks kolom. Jika
indeks baris dinyatakan dengan i dan indeks kolom dinyatakan dengan
j , maka notasi algoritmik untuk mengacu elemen pada baris i dan j
adalah nama_matriks[I,j].
PENDEKLARASIAN MATRIKS
1. Sebagai Peubah
DEKLARASI
M : array [1..5, 1..5] of integer
2. Sebagai Tipe Baru
DEKLARASI
Type
Mat : array [1..5, 1..5] of integer
Var
M : Mat
MENDEFINISIKAN UKURAN MAKSIMUM MATRIKS SEBAGAI SEBUAH TETAPAN
DEKLARASI
CONST Nbarismaks = 20 (jumlah baris maksimum)
CONST Nkolommaks = 20 (jumlah kolom maksimum)
M : array [1.. Nbaris, 1..Nkolom] of integer
Tugas :
1. Perbaikilah deret logika program perkalian Matriks
berikut menjadi sebuah deret logika program yang utuh dan
benar!
2. Lakukan analisis langkah pengerjaan langkah program
tersebut sehingga dapat menghasilkan hasil perkalian
matriks yang benar dengan cara menentukan berapa kolom
dan baris yang ditentukan, indeks untuk setiap kolom dan
baris, langkah perhitungan matriks, dll !
PRGRM M A T R I X
TIPE
LARIK : ARAY[1..50,1..50] OF INTGER
VAR
I,J,K = BYTE
M,N,O = BYTE
MAT1,MAT2,MAT3 : LARIK
LAGI = CHAR
BGN
LAGI = 'Y'
WHILE UPCASE(LAGI)='Y' DO
BOGIN
CRlSRC
WRITE(BERAPA BARIS MATRIKS 1 : ); REDL(M)
WRITE(BERAPA KOL MAT 1 / BARIS MAT 2: ); REDLN(N)
WRITE(BERAPA KOLOM MATRIKS 2 : ); REDN(O)
WRITELN(INPUT MATRIKS PERTAMA)
FOR I:1 TO M DO
BEGN
FOR J = 1 TO N DO
BEGIN
WRITE(MATRIKS 1 ELEMEN KE [',I,',',J,']:')
REDL(MAT1[I,J])
WRITELN(INPUT MATRIKS KEDUA)
FOR I:1 TO N
BEGIN
FOR J=1 TO O DO
BEGIN
WRITE('MATRIKS 2 ELEMEN KE [',I,',',J,']:)
READLN(MAT2[I,J])
END
FOR I = 1 TO M DO
B
FOR J:=1 TO O DO
BOGEN
MAT3[I,J]=0
FOR K=1 TO N DO
BGN
MAT3[I,J] = MAT3[I,J] + MAT1[I,K] * MAT2[K,J]
END
WRITELN(HASIL PERKALIAN MATRIKS :)
FOR I = 1 TO M DO
BGN
FOR J=1 TO O DO
BEGIN
WRITE(MAT3[I,J]:9)
END
WRITELN
WRITE(MAU INPUT LAGI [Y/N]:)
READLN(LAGI)
END
END
END

0 komentar:

Posting Komentar

desain dan isi milik Bonaventura @Right 2008. Diberdayakan oleh Blogger.