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...