himpunan di pascal

HIMPUNAN DI PASCAL

Himpunan seperti dalam ilmu matematika ,merupakan suatu kumpulan yang sejenis . Kita sering mendengar istilah himpunan mahasiswa informatika,himpunan pedagang buah ,himpunan ibu-ibu PKK.

Semua contoh tersebut merupakan himpunan yang dimana kita dapat artikan seperti kelompok yang sejenis.Kita tidak bisa memasukkan bapak-bapak PKK kedalam himpunan Ibu-ibu PKK. Karena perbedaan jenis kelamin dari himpunan tersebut .

Didalam Pascal terdapat tipe yang menyatakan himpunan ,sebagai contoh saya tuliskan sebagai berikut

Type imamnomor=set of 1..10;

Diatas adalah contoh pembuatan tipe dalam membuat suatu himpunan, dapat kita artikan tipe bentukan yang kita buat bernama imamnomor dengan dimana terkandunga himpunan dari 1-10

Setelah kita membuat type diatas ,selanjutnya kita mendeklarasikannya dibagian var

Var nomorimam:imamnomor;

Diatas diartikan sebagai begini, dalam tipe yang kita buat tadi kita meletakkan nya dibagian var nomorimam,sehingga variable tersebut berjenis himpunan yang berisikan himpunan 1-10

Listing Program 
uses wincrt;
type imamnomor=set of 1..10;
var nomorimam:imamnomor;
value:integer;
begin
writeln('program sederhana himpunan pascal ');
nomorimam:=[2..6];
value:=1;
while value<>0 do
begin
writeln('masukkan angka : ');readln(value);
if value<>0 then begin
if value in nomorimam then
writeln('ini dalam set ')
else
writeln('ini tidak dalam set ');
end
end
end.

Arti dari program diatas yaitu ,kita ingin mengecek apakah nilai yang kita masukkan merupakan himpunan dari imam , ketika kita masukkan data yang dalam arti ini data yang dimasukkan disimpan dalam variable value … dan jika variable value tidak sama dengan 0 maka program akan terus mengulang ,tetapi jika anda memasukkan angka 0 maka program akan berhenti ,dan ketika anda memasukkan angka ,angka tersebut akan dicek  dan jika setelah dicek data yang anda masukkan ada, maka akan muncul tulisan (ini dalam set imam) dan jika anda memasukkan data yang tidak terdiri dari himpunan tersebut ,maka akan muncul pesan (ini tidak  dalam set imam)

=the End =

J

Posted in: himpunan