Pengertian Set Dalam Struktur Data

A.    SET

 Set adalah kumpulan objek yang mempunyai tipe data sama dalam urutan yang tidak diperhatikan. Setiap elemen dalam set disebut dengan anggota atau elemen set. Tipe data dari anggota set dapat berupa nilai skalar atau himpunan bagian dari tipe data lain yang ada dalam pascal.

Bentuk umum dari deklarasi set adalah :

Type pengenal = set of tipe;

Keterangan :    pengenal    : nama variabel atau nama type.

                        tipe              : type data buatan sendiri maupun bawaan pascal.

Pendeklarasian set tidak hanya dapat dilakukan pada Type saja tapi terkadang juga di deklarasikan pada bagian var (deklarasi variabel).

Contoh :

Type hari = (‘senin’,’selasa’,’rabu’,’kamis’,’jumat’,

             ’sabtu’,’minggu’);

     HariDlmMgg = set of hari;

     Bilangan = set of 1..10;

     Karakter = set of char;

Setiap tipe yang dideklarasikan di bagian type, untuk dapat digunakan di dalam program harus di deklarasikan di bagian variabel (var) yang mengarah ke nama tipe yang telah dibentuk.

Contoh :

Var namahari : HariDlmMgg;

    Angka    : Bilangan;

    Huruf    : Karakter;

Type   Tvokal = set of char; Var   Vokal : Tvokal;   Kar : char; Begin   Vokal := [‘A’,’I’,’U’,’E’,’O’];   Write (‘Ketik sebuah karakter dan tekan Enter: ‘);   Readln (Kar);   If Kar in Vokal then     Writeln (‘Huruf Vokal’)   Else     Writeln (‘Huruf Konsonan’); End.
type hari=(senin,selasa,rabu,kamis,jumat,sabtu,minggu);      namahari = set of hari; var harian,harikerja,harilibur : namahari;     nhari : array[hari] of string;     i : hari; Begin   nhari[senin] := 'senin';   nhari[selasa] := 'selasa';   nhari[rabu] := 'rabu';   nhari[kamis] := 'kamis';   nhari[jumat] := 'jumat';   nhari[sabtu] := 'sabtu';   nhari[minggu] := 'minggu';   harian :=[senin,selasa,rabu,kamis,jumat,sabtu,minggu];   harikerja := [senin,selasa,rabu,kamis];   harilibur := harian - harikerja;   writeln ('NAMA HARI KERJA');   for i := senin to minggu do   begin     if i in harikerja then       write (nhari[i],' - ');   end;   writeln; writeln;   writeln ('NAMA HARI LIBUR');   for i := senin to minggu do   begin     if i in harilibur then       write (nhari[i],' - ' );   end; End.