andrypein.net : Dilanjut ke bagian ke III dari tipe data bentukan di pascal, kali ini adalah tipe bentukan untuk Tipe Bentukan Enumerasi.
Tipe Enumerasi adalah tipe yang nilai-nilainya terbatas sesuai dengan nilai-nilai yang didefinisikan pada saat deklarasi tipe tersebut.
Bentuk umumnya seperti ini :
NamaTipeEnumerasi = (Nilai1,….,nilaiN);
Dimana NamaTipeEnumerasi dan Nilai1,….,nilaiN haruslah merupakan pengenal yang absah artinya tidak boleh mengandung spasi,simbol ataupn angka.
Contonya seperti ini :
type THari = (Minggu,Senin,Selasa,Rabu,kamis,Jumat,Sabtu);
Kode diatas berarti kita mendeklarasikan tipe enumerasi dengan nama THari dimana nilai2nya Minggu, Senin, Selasa, Rabu, Kamis, Jumat, Sabtu.
Untuk mengambil nilai ordinal dari tipe enumerasi, gunakan funsi ord. Ord (minggu) akan menghasilkan nilai 0, Ord (Senin) akan menghasilkan nilai 1, begitu seterusnya.
| Rutin | Keterangan |
|---|---|
| Pred | Mengembalikan nilai sebelumnya (predesesor) dari parameter yang dilewatkan. Misalnya Pred(Selasa) akan menghasilkan nilai Senin |
| Succ | Mengembalikan nilai berikutnya (Suksesor) dari parameter yang dilewatkan. Misalnya Succ(Selasa) akan menghasilkan nilai Rabu |
| Odd | Mengembalikan nilai true bila parameter bernilai ganjil |
oke kita lihat contoh programnya seperti ini  :
program TipeEnumerasi;
uses wincrt;
type
THari = (Minggu,Senin,Selasa,Rabu,kamis,Jumat,Sabtu);
var
hari:THari;
begin
hari:=selasa;
writeln('Ord(hari) = ',ord(hari));
writeln('Ord(Pred(hari)) = ',Ord(Pred(hari)));
writeln('Ord(Succ(hari)) = ',Ord(Succ(hari)));
end.
Dicompile, dirun silahkan dan semoga bermanfaat artikel tipe bentukan enumerasi ini !
thankzzzz kaa….
aku lagi serius belajar pascal nie…..
bingung… gampangan pake array..
ada pembelajaran yang lebih lanjut gaaak.. ini mah copas dari bukunyaaa.. kaskus.us/images/smilies/bingung.gif