ARRAY

PART II
ARRAY 2 DIMENSI
• Terdiri dari beberapa baris elemen.
• Biasanya merepresentasikan sebuah tabel.
• Terdiri dari baris (sebagai dimensi pertama) dan
kolom (sebagai dimensi kedua).
ARRAY 2 DIMENSI
• Terdiri dari baris dan kolom

0 1 2 3 Kolom, 4
0 12 17 22 14 Dimensi Array
dinyatakan dalam
1 10 5 13 5 Baris x Kolom

Array 2 x 4
Baris, 2
DEKLARASI DAN
INISIALIASI
• Deklarasi array 2 dimensi
• Dim Nama_Array (Baris,Kolom) As Tipe_Data
• Contoh-contoh deklarasi Array 2 dimensi:
• Dim B(,) As Byte = {{10,20},{30,40}}
• Dim B(,) As Byte = {}
• Dim B(,) As Byte = New Byte (1,1) {{10,20},{30,40}}
• Dim B(,) As Byte = New Byte (1,1) {}
• Dim B(1,1) As Byte
B(0,0) = 10
B(0,1) = 20
B(1,0) = 30
B(1,1) = 40
DEKLARASI ARRAY
• Contoh :
Dim Arr(1,2) As Integer
Mendeklarasikan array berukuran 2x3, bertipe integer.

0 1 2

1
INISIALISASI ARRAY
• Contoh
Dim B(,) As Byte = New Byte (1,1) {{10,20},{30,40}}

Baris ke 0 Baris ke 1

0 1

0 10 20
1 30 40
INISIALISASI ARRAY
• Bagaimana deklarasi dan inisialisasi array- array berikut ?

1. 30 40 50 30 40 50

10 20 Z X c V B N
2. 40 50 3. A S D F G H
10 20 q W e R t Y
PENGAKSESAN
ARRAY 2 DIMENSI
• Elemen dalam array 2 dimensi diakses dengan penanda
baris dan kolom
• Contoh :
0 1 2

0 10 20 30
1 40 50 60
 diakses dengan : data[0][1];
PENGAKSESAN
ARRAY 2 DIMENSI
• Urutan pengaksesan tidak harus baris-per-baris, tapi bisa
kolom-per-kolom sesuai kebutuhan
• Baris-per-baris : Kolom-per-kolom

10 20 30 10 20 30
40 50 60 40 50 60
CONTOH
Sub Main()
Dim arr(,) As Integer = {{1, 2, 3}, {4, 3, 2}}
Dim i, j As Integer
For i = 0 To 1
For j = 0 To 2
[Link](arr(i, j) & Space(3))
Next
[Link]()
Next
[Link]()
End Sub
CONTOH
Sub Main()
Dim arr(,) As Integer = {{1, 2, 3}, {4, 3, 2}}
Dim i, j As Integer
For i = 0 To 2
For j = 0 To 1
[Link](arr(j, i) & Space(3))
Next
[Link]()
Next
[Link]()
End Sub
OPERASI MATRIKS:
PERKALIAN

1 2 3 2 4 6
2 4 5 6 8 10 12
7 8 9 14 16 18
Sub Main()
Dim arr(,) As Integer = {{1, 2, 3}, {4, 5, 6}, {7, 8, 9}}
Dim kali(2, 2) As Integer
Dim i, j As Integer

For i = 0 To 2
For j = 0 To 2
[Link](arr(i, j) & vbTab)
Next
[Link]()
Next

[Link]()

For i = 0 To 2
For j = 0 To 2
kali(i, j) = 2 * arr(i, j)
[Link](kali(i, j) & vbTab)
Next
[Link]()
Next

[Link]()
End Sub
OPERASI MATRIKS:
TRANPOSE

1 2 3 1 4 7
4 5 6 2 5 8
7 8 9 3 6 9
Sub Main()
Dim arr(,) As Integer = {{1, 2, 3}, {4, 5, 6}, {7, 8, 9}}
Dim trans(2, 2) As Integer
Dim i, j As Integer

'Mencetak array arr(,)

[Link]()

'Melakukan transpose pada arr(,) dan disimpan ke dalam trans(,)

'Mencetak hasil transpose

[Link]()
End Sub
OPERASI MATRIKS:
TAMBAH
Buatlah program untuk menghitung dan manampilkan hasil
dari penjumlahan dua matriks!

1 2 3 1 4 7 2 6 10
4 5 6 + 2 5 8 = 6 10 14
7 8 9 3 6 9 10 14 18