Rabu, Mei 23, 2018

Membuat Himpunan Anggota Pada Pemrograman Pascal

Misalkan kita mempunyai himpunan bilangan bulat dengan anggota: (2,3,4,5), maka cara penulisannya pada pemrograman pascal adalah:
var
a:set of 2..5;

begin
a:=[2,3,4,5];
end.

Jika kita ingin menampilkan anggota himpunan tersebut, maka sintaks program kita akan menjadi:
var
a:set of 2..5;
a1:integer;

begin
a:=[2,3,4,5];
for a1 in a do
begin
writeln(a1);
end;
readln;
end.
Bila program di samping dijalankan maka akan muncul:
2
3
4
5
Variabel a:set of 2..5 artinya, pada bagian badan program bisa didefinisikan himpunan a dengan anggota yang masih termasuk dalam range 2≤a≤5. Di sini pada bagian badan program, himpunan a didefinisikan mempunyai anggota (2,3,4,5). Keempat anggota himpunan tersebut akan terdefinisi karena memang keempat anggota himpunan tersebut masuk dalam range 2≤a≤5.

Tapi jika pada bagian badan program kita definisikan himpunan a mempunyai anggota (1,2,3,4,5,6), sehingga sintaks program kita menjadi seperti berikut:
var
a:set of 2..5;
a1:integer;

begin
a:=[1,2,3,4,5,6];
for a1 in a do
begin
writeln(a1);
end;
readln;
end.
Bila program di samping dijalankan maka akan muncul:
2
3
4
5
Anggota 1 dan 6 tidak akan muncul saat program dijalankan, sebab anggota 1 dan 6 tidak terdefinisi karena 1 dan 6 tidak termasuk dalam range 2≤a≤5.

Variabel a1 adalah variabel yang menunjukkan anggota himpunan yang mana nilai a1 tersebut selalu berubah sesuai dengan banyaknya perulangan, banyaknya perulangan otomatis sebanyak jumlah anggota himpunan yang termasuk dalam range himpunan saat didefinisikan pada bagian variabel
Contoh, kita tambahkan variabel n untuk mengetahui jumlah iterasi:
var
a:set of 2..5;
a1,n:integer;

begin
a:=[1,2,3,4,5,6];
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

5
Ini adalah iterasi ke-4


Penulisan pendefinisian himpunan a pada bagian badan program a:=[1,2,3,4,5,6] dapat diganti dengan a:=[1..6] , sehingga sintaks program kita menjadi:
var
a:set of 2..5;
a1:integer;

begin
a:=[1..6];
for a1 in a do
begin
writeln(a1);
end;
readln;
end.
Bila program di samping dijalankan maka akan muncul:
2
3
4
5

0 komentar: