ARRAY PASCAL

 ARRAY

1.       Pendahuluan

Seringkali dalam pemrograman diperlukan suatu cara untuk dapat menyimpan banyak nilai sekaligus untuk dapat digunakan atau ditampilkan lagi. Nilai tersebut dapat berupa nilai yang dibangkitkan dalam program, atau nilai yang dimasukkan oleh pengguna. Diperlukan metode untuk menyiapkan sejumlah tempat kosong dalam memori komputer yang hanya akan dipakai untuk menyimpan nilai tersebut selama program berjalan, dan nilai tersebut dapat digunakan lagi sewaktu-waktu.

Pascal menyediakan kemampuan ini dengan menggunakan kata cadangan array. Array adalah tipe terstruktur yang terdiri dari sejumlah komponen-komponen yang mempunyai tipe yang sama. Komponen-komponen ini disebut dengan component type atau base type. Suatu array memiliki jumlah komponen yang banyaknya tetap. Komponen dapat menggunakan tipe data apa saja. Banyaknya komponen dalam suatu array ditunjukkan oleh suatu indeks yang disebut dengan index type dan harus bertipe ordinal. Tiap komponen array diakses dengan mereferensikan index value.

Tipe suatu array haruslah berupa tipe sederhana, tidak boleh bertipe kompleks. Bila nilai-nilai dari elemen array dibatasi nilainya dalam suatu jangkauan range tertentu, maka dapat dideklarasikan dengan tipe array berbentuk subrange. Sedangkan bilai nilai-nilai elemen array dibatasi dengan nilai-nilai tertentu yang tidak dapat ditulis dalam suatu range, tetapi dapat ditentukan secara berurutan, maka dapat digunakan array tipe skalar.

2.       Kata cadangan yang digunakan

Program     :  spesifikasi nama program dan parameternya, bersifat dekoratif dan tidak terlalu mempengaruhi keseluruhan program itu sendiri

Uses              :   mendefinisikan nama unit yang akan direferensi oleh program

Var                 :   menghubungkan sebuah identifier dan tipenya dengan suatu lokasi di memori dimana nilai-nilai dari tipe tersebut dapat disimpan

Begin             :   memulai suatu blok program

End                :   mengakhiri suatu blok program

Array             :   digunakan untuk mendefinisikan sebuah jenis array

For                 :   mendefinisikan nilai awal perulangan

To                   :   mendefinisikan nilai akhir perulangan (perulangan positif)

Do                  :   digunakan untuk menyebutkan aksi yang akan dilakukan perulangan

If                     :   menyebutkan kondisi untuk suatu statemen agar dapat dieksekusi

Then              :   menyebutkan statemen aksi yang harus dijalankan saat kondisi terpenuhi

Else                :   menyebutkan statemen aksi yang dapat dieksekusi saat statemen aksi lain tidak dieksekusi karena kondisinya tidak terpenuhi.

3.       Fungsi yang digunakan

Random       :   memunculkan suatu nilai random

Sqr                 :   menghasilkan nilai kuadrat dari suatu argumen

Sqrt                :   menghasilkan nilai akar dari suatu argumen

Trunc             :  memotong nilai jenis real supaya menjadi nilai jenis integer

Frac                :  mengembalikan bagian pecahan dari suatu argumen

4.       Contoh Program

a.       Contoh pertama

Program m5c1;

Uses wincrt;

Const

      Huruf : array [0..4] of char = ('E','D','C','B','A');

Var

      i : word;

Begin

      For i := 0 to 4 do

            Writeln('Nilai ke ',i, ' = ',Huruf[i]);

End.

Untuk download artikel lengkapnya silahkan klik disini..download.

Semoga bermanfaat..

Bang-iconk "TM.

RECORD & ARRAY OF RECORD PASCAL

RECORD & ARRAY OF RECORD

<!--[if !supportLists]-->1.       <!--[endif]-->Pendahuluan

Menggunakan array, Anda hanya dapat menyimpan nilai-nilai yang Anda masukkan ke dalam memori selama program berjalan dalam tipe yang sama. Sebagai contoh, Anda tidak akan dapat menyimpan data selain berbentuk bilangan bulat bila telah array telah Anda definisikan sebagai jenis integer. Agar Anda dapat menyimpan berbagai jenis data saat program Anda berjalan, Anda memerlukan mekanisme lain untuk melakukan hal tersebut dalam Pascal, dalam hal ini adalah record.

