Senin, 25 Oktober 2010

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.

0 komentar to “Program Himpunan”

Posting Komentar