70 likes | 155 Views
SET and String. Type Nama_set = set of tipe_dasar ; Contoh Type Angka = set of 0 .. 9; Type Rupa = ( merah , hijau , kuning , biru , ungu ); Warna = set of Rupa ; Atau bisa juga langsung sebagai berikut : Type Warna = set of ( merah , hijau , kuning , biru , ungu );.
E N D
Type Nama_set = set of tipe_dasar; Contoh Type Angka = set of 0 .. 9; Type Rupa = (merah, hijau, kuning, biru, ungu); Warna = set of Rupa; Ataubisajugalangsungsebagaiberikut : Type Warna = set of (merah, hijau, kuning, biru, ungu);
Type Mobil = (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 := [];
Prosedure • Delete(nama_string, indeks, jumlah); Kata := ‘SelamatBelajar’ Delete(Kata, 5,3) hasilnyaadalah ‘SelaBelajar’. • Concat(s1, s2 {,s3,…, sn}); • Copy(nama_string, indeks, jumlah); Kata := ‘UMS Surakarta’ Copy(Kata,5,7) hasilnyaadalah ‘Surakar’
Prosedure • Pos(sub_string, nama_string); Kalimat := ’IkhlasBeramal’ Kata1 := ‘amal’ Kata2 := ‘semu’ Pos(kata1, Kalimat) hasilnyaadalah 11 Pos(kata2, Kalimat) hasilnyaadalah 0 • Length(nama_string);
Prosedure Insert(string_asal,string_tujuan, indeks); Kata1 := ‘Jurusan UMS’ Kata2 := ‘Matematika ’ Insert(Kata2, Kata1, 9) hasilnya ‘JurusanMatematika UMS’