My Diary.
to Share my Life Events

ARRAY/LARIK pada PASCAL



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 :
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 :
 
 

Ø  Array 2 (dua) Dimensi
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 :
  1. Sebagai nama peubah
DEKLARASI
MAT : Array [1..4, 1..5] of integer
  1. Sebagai tipe
DEKLARASI
Type MAT : Array[1..4, 1..5] of integer
M : MAT {M adalah nama matriks yang bertipe MAT}
  1. 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

Adi Nurachman Adi Nurachman Author

1 komentar:

  1. trima-kaksih, saya sedang mencoba mengingat-ingat kembali mata kuliah itu, dua belas tahun yang lalu. Teruslah berkreasi/menulis.

    BalasHapus

SCIENCE & TECHNOLOGY

Games & Multimedia

Formulir Kontak

Nama

Email *

Pesan *

Subscribe Here

Recent

Flickr

Blogger templates

Comments

Blogger templates

About

Social Media

Popular Posts

Popular Posts