Wednesday, April 17, 2013

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.
 
 





















No comments :

Post a Comment

Kebahagiaan sejati bukanlah pada saat kita berhasil meraih apa yg kita perjuangkan, melainkan bagaimana kesuksesan kita itu memberi arti atau membahagiakan orang lain.

Follower

Google+ Followers

Translator

English French German Japanese Korean Chinese Russian Spanish
India Saudi Arabia Netherland Portugal Italian Philippines Ukraina Norwegia
Powered by
Widget translator