Membuat Himpunan Anggota Pada Pemrograman Pascal

Misalkan kita mempunyai himpunan bilangan bulat dengan anggota: (2,3,4,5,6,7,8), maka cara penulisannya pada pemrograman pascal adalah:

var a:set of 2..8; begin a:=[3,4,5,6]; end.

Atau

var a:set of 2..8; begin a:=[3..6]; end.

Jika kita ingin menampilkan anggota himpunan tersebut, maka sintaks program kita akan menjadi:

var a:set of 2..8; a1:integer; begin a:=[3..6]; for a1 in a do begin writeln(a1); end; readln; end.

Bila program di samping dijalankan maka akan muncul: 3 4 5 6

Variabel a:set of 2..8 artinya, pada bagian badan program bisa didefinisikan himpunan a dengan anggota yang masih termasuk dalam range 2≤a≤8. Di sini pada bagian badan program, himpunan a didefinisikan mempunyai anggota [3,4,5,6] atau [3..6]. Keempat anggota himpunan tersebut akan terdefinisi karena memang keempat anggota himpunan tersebut masuk dalam range 2≤a≤8.

Tapi jika pada bagian badan program kita definisikan himpunan a mempunyai anggota [1..4], sehingga sintaks program kita menjadi seperti berikut:

var a:set of 2..8; a1:integer; begin a:=[1..4]; for a1 in a do begin writeln(a1); end; readln; end.

Bila program di samping dijalankan maka akan muncul: 2 3 4

Anggota 1 tidak akan muncul saat program dijalankan, sebab anggota 1 tidak terdefinisi karena 1 tidak termasuk dalam range 2≤a≤8.

Variabel a1 adalah variabel yang menunjukkan satu nilai dari anggota himpunan yang didefinisikan pada bagian badan program yang mana nilai a1 tersebut selalu berubah bergantian sesuai anggota himpunan yang didefinisikan pada badan program selama termasuk dalam range himpunan yang didefinisikan pada bagian variabel.

Telah terjadi perulangan pada potongan sintaks berikut:

... for a1 in a do begin writeln(a1); end; ...

Bagian yang terletak antara begin dengan end adalah bagian yang diulang.

Misalkan kita tambahkan variabel n untuk mengetahui jumlah iterasi dalam perulangan:

var a:set of 2..8; a1,n:integer; begin a:=[1..4]; for a1 in a do begin writeln(a1); n:=n+1; writeln('Ini adalah iterasi ke-',n); writeln end; readln; end.

Bila program di samping dijalankan maka akan muncul: 2 Ini adalah iterasi ke-1 3 Ini adalah iterasi ke-2 4 Ini adalah iterasi ke-3

Posted in: