![ARRAY MULTI DIMENSI
Array Multidimensi Dalam array multidimensi terdiri atas baris (row) dan kolom (column).
Index pertama adalah baris dan yang kedua adalah kolom . SYNTAX Type nama_array
=ARRAY[bawah..atas, bawah..atas] of tipe_data; var variabel_array : nama_array; atau
dengan menggunakan statemen var : SYNTAX var variabel_array : ARRAY[bawah..atas,
bawah..atas] of tipe_data; Pernyataan berikut membentuk suatu array integer dengan nama
bilangan , 10 x 10 elemen (100). type matriks = ARRAY [1..10, 1..10] of integer; var AKU:
matriks; untuk memasukkan tiap elemen maka, diperlukan suatu procedure dengan
mempergunakan struktur pengulangan for ...do tersarangseperti berikut: procedure
ISI_MATRIK(AKU:matriks; m,n:integer); var i,j: integer; {faktor pengulang} begin for i:=1
to m do begin for j:=1 to n do begin read(A[i,j]); end; readln ;{ini memungkinkan kita
menulis tiap baris elemen} end; untuk menampilkan tiap elemen maka, digunakan struktur
pengulangan for ...do tersarang seperti berikut procedure TULIS_MATRIK(AKU:matriks;
m,n:integer); var i,j: integer; {faktor pengulang} begin for i:=1 to m do begin for j:=1 to n do
begin write(A[i,j]:6); end; writeln ; {ini memungkinkan kita menulis elemen dalam baris dan
kolom } end; end; 5. Operasi pada Array Sifat masing-masing elemen array mengikuti jenis
data yang dimilikinya, untuk array dengan tipe bilangan integer atau real kita bisa melakukan
berbagai standar operasi aritmatika seperti penjumlahan, perkalian, pengurangan, dsb. Yang
perlu di garis bawahi, bahwa sifat dari array dimanfaatkan untuk operasi matrik. a. Mencari
Harga Tertentu pada Array Mencari suatu elemen data di dalam suatu data merupakan suatu
kejadian yang sering kita alami, contoh: mencari nama mahasiswa dari daftar presensi.
Pencarian beruntun (sequence), merupakan suatu teknik untuk mencari suatu elemen dalam
suatu sistim yang lebih besar. Contoh. Misal array A[8], dengan elemen sbb: A 60 12 76 23
11 42 18 42 Untuk mencari apakah bilangan x=11 ada didalam tabel maka dilakukan
pemeriksaan terhadap : 60 12 76 23 11 Sehingga ditemukan x pada elemen ke-5, dalam
bahasa PASCAL diterjemahkan seperti berikut: type PITA = ARRAY [1..8] of integer; var
AKU: PITA; procedure CARI_MATRIK(AKU: PITA); var i: integer; {faktor pengulang}
begin for i:=1 to 8 do begin if AKU[i]:= 11 then writeln(‘ terdapat bilangan 11 dalam pita ini
‘); else writeln(‘ tidak ada bilangan 11, pencarian berhenti ‘); end; end; b. Mencari Harga
Maksimum pada Array Misal array di atas kita cari harga yang tertinggi, maka kita perlu
menentukan nilai tertinggi dahulu sebelum melakukan pencarian ; diawali dengan nilai
maksimum=0 procedure CARI_MAKSIMUM(AKU: PITA); var i: integer; {faktor
pengulang} MAKS : integer; begin MAKS := AKU[1]; for i:=1 to 8 do begin if AKU[i]>
MAKS then MAKS:= AKU[i]; End; Writeln(‘NILAI MAKSIMUM = ’,MAKS); end; b.
Mencari Harga Minimum pada Array Misal array di atas kita cari harga yang terendah, maka
kita perlu menentukan nilai terendah dahulu sebelum melakukan pencarian ; diawali dengan
nilai maksimum=3200 procedure CARI_MINIMUM(AKU: PITA); var i: integer; {faktor
pengulang} MIN : integer; begin MIN := 3200; for i:=1 to 8 do begin if AKU[i]< minimum
=" ’,MIN);" matrik="array[1..100,1..100]" m="p)" n="q)" m="p)" n="q)" n="p)" onblur="try
{parent.deselectBloggerImageGracefully();} catch(e) {}"
href="http://2.bp.blogspot.com/_612DHwdvDBM/SiDT9ea24kI/AAAAAAAAALg/sfCCU8I](https://image.slidesharecdn.com/arraymultidimensi-141119163858-conversion-gate02/85/Array-multi-dimensi-1-320.jpg)
![180A/s1600-h/2.JPG"> Buat program
Array 2 dimensi untuk memasukkan data nilai matakuliah tiap mahasiswa. Kolom- N1, N2,
N3, Total Baris--- Yani, Riski, Eko 2.
Baris--senin, selasa, rabu, kamis, jum’at, sabtu - Buat program Array 2 dimensi untuk
memasukkan jumlah anak yang ikut kegiatan tertentu. - Outputkan dalam bentuk matrik 2
dimensi.
Dalam array multidimensi terdiri atas baris (row) dan kolom (column). Index pertama adalah baris
dan yang kedua adalah kolom .
SYNTAX
Type nama_array =ARRAY[bawah..atas, bawah..atas] of tipe_data;
var variabel_array : nama_array;
atau dengan menggunakan statemen var :
SYNTAX var variabel_array : ARRAY[bawah..atas, bawah..atas] of tipe_data;
Pernyataan berikut membentuk suatu array integer dengan nama bilangan , 10 x 10 elemen (100).
type matriks = ARRAY [1..10, 1..10] of integer;
var AKU: matriks;
untuk memasukkan tiap elemen maka, diperlukan suatu procedure dengan mempergunakan
struktur pengulangan for ...do tersarangseperti berikut:
procedure ISI_MATRIK(AKU:matriks; m,n:integer);
var
i,j: integer; {faktor pengulang}
begin
for i:=1 to m do
begin
for j:=1 to n do
begin
read(A[i,j]);
end;
readln ;{ini memungkinkan kita menulis tiap baris elemen}
end;](https://image.slidesharecdn.com/arraymultidimensi-141119163858-conversion-gate02/85/Array-multi-dimensi-2-320.jpg)
![untuk menampilkan tiap elemen maka, digunakan struktur pengulangan for ...do tersarang seperti
berikut
procedure TULIS_MATRIK(AKU:matriks; m,n:integer);
var i,j: integer; {faktor pengulang}
begin
for i:=1 to m do
begin
for j:=1 to n do
begin
write(A[i,j]:6);
end;
writeln ; {ini memungkinkan kita menulis elemen dalam baris dan kolom }
end;
end;
5. Operasi pada Array
Sifat masing-masing elemen array mengikuti jenis data yang dimilikinya, untuk array dengan tipe
bilangan integer atau real kita bisa melakukan berbagai standar operasi aritmatika seperti
penjumlahan, perkalian, pengurangan, dsb. Yang perlu di garis bawahi, bahwa sifat dari array
dimanfaatkan untuk operasi matrik.
a. Mencari Harga Tertentu pada Array
Mencari suatu elemen data di dalam suatu data merupakan suatu kejadian yang sering kita alami,
contoh: mencari nama mahasiswa dari daftar presensi. Pencarian beruntun (sequence), merupakan
suatu teknik untuk mencari suatu elemen dalam suatu sistim yang lebih besar.
Contoh.
Misal array A[8], dengan elemen sbb:
A
60 12 76 23 11 42 18 42
Untuk mencari apakah bilangan x=11 ada didalam tabel maka dilakukan pemeriksaan terhadap :
60 12 76 23 11
Sehingga ditemukan x pada elemen ke-5, dalam bahasa PASCAL diterjemahkan seperti berikut:
type PITA = ARRAY [1..8] of integer;
var AKU: PITA;
procedure CARI_MATRIK(AKU: PITA);
var
i: integer; {faktor pengulang}
begin
for i:=1 to 8 do
begin
if AKU[i]:= 11 then
writeln(‘ terdapat bilangan 11 dalam pita ini ‘);
else
writeln(‘ tidak ada bilangan 11, pencarian berhenti ‘);
end;
end;
b. Mencari Harga Maksimum pada Array
Misal array di atas kita cari harga yang tertinggi, maka kita perlu menentukan nilai tertinggi dahulu
sebelum melakukan pencarian ; diawali dengan nilai maksimum=0](https://image.slidesharecdn.com/arraymultidimensi-141119163858-conversion-gate02/85/Array-multi-dimensi-3-320.jpg)
![procedure CARI_MAKSIMUM(AKU: PITA);
var
i: integer; {faktor pengulang}
MAKS : integer;
begin
MAKS := AKU[1];
for i:=1 to 8 do
begin
if AKU[i]> MAKS then
MAKS:= AKU[i];
End;
Writeln(‘NILAI MAKSIMUM = ’,MAKS);
end;
b. Mencari Harga Minimum pada Array
Misal array di atas kita cari harga yang terendah, maka kita perlu menentukan nilai terendah dahulu
sebelum melakukan pencarian ; diawali dengan nilai maksimum=3200
procedure CARI_MINIMUM(AKU: PITA);
var
i: integer; {faktor pengulang}
MIN : integer;
begin
MIN := 3200;
for i:=1 to 8 do
begin
if AKU[i]< MIN then
MIN:= AKU[i];
end;
writeln(‘NILAI MINIMUM = ’,MIN);
end;](https://image.slidesharecdn.com/arraymultidimensi-141119163858-conversion-gate02/85/Array-multi-dimensi-4-320.jpg)
Array multi dimensi
- 1. ARRAY MULTI DIMENSI Array Multidimensi Dalam array multidimensi terdiri atas baris (row) dan kolom (column). Index pertama adalah baris dan yang kedua adalah kolom . SYNTAX Type nama_array =ARRAY[bawah..atas, bawah..atas] of tipe_data; var variabel_array : nama_array; atau dengan menggunakan statemen var : SYNTAX var variabel_array : ARRAY[bawah..atas, bawah..atas] of tipe_data; Pernyataan berikut membentuk suatu array integer dengan nama bilangan , 10 x 10 elemen (100). type matriks = ARRAY [1..10, 1..10] of integer; var AKU: matriks; untuk memasukkan tiap elemen maka, diperlukan suatu procedure dengan mempergunakan struktur pengulangan for ...do tersarangseperti berikut: procedure ISI_MATRIK(AKU:matriks; m,n:integer); var i,j: integer; {faktor pengulang} begin for i:=1 to m do begin for j:=1 to n do begin read(A[i,j]); end; readln ;{ini memungkinkan kita menulis tiap baris elemen} end; untuk menampilkan tiap elemen maka, digunakan struktur pengulangan for ...do tersarang seperti berikut procedure TULIS_MATRIK(AKU:matriks; m,n:integer); var i,j: integer; {faktor pengulang} begin for i:=1 to m do begin for j:=1 to n do begin write(A[i,j]:6); end; writeln ; {ini memungkinkan kita menulis elemen dalam baris dan kolom } end; end; 5. Operasi pada Array Sifat masing-masing elemen array mengikuti jenis data yang dimilikinya, untuk array dengan tipe bilangan integer atau real kita bisa melakukan berbagai standar operasi aritmatika seperti penjumlahan, perkalian, pengurangan, dsb. Yang perlu di garis bawahi, bahwa sifat dari array dimanfaatkan untuk operasi matrik. a. Mencari Harga Tertentu pada Array Mencari suatu elemen data di dalam suatu data merupakan suatu kejadian yang sering kita alami, contoh: mencari nama mahasiswa dari daftar presensi. Pencarian beruntun (sequence), merupakan suatu teknik untuk mencari suatu elemen dalam suatu sistim yang lebih besar. Contoh. Misal array A[8], dengan elemen sbb: A 60 12 76 23 11 42 18 42 Untuk mencari apakah bilangan x=11 ada didalam tabel maka dilakukan pemeriksaan terhadap : 60 12 76 23 11 Sehingga ditemukan x pada elemen ke-5, dalam bahasa PASCAL diterjemahkan seperti berikut: type PITA = ARRAY [1..8] of integer; var AKU: PITA; procedure CARI_MATRIK(AKU: PITA); var i: integer; {faktor pengulang} begin for i:=1 to 8 do begin if AKU[i]:= 11 then writeln(‘ terdapat bilangan 11 dalam pita ini ‘); else writeln(‘ tidak ada bilangan 11, pencarian berhenti ‘); end; end; b. Mencari Harga Maksimum pada Array Misal array di atas kita cari harga yang tertinggi, maka kita perlu menentukan nilai tertinggi dahulu sebelum melakukan pencarian ; diawali dengan nilai maksimum=0 procedure CARI_MAKSIMUM(AKU: PITA); var i: integer; {faktor pengulang} MAKS : integer; begin MAKS := AKU[1]; for i:=1 to 8 do begin if AKU[i]> MAKS then MAKS:= AKU[i]; End; Writeln(‘NILAI MAKSIMUM = ’,MAKS); end; b. Mencari Harga Minimum pada Array Misal array di atas kita cari harga yang terendah, maka kita perlu menentukan nilai terendah dahulu sebelum melakukan pencarian ; diawali dengan nilai maksimum=3200 procedure CARI_MINIMUM(AKU: PITA); var i: integer; {faktor pengulang} MIN : integer; begin MIN := 3200; for i:=1 to 8 do begin if AKU[i]< minimum =" ’,MIN);" matrik="array[1..100,1..100]" m="p)" n="q)" m="p)" n="q)" n="p)" onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="http://2.bp.blogspot.com/_612DHwdvDBM/SiDT9ea24kI/AAAAAAAAALg/sfCCU8I
- 2. 180A/s1600-h/2.JPG"> Buat program Array 2 dimensi untuk memasukkan data nilai matakuliah tiap mahasiswa. Kolom- N1, N2, N3, Total Baris--- Yani, Riski, Eko 2. Baris--senin, selasa, rabu, kamis, jum’at, sabtu - Buat program Array 2 dimensi untuk memasukkan jumlah anak yang ikut kegiatan tertentu. - Outputkan dalam bentuk matrik 2 dimensi. Dalam array multidimensi terdiri atas baris (row) dan kolom (column). Index pertama adalah baris dan yang kedua adalah kolom . SYNTAX Type nama_array =ARRAY[bawah..atas, bawah..atas] of tipe_data; var variabel_array : nama_array; atau dengan menggunakan statemen var : SYNTAX var variabel_array : ARRAY[bawah..atas, bawah..atas] of tipe_data; Pernyataan berikut membentuk suatu array integer dengan nama bilangan , 10 x 10 elemen (100). type matriks = ARRAY [1..10, 1..10] of integer; var AKU: matriks; untuk memasukkan tiap elemen maka, diperlukan suatu procedure dengan mempergunakan struktur pengulangan for ...do tersarangseperti berikut: procedure ISI_MATRIK(AKU:matriks; m,n:integer); var i,j: integer; {faktor pengulang} begin for i:=1 to m do begin for j:=1 to n do begin read(A[i,j]); end; readln ;{ini memungkinkan kita menulis tiap baris elemen} end;
- 3. untuk menampilkan tiap elemen maka, digunakan struktur pengulangan for ...do tersarang seperti berikut procedure TULIS_MATRIK(AKU:matriks; m,n:integer); var i,j: integer; {faktor pengulang} begin for i:=1 to m do begin for j:=1 to n do begin write(A[i,j]:6); end; writeln ; {ini memungkinkan kita menulis elemen dalam baris dan kolom } end; end; 5. Operasi pada Array Sifat masing-masing elemen array mengikuti jenis data yang dimilikinya, untuk array dengan tipe bilangan integer atau real kita bisa melakukan berbagai standar operasi aritmatika seperti penjumlahan, perkalian, pengurangan, dsb. Yang perlu di garis bawahi, bahwa sifat dari array dimanfaatkan untuk operasi matrik. a. Mencari Harga Tertentu pada Array Mencari suatu elemen data di dalam suatu data merupakan suatu kejadian yang sering kita alami, contoh: mencari nama mahasiswa dari daftar presensi. Pencarian beruntun (sequence), merupakan suatu teknik untuk mencari suatu elemen dalam suatu sistim yang lebih besar. Contoh. Misal array A[8], dengan elemen sbb: A 60 12 76 23 11 42 18 42 Untuk mencari apakah bilangan x=11 ada didalam tabel maka dilakukan pemeriksaan terhadap : 60 12 76 23 11 Sehingga ditemukan x pada elemen ke-5, dalam bahasa PASCAL diterjemahkan seperti berikut: type PITA = ARRAY [1..8] of integer; var AKU: PITA; procedure CARI_MATRIK(AKU: PITA); var i: integer; {faktor pengulang} begin for i:=1 to 8 do begin if AKU[i]:= 11 then writeln(‘ terdapat bilangan 11 dalam pita ini ‘); else writeln(‘ tidak ada bilangan 11, pencarian berhenti ‘); end; end; b. Mencari Harga Maksimum pada Array Misal array di atas kita cari harga yang tertinggi, maka kita perlu menentukan nilai tertinggi dahulu sebelum melakukan pencarian ; diawali dengan nilai maksimum=0
- 4. procedure CARI_MAKSIMUM(AKU: PITA); var i: integer; {faktor pengulang} MAKS : integer; begin MAKS := AKU[1]; for i:=1 to 8 do begin if AKU[i]> MAKS then MAKS:= AKU[i]; End; Writeln(‘NILAI MAKSIMUM = ’,MAKS); end; b. Mencari Harga Minimum pada Array Misal array di atas kita cari harga yang terendah, maka kita perlu menentukan nilai terendah dahulu sebelum melakukan pencarian ; diawali dengan nilai maksimum=3200 procedure CARI_MINIMUM(AKU: PITA); var i: integer; {faktor pengulang} MIN : integer; begin MIN := 3200; for i:=1 to 8 do begin if AKU[i]< MIN then MIN:= AKU[i]; end; writeln(‘NILAI MINIMUM = ’,MIN); end;