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
Program ini menyeleksi string yang merupakan bagian dari base (Huruf UpperCase) yang di input dan di write dari paling belakang.
Jawaban : YLGRNKBA
Sesuai penjelasannya pada soal bahwa Fungsi pos adlah .... maka lebih mudahnya jika karakter yang ada pada input tidak terdapat di base maka hasilnya 0 sehingga jawabannya YLGRNKBA .
Ditulis dari belakang karena perulangannya downto.
Huruf kecil tidak masuk, YLGRNKBA
Masuk untuk menulis jawaban