Meniru Prosedur Delete Pascal

Procedure Delete(st,indeks,jumlah);
Mungkin, itulah satu prosedur yang kita pelajari dalam String Pascal. Nah, disini saya akan membahas bagaimana procedure itu bekerja ( dengan versi saya tentunya ).. hehe... untuk membuat tiruan dari prosedur delete, kita memerlukan beberapa algoritma dan prosedur lainnya juga. Dimulai saja yah, prosedur yang penting disini adalah Copy, dan fungsi nya fungsi yang berulang, yaitu fungsi for. Nah, ayo kita obrak-abrik. Langkah :


1. Inisiasi Variabel yg diperlukan : st,indeks,jumlah, hasil, copa,copb
2. Inisiasi Nilai-nilai variabel
3. Mengetahui penggunaan prosedur delete
4. Susun algoritma dengan fungsi copy
Nah, disini ide saya adalah membuat copy string setelah indeks dan fungsi for sebelum copian tersebut. Agar lebih jelas, kita simak program di bawah ini :

uses crt;
st: string;
i,n : integer;
k : integer;
hasil : string;
copa,copb : string;
begin
clrscr;
write('string : ');
readln(st);
write('indeks : ');
readln(indeks);
write('jumlah : ');
readln(jumlah);
panjang:=length(st);
for i:=1 to n do
copa :=copa+st[i];
for i:=n+1+k to lenght(st) do
copb:= copb+st[i];
hasil := copa+copb;
writeln('hasil : ',hasil);
end;

Pada bagian fungsi for, copa:=copa+st[indeks-1]

seperti dalam halnya membuat deret bilangan, pada fungsi for digunakan pengulangan ini agar copa menghasilkan string berurut dari indeks:=1 ke indeks-1. Kenapa indeks-1? Yap, karena indeks-1 menyatakan agar string yg kita delete, tidak akan ikut serta pada hasil akhir. Misal, abcd, indeks 2, berarti b yg akan di delete, maka, agar b tidak tampil, kita gunakan for 1 to indeks-1 do.. hmm.. next,

Pada bagian prosedur copb, copb:=copb+st[i];

nah, pada bagian ini, kita akan mengcopy bagian setelah indeks terhapus. Dan mereplace kopian tersebut setelah bagian yang akan didelete. Misal, abcd adalah stringnya. Indeks=2 dan jumlah yg dihapus=2, maka yg akan dihapus adalah bc, dan copb akan mengkopi, (abcd,2+2,4), fungsi tersebut akan menghasilkan string 'd' saja. Lalu digabung pada pernyataan,

hasil :=copa+copb;

hmm.. bisa dicoba programnya, dan mungkin bisa dibuat alternatif yang lain, selain program saya ini. Hehehe... inilah tiruan gaya prosedur delete string pada Pascal, semoga bermanfaat sebagai source code. Hehe...

Readmore...

Iklan Film Horor Bikin rating TV turun he..

Membayangkan film horror, waw, pasti bayangan yang terbesit di pikiran adalah ketakutan, pembunuhan, pocong, kuntil, grandong, mak lampir, dan sebangsa orc lainnya ( wkwkwk ). Tapi, theme horror ini sering juga membuat rating tv yang turun. Ini memang masalah kcil yg coba ane angkat hehe. Dari balita sampai orang dewasa pun pasti rada serem lah sama yang namanya horror, apalagi thriller ( bikin muntah ). Nah, disini, iklan-iklan film horror emg sering disebar di berbagai siaran tv ya, pastilah bwt promo. Tp, pernahkah kalian merasa takut dan ingin mengganti channel tv tersebut karena seram? Wkwkwkwk.. saya mengalaminya. Hehehe.. di suatu malam, saya tau channel tv ini punya iklan film horror, Saksikan, Pocong Berkepala Dua!! Wkwkwk… serem bgt. Tp channel ini ada kartunnya, lg seru2nya nonton, lhaaa,, ini iklan horror muncul aja, wekss… kapok dah, gak nyari2 channel ini lagi sampe iklannya udah dicabud.. hehe.. emg sedikit berlebihan, tp rasa takut sih ada, apalagi yg lebih alay dari saya ya? Wkwkwk.. bisa2 di cabut tv nya.. hehehe… ya sdikit pengalaman ini member ide bwt saya, yah, kl iklan horror trus lanjut ( apalagi dengan durasi yang lama ) waduuh… bahaya tuh channel.. bs2 kehilangan lumayan bnyk penggemar.. pada jam2 tertentu pastinya..wkwkwkwk… sekedar intermezzo aja sih, tp gak pasti jg rating bakal turun drastic, wkwkwk.

Readmore...