TYPE DATA HIMPUNAN (SET) DALAM PASCAL

Type data himpunan merupakan type yang unik dari PASCAL.  Type ini memungkinkan kita untuk mengadakan operasi himpunan.  Pembentukan type data himpunan dan variable bertype himpunan adalah :

o       Dalam Deklarasi Type

Type

NamaTypeData = set Of TypeData;

 

NamaTypeData :  adalah type himpunan yang didefinisikan.

TypeData :  adalah data bertype ordinal.

 

o       Dalam Deklarasi Variabel

Var

NamaVar, NamaVar, … : NamaTypeDataHimpunan;

Contoh :

Const  JawabSah = [‘T’, ‘t’, ‘Y’, ‘y’];

Type   Abjad = Set Of Char;

Var    Vokal : Abjad;

Pilih : [1..4];

Jawab : [‘A’, ‘B’, ‘C’];

 

Operasi Set

Operator untuk variable / data bertype himpunan adalah :

Jika A, B adalah variable bertype himpunan :

=       :    A = B   bernilai TRUE jika set A sama dengan set B.

<>     :    A <> B bernilai TRUE jika set A tidak sama dengan set B.

<=     :    A <= B bernilai TRUE jika set A adalah himpunan bagian set B.

<>     :    A >= B  bernilai TRUE jika set A adalah himpunan pemuat set B.

in       :    keanggotaan.

 

Contoh :

Untuk variable yang didefinisikan diatas

‘A’ in Jawab bernilai TRUE

2  in Pilih bernilai TRUE

[‘A’, ‘a’] <= Jawab bernilai FALSE

Jawab <= Vokal bernilai TRUE

 

Yang harus diingat bahwa variable bertype Set tidak dapat dibaca  dan dicetak. Jika kita melakukan pembacaan atau penulisan akan muncul pesan “Cannot Read and Write Variable in This Type”.

CONTOH:

Program CekVokal;

Uses Crt;

Const

Vokal = [‘A’,‘a’,‘I’,‘i’,‘U’,‘u’,‘E’,‘e’,‘O’,‘o’];

Var

Tampung : String;

Huruf  : Char;

 

Begin

Clrscr;

Tampung := ‘ ’;

Repeat

Write(‘Ketik Huruf <tanpa ENTER> Esc Selesai : ’);

Huruf := Readkey; Write(Huruf);

If Huruf in Vokal Then

Writeln(‘   VOKAL’)

Else

Writeln(‘   BUKAN’);

Tampung := Tampung + Huruf;

Until Huruf = #27;

Writeln(‘Ketikan : ’,Tampung);

End.

Program tersebut akan membaca terus menerus character dengan ReadKey sampai ditekan Esc (#27) dan mengeceknya apakah merupakan anggota Vokal atau Bukan.  Kemudian merangkaikan dalam variable Tampung.

Sekarang apa yang terjadi apabila program diatas diubah sebagai berikut :

Program CekVokal;

Uses Crt;

Type

Abjad = Set Of Char

Var

Vokal  : Abjad;

 

Begin

Clrscr;

Vokal = [‘A’,‘a’,‘I’,‘i’,‘U’,‘u’,‘E’,‘e’,‘O’,‘o’];

…… idem ;

End.

Satu pemikiran pada “TYPE DATA HIMPUNAN (SET) DALAM PASCAL

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s