Dengan record, Anda dapat menyimpan suatu nilai berbentuk integer, real, char, string, atau tipe data lain bersama-sama. Ini memungkinkan pengguna program untuk dapat menyimpan berbagai data secara bersamaan selama program masih berjalan, dan dapat menggunakan data tersebut untuk berbagai keperluan. Yang perlu diperhatikan, record biasanya terdiri atas beberapa field saja, sehingga sulit digunakan untuk menyimpan data dalam jumlah sebanyak array. Hal ini disebabkan karena tidak ada mekanisme indeks dalam record. Untuk itu digunakan kombinasi array dan record yang disebut dengan array of record.

Array of record memungkinkan untuk menyimpan banyak data (sebanyak indeks array), masing-masing data berisikan ‘properti’ yang terdiri atas berbagai jenis data (sebanyak field dari record). Karena itu sangat penting untuk menguasai array of record ini sebagai dasar untuk melakukan pemrograman yang melibatkan banyak data sekaligus yang terdiri atas berbagai jenis data. Bila bagian ini telah dikuasai, Anda siap untuk melakukan manipulasi data yang lebih jauh lagi melalui suatu pemrograman menggunakan Pascal.

<!--[if !supportLists]-->2.       <!--[endif]-->Kata cadangan yang digunakan

Program     :  spesifikasi nama program dan parameternya, bersifat dekoratif dan tidak terlalu mempengaruhi keseluruhan program itu sendiri

Uses              :   mendefinisikan nama unit yang akan direferensi oleh program

Var                 :   menghubungkan sebuah identifier dan tipenya dengan suatu lokasi di memori dimana nilai-nilai dari tipe tersebut dapat disimpan

Begin             :   memulai suatu blok program

End                :   mengakhiri suatu blok program

Array             :   digunakan untuk mendefinisikan sebuah jenis array

Record          :   digunakan untuk mendeklarasikan record berisi kumpulan data dari berbagai tipe data

With              :   digunakan untuk melakukan referensi ke suatu field dalam record

Type              :   digunakan untuk mendeklarasikan suatu identifier yang memiliki tipe data tertentu

Do                  :   digunakan untuk menyebutkan aksi yang akan dilakukan

For                 :   mendefinisikan nilai awal perulangan

To                   :   mendefinisikan nilai akhir perulangan (perulangan positif)

If                     :   menyebutkan kondisi untuk suatu statemen agar dapat dieksekusi

Then              :   menyebutkan statemen aksi yang harus dijalankan saat kondisi terpenuhi

Else                :   menyebutkan statemen aksi yang dapat dieksekusi saat statemen aksi lain tidak dieksekusi karena kondisinya tidak terpenuhi.

<!--[if !supportLists]-->3.       <!--[endif]-->Fungsi yang digunakan

Readkey      :   membaca sebuah karakter yang dimasukkan lewat keyboard

<!--[if !supportLists]-->4.       <!--[endif]-->Contoh Program

<!--[if !supportLists]-->a.       <!--[endif]-->Contoh pertama

Program m6c1;

uses wincrt;

type

     anggota = record

         nama   : string[20];

         alamat : string[30];

         jenkel, status : char;

         umur   : byte;

     end;

var

     peserta : anggota;

     tampil  : char;

     stat    : string[15];

     kel     : string[9];

begin

     writeln;

     writeln ('DATA PESERTA');

     writeln;

     write ('Nama : ');

     readln (peserta.nama);

     write ('Alamat : ');

     readln (peserta.alamat);

     write ('Jenis kelamin (L/P) : ');

     readln (peserta.jenkel);

     If (peserta.jenkel = 'L') or (peserta.jenkel = 'l') then

          kel := 'Laki-laki'

     else

          kel := 'Perempuan';

     write ('Umur : ');

     readln (peserta.umur);

     write ('Menikah (Y/T) : ');

     readln (peserta.status);

     If (peserta.status = 'Y') or (peserta.status = 'y') then

          stat := 'Menikah'

     else

          stat := 'Tidak menikah';

     writeln;

     write ('Tampilkan data (Y/T)? ');

     tampil := readkey;

     writeln;

     If (tampil = 'Y') or (tampil = 'y') then

     begin

          writeln;

          writeln('Nama          : ',peserta.nama);

          writeln('Alamat        : ',peserta.alamat);

          writeln('Jenis Kelamin : ',kel);

          writeln('Umur          : ',peserta.umur,' tahun');

          writeln('Status        : ',stat);

     end;

end.

Untuk download artikel lengkapnya silahkan klik disini..download.

Semoga bermanfaat..

Bang-iconk "TM.