-
Perhatikan potongan program di bawah ini!
base := 'QWERTYUIOPLKJHGFDSAZXCVBNM'; kata := ''; readln(kalimat); for i:= length(kalimat) downto 1 do begin if pos(kalimat[i], base) > 0 then kata:= kata & kalimat[i]; end; writeln(kata);Fungsi pos (CC:char, str:string) adalah fungsi yang akan menghasilkan posisi CC di suatu string str, jika suatu CC tidak terdapat di string, fungsi pos akan menghasilkan 0.
Operator & adalah sebuah operator untuk menambahkan sebuah karakter di akhir sebuah string. Jika program di atas diberi masukan ‘s4yA-BuK4N+oRanG aLaY!?’, maka keluarannya adalah …
Disebutkan bahwa fungsi pos akan memberikan nilai jika character terdapat pada string. String yang digunakan adalah base yang mana terdiri dari semua huruf kapital. Kemudian terdapat percabangan yang memeriksa apakah huruf tersebut terdapat pada string. Mka hasil (kata) merupakan gabungan dari huruf kapital yang terdapat pada kalimat.
Karena perulangan dari belakang, maka urutkan dari belakang menjadi
YLGRNKBA.
Pages: Page 1, Page 2, Page 3, Page 4, Page 5, Page 6, Page 7, Page 8, Page 9, Page 10, Page 11, Page 12, Page 13, Page 14, Page 15, Page 16, Page 17, Page 18, Page 19, Page 20, Page 21, Page 22, Page 23, Page 24, Page 25, Page 26, Page 27, Page 28, Page 29, Page 30, Page 31, Page 32, Page 33, Page 34, Page 35, Page 36, Page 37, Page 38, Page 39, Page 40, Page 41, Page 42, Page 43, Page 44, Page 45, Page 46, Page 47, Page 48, Page 49, Page 50
