Algoritma dan Pemrogaman : Subrange Sebagai Sub Set Enumerated

📋 Daftar Isi

Variabel dengan tipe data subrange dapat menjadi subset dari variabel dengan tipe enumerated.

var
  months = (jan,feb,mar,apr,may,jun,jul,aug,sep,oct,nov,dec);
  summer = apr..aug;
  winter = oct..dec;

Beberapa Aturan Penggunaan Enumeration dan Subrange

Dalam subrange, elemen pertama harus lebih kecil. Subrange dapat menjadi subset dari enumeration. Tetapi enumeration tidak dapat digunakan oleh enumeration lainnya. elemen padda enumeration tidak dapaat digunakan sebagai identifier untuk variabel lainnya. Hal ini seperti mendeklarasikan variabel yang sama dua kali dalam satu program.

Keuntungan Menggunakan Subrange

Dapat menentukan batas nilai dalam suatu variabel
Dapat menghemat penggunaan memori
Program terdekomentasi dengan lebih baik

Bagian TYPE

Enumeration dan Subrange biasanya diletakkan pada bagian type. Bagian type digunakan untuk mendeklarasikan tipe data baru yang ditentukan oleh user (user-defined) untuk mengganti nama pada tipe yang sudah ada. Pernyataan tipe baru diletakkan dibawah bagian TYPE.

Urutan letak bagian type seperti berikut

LABEL section
CONST section
TYPE section
VAR section

Contoh berikut deklarasi variabel hari dan umur sebagai integer; yes dan true sebagai boolean; name da city sebagai string; fees dan expenses sebagai real;

TYPE
  days,age=integer;
  yes,true=boolean;
  name,city=string;
  fees,expenses=real;

Mengganti Nama Suatu Tipe Data

Pascal memungkinakan kita mengganti suatu tipe data dengan nama baru, misalnya tipe data iinteger berikut:

TYPE 
  day=integer;

Pada deklarasi ini kita mengganti tipe data integer dengan nama baru day. Kita bisa menggunakan tipe data ini pada bagain VAR

VAR
  holiday,yesterday,tomorrow:day;

User-Defined Type

Enumerated dan subrange dapat dideklarasikan di bagian TYPE, seperti pada contoh berikut:

TYPE
  day=(monday,tuesday,wednesday,thrusday,friday,saturdar,sunday);
  workingday=monday..friday;

Workingday bertipe subrange yang merupakan subset dari Day yang memiliki tipe enumerated.

Contoh Kasus

Misal kita ingin membuat variabel yang berisi nama-nama bulan. Pascal tidak membolehkan variabel yang seperti ini, tetapi kita bisa membuat tipe data ini sendiri.

type
  bulan=(jan,feb,mar,apr,mei,jun,jul,aus,sep,okt,nov,des);

Sekarang kita dapat membuat variabel dengan tipe bulan:

var
  A,B:bulan;

Kita bisa memberikan nilai ke dalam A dan B sesuai dengan tipe data bulan yang terdiri dari jan-des.

A:jan;
B:feb;

Kita bisa membandingkan nilai A dan B, misal B>A.

Contoh 1

Program DisplayMonths;
uses crt;
CONST
  MaxMonth = 12;
TYPE
  Month = 1..MaxMonth;
VAR
 m : Month;
Begin 
  For m := 1 to MaxMonth do
  Case m of
  1 : writeln ('January');
  2 : writeln ('February');
  3 : writeln ('March');
  ...
  12: writeln ('December');
  End;
End.

Contoh 2

Program MyClass;
TYPE
  Grades = (A,B,C,D,E,F);
  PassMark = A..D;
VAR
  Pass : PassMark;
Begin 
  For Pass := A to D do
  Case Pass of
  A : writeln ('Excellent');
  B : writeln ('Very Good');
  C : writeln ('Good');
  D : writeln ('Pass');
  End;
End.