Program Himpunan

program Himpunan;
(* File : Himpunan.pas *)
(* Pendefisinian dan pemanfaatan himpunan : SET *)
(* Kamus *)

type

Hari = (senin,selasa,rabu,kamis,jumat,sabtu,minggu);
weekday = SET of Hari;

var

H : Hari;
H0, H1, H2 : Hari;
W : weekday;
(* Algoritma *)

begin

(* Instruksi berikut salah :type set tidak dapat ditulis/baca*)
(* writeln (' Hari = ', H); *)
(* Assignment : boleh *)
H1 := selasa;
(* prosedur terdefenisi *)
H2 := succ (H1);
H0 := pred (H1);
(* pemanfaatan untk mengontrol pengulangan *)
(* Akan dibahas pada pengulangan *)
for H := senin to minggu do
begin

writeln ( 'Selamat Pagi ...');
writeln ( 'Ordinal : ', ord (H) );

end;
(* intruksi CASE : akan dibahas pada analisa kasus*)
case H1 of

senin :

writeln ( 'senin' );

selasa :

writeln ( 'selasa' );

rabu :

writeln ( 'rabu' );

kamis :

writeln ( 'kamis' );

jumat :

writeln ( 'jumat' );

sabtu :

writeln ( 'sabtu' );

minggu :

writeln ( 'minggu' );

else

writeln ( 'tidak terdefinisi ');

end;

end.