SET and String

TypeNama_set = set of tipe_dasar;ContohTypeAngka = set of 0 .. 9;

TypeRupa = (merah, hijau, kuning, biru, ungu);Warna = set of Rupa;

Atau bisa juga langsung sebagai berikut :TypeWarna = set of (merah, hijau, kuning, biru, ungu); 

TypeMobil = (accord, baleno, charade, civic, corolla, kijang, kuda, panther, vitara, zebra);

HimpMobil = set of Mobil;Var

Bela, Disa, Kira, Maya, Orak : HimpMobil;Begin

Bela := [baleno, civic, vitara];Disa := [accord .. corolla, vitara];Kira := [kijang .. zebra];Maya := [kijang, kuda, panther];Orak := [];

Operasi HimpunanNo Operator Arti

1 + Gabungan (union) himpunan

2 – Selisih (difference) himpunan

3 * Irisan (intersection) himpunan

4 = Kesamaan (equality) himpunan

5 <> Ketidaksamaan (inequality) himpunan

6 <= Himpunan bagian (subset)

7 >= Superset

ProsedureDelete(nama_string, indeks, jumlah);Kata := ‘Selamat Belajar’Delete(Kata, 5,3) hasilnya adalah ‘Sela Belajar’.

Concat(s1, s2 {,s3,…, sn});Copy(nama_string, indeks, jumlah);Kata := ‘UMS Surakarta’Copy(Kata,5,7) hasilnya adalah ‘Surakar’

ProsedurePos(sub_string, nama_string);

Kalimat := ’Ikhlas Beramal’Kata1 := ‘amal’Kata2 := ‘semu’Pos(kata1, Kalimat) hasilnya adalah 11Pos(kata2, Kalimat) hasilnya adalah 0

Length(nama_string);

ProsedureInsert(string_asal,string_tujuan, indeks);Kata1 := ‘Jurusan UMS’Kata2 := ‘Matematika ’Insert(Kata2, Kata1, 9) hasilnya ‘Jurusan Matematika UMS’