Array Dimensi Banyak GERLAN A MANU ST EMAIL
Array Dimensi Banyak GERLAN A. MANU, ST EMAIL : GERLAN. MANU@GMAIL. COM
Mengingat Kembali Array adalah tipe terstruktur yang terdiri dari sejumlah komponen-komponen yang mempunyai tipe yang sama. Contoh : Var X : Array[1. . 100] of Integer ……. X[1] : = 25; X[2] : = 75; …. . write. Ln (X[1]); {untuk menampilkan Array X pertama}
Array Dimensi Banyak Array dapat juga berdimensi lebih dari satu yang disebut array dimensi banyak (multidimensi array). Array Berdimensi Dua (Two Dimensional Array) Array Berdimensi Tiga (Three Dimensional Array) Dst…
Array Dimensi Dua mewakili suatu bentuk tabel atau matrik, yaitu indeks yang pertama dapat menunjukkan baris dan indeks kedua dapat menunjukkan kolom dari tabel atau matrik. nama_array = array[tipe_indeks 1] of array [tipe_indeks 2] of tipe_data; atau, nama_array = array[tipe_indeks 1, tipe_indeks 2] of tipe_data;
Contoh Uses wincrt; Var Tabel : array[1. . 3, 1. . 2] of byte; I, J : byte; Begin Tabel[1, 1] : = 5; Tabel[1, 2] : = 25; Tabel[2, 1] : = 200; Tabel[2, 2] : = 22; Tabel[3, 1] : = 75; Tabel[3, 2]: = 50; For I : = 1 to 3 do Begin For J : = 1 to 2 do Begin write (Tabel[I, J]: 5); End; write. Ln End; End. Menampilkan nilai array setelah spasi 5 kali Coba anda hilangkan : 5, perhatikan apa yang terjadi setelah di Run.
Lanjutan… Tabel[1, 1] : = 5; Tabel[1, 2] : = 25; Tabel[2, 1] : = 200; Tabel[2, 2] : = 22; Tabel[3, 1] : = 75; Tabel[3, 2]: = 50; Untuk mengisi nilai bisa langsung pada program seperti diatas atau bisa dengan Read. Ln; For I : = 1 to 3 do Begin For J : = 1 to 2 do Begin write ('Masukan Nilai Tabel[', I, ', ', J, '] = '); Readl. N (Tabel[I, J]); End; Perhatikan penggunaan koma Utk memisahkan nilai variabel (I dan J) Dan tampilan karakter (masukan nilai tabel)
Latihan Buatlah program untuk matrik dibawah ini : 13 24 21 22 14 10 12 1 31 Buatlah program untung menjumlahkan matrik dibawah ini : Matrik A 2 3 1 5 2 6 7 8 4 Matrik B 4 9 1 2 1 3 3 2 5 Untuk kuliah online latihan dikumpul paling lambat jam 6 sore hari ini
Deklarasi Array Dimensi Dua Seperti contoh sebelumnya deklarasi array ditulis : Var Tabel : array[1. . 3, 1. . 2] of byte; Bisa juga ditulis seperti : Type X = array[1. . 3, 1. . 2] of byte; Var Tabel : X; Atau; Type Baris = 1. . 3; Kolom = 1. . 2; X = array[Baris, Kolom] of Byte; Var Tabel : X;
Parameter Larik dapat digunakan sebagai parameter yang dikirimkan baik secara nilai(by value) atau secara acuan (by reference) ke prosedur atau fungsi. Prosedur yang menggunakan parameter barupa larik harus dideklarasikan di dalam judul prosedur yang menyebutkan parameternya bertipe larik.
Contoh Uses wincrt; Type Larik = array[1. . 50, 1. . 50] of Real; Var I, J, K , N: byte; X : Larik; Procedure Invers(Var X : Larik; N : byte); Var Pv, A : real; Begin For I : = 1 to N do Begin PV : = X[I, I]; X[I, I] : = 1; For J : = 1 to N do X[I, J] : = X[I, J]/ PV; For K : = 1 to N do Begin If K <> I Then Begin A : = X[K, I] : = 0; For J: = 1 to N do X[K, J] : = X[K, J]-A*X[I, J]; End;
Lanjutan Contoh… {program utama} Begin Clrscr; Write ('Orde dari matrik ? '); Readln(N); Write. Ln; {memasukkan data} For I : = 1 to N do Begin For J : = 1 to N do Begin Write( 'Nilai [', I, ' , J, '] = '); Read. Ln (X[I, J]); End; Write. Ln; End; {mencetak nilai matrik asli} Clrscr; write. Ln ('Matrik Awal'); For I : = 1 to N do Begin For J : = 1 to N do Write ( X[I, J]: 10); Write. Ln; End; {menghitung invers matrik} Invers(X, N); write. Ln; {mencetak inver matrik} Write. Ln ('Matriks Invers'); For I : = 1 to N do Begin For J : = 1 to N do Write ( X[I, J]: 10); Write. Ln; End.
Array Dimensi Tiga Untuk array dimensi tiga : nama_array = array[tipe_indeks 1, tipe_indeks 2, tipe_indeks 3] of tipe_data; Contoh : Tabel : array[1. . 3, 1. . 3] of integer; Untuk menginputkan data dan menampilkan data sama dengan array dimensi dua
Tugas Array Dimensi Banyak Buatlah dua buah matrik kemudian kalikan! Implementasikan perkalian matrik tersebut dalam program dengan menggunakan array dimensi dua! (Kerjakan masing-masing tidak boleh ada yang sama, kumpulkan via email paling lambat jam 12 malam 22 April 2010)
Algoritma Program Dua buah matrik yang akan dikalikan harus mempunyai orde jumlah kolom matrik pertama dan jumlah baris matrik kedua harus sama. Masukkan Data dari Matrik yang Pertama. Masukkan Data dari Matrik yang Kedua. Kalikan kedua matrik tersebut. Tampilkan Hasil.
- Slides: 14