Prosedur atau fungsi fillchar dalam turbo pascal pada variabel string

Fillchar, sebagian ada yang menyebutnya dengan prosedur dan sebagian juga ada yang menyebutnya dengan fungsi, juga tidak tahu fillchar itu sebenarnya merupakan sebuah prosedur atau sebuah fungsi, atau mungkin bukan juga salah satu dari keduanya, sekarang kita anggap saja fillchar itu merupakan suatu prosedur (kalau teman-teman ada yang tahu, dibantu ya diinformasikan ke sini…). Menurut perkiraan sahabat, fillchar merupakan singkatan dari fill character, kalau kita lihat dari artinya, fill adalah mengisi dan character adalah karakter, jadi fill character adalah mengisi karakter.

Sintaks dari prosedur fillchar adalah sebagai berikut:

fillchar(nama_variabel, banyak_karakter/nilai/digit_yang_akan_di_ganti-1, nilai/karakter_pengganti);

Contoh:

var a:string; begin write(‘masukkan beberapa karakter! ‘); readln(a); writeln(‘Nilai string a sebelum prosedur fillchar:‘); writeln(a); fillchar(a, 2, ‘s’); writeln(‘Nilai string a sesudah prosedur fillchar:’) writeln(a); readln end.

Perhatikan kode fillchar yang terletak pada baris ke-5, yaitu: fillchar(a, 2, ‘s’) artinya adalah ganti nilai dari variabel a, nilai yang akan diganti yaitu (2-1) digit/karakter pertama dari nilai variabel a, ganti (2-1) digit/karkater pertama tersebut dengan s. Dengan kata lain, ganti 1 digit/karakter dari nilai variabel a tersebut dengan s.

Pada baris ke-5, writeln(a), tampak bahwa kita akan menampilkan nilai dari string a, dan pada baris ke-8, writeln(a), tampak bahwa kita juga akan menampilkan nilai dari string a, memang keduanya sama-sama writeln(a) atau sama-sama bertujuan untuk menampilkan nilai dari string a, tapi nilai tersebut akan berbeda karena sebelum writeln(a) yang kedua ada prosedur fillchar(a, 2, ‘s’) yang bertujuan mengganti 1 karakter/digit pertama dari nilai variabel a dengan s. Untuk lebih jelasnya akan kita lihat bagaimana hasilnya jika program ini dijalankan.

Jika program ini dijalankan maka hasilnya adalah sebagai berkut:

masukkan beberapa karakter! qwer Nilai string a sebelum prosedur fillchar: qwer Nilai string a sesudah prosedur fillchar: swer

Saat program dijalankan, saat kita diminta untuk memasukkan nilai a, pada contoh kita ketikkan qwer, saat menampilkan nilai a yang pertama, tetap yang akan tampil adalah qwer, tapi setelah prosedur fillchar nilai dari string a berubah menjadi swer, dimana 1 digit/karakter pertama dari nilai string a diganti dengan s sehingga qwer akan menjadi swer.

Contoh 2:

var a:string; begin write(‘masukkan beberapa karakter! ‘); readln(a); writeln(‘Nilai string a sebelum prosedur fillchar:‘); writeln(a); fillchar(a, 5, ‘i’); writeln(‘Nilai string a sesudah prosedur fillchar:’) writeln(a); readln end.

Pada contoh 2 sekarang, kode fillchar sedikit berbeda, yaitu mengganti (5-1) digit/karakter pertama dari nilai string a dengan i, dengan kata lain mengganti 4 digit/karakter pertama dari nilai string a dengan i.
Jika program ini dijalankan hasilnya adalah sebagai berikut:

masukkan beberapa karakter! asdfghjkl Nilai string a sebelum prosedur fillchar: asdfghjkl Nilai string a sesudah prosedur fillchar: iiiighjkl

Dapat kita lihat, saat kita diminta untuk mengetikkan asdfghjkl, nilai string a sebelum prosedur fillchar akan tetap asdfghjkl, tapi nilai string a sesudah prosedur fillchar akan berubah menjadi iiiighjkl, karena 4 karakter/digit pertama dari nilai variabel a diganti dengan i.

Selain menggantikan karakter/digit/nilai tertentu dengan karakter lain, kita juga bisa menghapus satu atau beberapa karakter pertama dari suatu nilai stirng, sebenarnya prinsipnya masih sama, yakni menggantikan karakter tersebut dengan space, sehingga seolah-olah satu atau beberapa karakter pertama dari nilai string itu seperti terhapus, padahal bukan terhapus namun digantikan oleh space. Sintaksnya adalah sebagai berikut:

var a:string; begin write(‘masukkan beberapa karakter! ‘); readln(a); writeln(‘Nilai string a sebelum prosedur fillchar:‘); writeln(a); fillchar(a, 3, ‘ ’); writeln(‘Nilai string a sesudah prosedur fillchar:’) writeln(a); readln end.

Jika program ini dijalankan maka hasilnya adalah sebagai berkut:

masukkan beberapa karakter! reaksi Nilai string a sebelum prosedur fillchar: reaksi Nilai string a sesudah prosedur fillchar:   aksi

Tampak pada nilai string setelah procedure fillchar yaitu aksi, ada 2 digit space didepannya.

Mungkin itu sekilas untuk penggunaan dari semacam prosedur atau fungsi fillchar pada variabel string, mudah-mudahan ada manfaatnya, bagi teman-teman yang kurang mengerti dengan pembahasan singkat ini bisa langsung menghubungi sahabat melalui email, terima kasih…

klik di sini untuk mendownload file .doc dari pembahasan ini

ingin dapat update dari artikel turbo pascal lainnya? silakan Join Group facebook sahabat-informasi.com dan Like Fanpage sahabat informasi dengan dengan account facebook kamu,

baca juga:

• Algoritma dan program Pascal menarik lainnya

Posted in: