ARRAY/LARIK pada PASCAL
05.25
Assalamu’alaikum Wr. Wb.
Semoga
materi yang saya berikan sebelumnya bermanfaat bagi yang membutuhkan, kali ini
saya akan memberikan materi tentang ARRAY atau LARIK. Sebuah peubah hanya
menyimpan sebuah nilai. Ia tidak dapat menyimpan beberapa buah nilai yang
bertipe sejenis. Dalam pemrograman, sering kita mengolah sekumpulan data yang
bertipe sama, misalnya hasil ujian 100 orang siswa, tabel harga barang di pasar
swalayan, daftar kode wilayahdalam percakapan interlokal, dan sebagainya. Karena
setiap elemen data bertipe sama, maka elemen tersebut diacu nama, dan untuk
membedakan elemen data yang satu dengan elemen data yang lainnya, maka elemen
diacu dengan penggunaan indeks (subscript).
·
Lalu apa itu Array/Larik?
Array adalah struktur data yang menyimpan sekumpulan elemen
yang bertipe sama yang disimpan ke dalam variabel dengan nama yang sama, setiap
elemen diakses langsung melalui indeksnya. Indeks array haruslah tipe data yang
menyatakan keterurutan, misalnya integer atau karakter.
·
Mendeklarasikan Larik
Array/Larik adalah struktur data statis, artinya jumlah elemen array/larik harus sudah diketahui
sebelum program dieksekusi. Jumlah elemen array/larik tidak dapat diubah,
ditambah, atau dikurangi selama pelaksanaan program.
mendeklarasikan array/larik di dalam bagian deklarasi berarti :
mendeklarasikan array/larik di dalam bagian deklarasi berarti :
1.
Mendefinisikan banyaknya
elemen array/larik (ukurannya), dan
2.
Mendefinisikan tipe elemen
array/larik.
Suatu array dapat dibedakan atas 2 (dua) bagian, yaitu
- Array 1 (satu) Dimensi
- Array Multidimensi (Array 2 dimensi)
Ø Array
1 (satu) Dimensi
Array
berdimensi satu dapat dikatakan sebagai suatu daftar yang linier atau sebuah
kolom. Bentuk deklarasi dari array jenis ini dalam bahasa Pascal adalah : VAR
nama_array : ARRAY [index] OF jenis_elemen;
Contoh
:
VAR x :
ARRAY [1..10] OF integer;
atau
Type Angka = Array[1..10] Of Integer ;
Var
x : Angka;
Cara mendeklarasikan array pada bagian deklarasi :
a.
Sebagai peubah
Var
A = array
[1..100] of integer;
Namamhs = array [1..50] of string;
Nilai = array
[1..80] of real;
b.
Sebagai tipe bentukan
Type
Larikint
= array [1..100] of integer;
Var
A
: larikint;
c.
Sebagai sebuah konstanta
(const)
Const
Nmaks
= 100;
Var
A
= array [1..nmaks] of
integer;
Contoh array
1 dimensi :
1.
Memecahkan masalah tentang
applikasi kasir menggunakan Array 1 dimensi
Contoh
programnya :
var
nama:array[1..10]
of string;
harga:array[1..10]
of integer;
i,total,uang:integer;
begin
writeln('-----------------------------------------------------------------------');
writeln('---------------------------
APLIKASI KASIR ----------------------------');
writeln('-----------------------------------------------------------------------');
writeln;
i:=1;
uang:=0;
while(i<=6) do
begin
write(i,'. Nama Barang : ');readln(nama[i]);
writeln;
write(' Harganya
: Rp ');readln(harga[i]);
i:=i+1;
writeln;
end;
writeln;
writeln('------------------------- HASIL
BELANJAAN ANDA ------------------------');
writeln;
i:=1;
while (i<=6) do
begin
writeln;
write(i,'. Nama Barang : ',nama[i]);
writeln;
writeln;
write(' Harganya
: Rp ',harga[i]);
writeln;
total:=total+harga[i];
i:=i+1;
end;
writeln;
writeln(' Total Belanjaan Anda Adalah Rp
',total);
while (uang<total) do
begin
writeln;
write(' Masukan Uang Anda : Rp ');readln(uang);
writeln;
if (uang<total) then
begin
writeln(' Uang Anda Tidak
Mencukupi !!!');
end
else
begin
writeln(' Kembalian Anda Adalah : Rp ',uang-total);
writeln;
writeln('----------------------------------------------------------------------');
writeln('-------------------
TERIMAKASIH TELAH BERKUNJUNG ---------------------');
writeln('----------------------------------------------------------------------');
end;
end;
readln;
end.
Hasilnya
:
Di
dalam pascal Array dapat berdimensi lebih dari satu yang disebut dengan array
dimensi banyak (Multidimensional array), disini akan dibahas array 2 (dua)
dimensi saja. Array 2 dimensi dapat mewakili suatu bentuk tabel atau matrik
yaitu indeks pertama menunjukkan baris dan indeks ke dua menunjukkan kolom dari
tabel atau matrik.
2.1.
Pengertian Array 2 (dua) dimensi/Matriks
Matriks
adalah struktur penyimpanan data di dalam memori utama yang setiap individu
elemennya diacu dengan menggunakan dua buah indeks (yang biasanya dikonotasikan
dengan indeks baris dan indeks kolom.
2.2. Pendeklarasian Matriks
Sebelum matriks digunakan untuk menyimpan data,
terlebih dahulu matriks harus dideklarasikan. Mendeklarasikan matriks artinya
menentukan nama matriks, tipe data, dan ukurannya. Pendeklarasian mtriks di
dalam teks algoritma ditulis di dalam bagian Deklarasi. Kata kunci yang dipakai
untuk matriks tetap menggunakan kata array.
Ada beberapa cara pendeklarasian matriks :
- Sebagai nama peubah
DEKLARASI
MAT : Array [1..4, 1..5] of integer
- Sebagai tipe
DEKLARASI
Type MAT : Array[1..4, 1..5] of integer
M : MAT {M adalah nama matriks yang bertipe MAT}
- Mendefinisikan ukuran maksimun matriks sebagai sebuah konstanta
DEKLARASI
Const NBarMaks = 10 {jumlah elemen
baris maksimun}
Const NKolMaks = 10 {jumlah
elemen kolom maksimun}
M : Array [1..NBarMaks, 1..NKolMaks] of integer
Untuk mengetahui cara mendeklarasikan dari penggunaan
aray dua dimensi dapat dilihat pada program dibawah ini .
Contoh Program:
Program Deklarasi_Array_Dua_Dimensi;
Uses Crt;
Var
Tabel : Array[1..4,1..5] of Integer;
i,j : Integer;
Begin
ClrScr;
Tabel[1,1]:=4;
Tabel[1,2]:=5;
Tabel[1,3]:=3;
Tabel[1,4]:=1;
Tabel[1,5]:=2;
Tabel[2,1]:=6;
Tabel[2,2]:=3;
Tabel[2,3]:=4;
Tabel[2,4]:=5;
Tabel[2,5]:=6;
Tabel[3,1]:=3;
Tabel[3,2]:=2;
Tabel[3,3]:=4;
Tabel[3,4]:=4;
Tabel[3,5]:=1;
Tabel[4,1]:=6;
Tabel[4,2]:=6;
Tabel[4,3]:=2;
Tabel[4,4]:=4;
Tabel[4,5]:=5;
For i := 1 to 10 Do
Begin
For J:= 1 to 2 Do
Begin
Writeln(‘Elemen ‘,i,’,’,j,’= ‘,tabel[i,j]);
End;
End;
Readln;
Sekian contoh-contoh dari array 1 dimensi dan 2
dimensi, semoga bermanfaat bagi kalian yang membutuhkan. Terimakasih telah
berkunjung di blog saya :-)
Sumber :
Algoritma & Pemrograman Dalam Bahasa Pascal dan C
Edisi Revisi: Rinaldi Munir
trima-kaksih, saya sedang mencoba mengingat-ingat kembali mata kuliah itu, dua belas tahun yang lalu. Teruslah berkreasi/menulis.
BalasHapus