Fungsi Terbilang pada Borland Delphi

Fungsi terbilang ini maksimal bisa sampai satuan ‘juta’. Fungsi ini dikirimkan oleh Y Suyanto dan sudah penulis konfirmasikan kepada beliau untuk dipublish. Berikut ini adalah fungsi terbilang-nya.
function Terbilang(x:integer):string;

const abil : array[0..11] of string[10]=(”,’satu’,’dua’,’tiga’, ’empat’,’lima’,’enam’,’tujuh’,’delapan’,’sembilan’, ‘sepuluh’,’sebelas’);

begin
if (x < 12) then Result := ‘ ‘ + abil[x] else if (x < 20) then Result := Terbilang(x-10) + ‘ belas’
else
if (x < 100) then Result := Terbilang(x div 10) + ‘ puluh’ + Terbilang(x mod 10)
else
if (x < 200) then Result := ‘ seratus’ + Terbilang(x-100)
else
if (x < 1000) then Result := Terbilang(x div 100) + ‘ ratus’ + Terbilang(x mod 100)
else
if (x < 2000) then Result := ‘ seribu’ + Terbilang(x-1000)
else
if (x < 1000000) then Result := Terbilang(x div 1000) + ‘ ribu’ + Terbilang(x mod 1000)
else
if (x < 1000000000) then Result := Terbilang(x div 1000000) + ‘ juta’ + Terbilang(x mod 1000000);
end;
Kalau kita lihat fungsi terbilang di atas sangat sederhana karena memanfaatkan rekursi. Silakan saja Anda coba fungsi di atas pada Borland Delphi. Penulis sudah mencobanya pada Delphi 6.0. Demikianlah tulisan singkat mengenai fungsi terbilang pada Borland Delphi. Semoga bermanfaat bagi Anda semua. Jika ada saran atau komentar silakan dilayangkan ke sony-ak@sony-ak.com. Untuk membaca tulisan lainnya silakan menuju ke http://www.sony-ak.com/.

Silakan download source code lengkap dari project di atas
Terimakasih.

Author: Sony Arianto Kurniawan
www.sony-ak.com

6 Responses to “Fungsi Terbilang pada Borland Delphi”

  1. Phiuz Says:

    Boleh ikutan dunk belajar di sini………boleh ambil artikel nya??

  2. angelina Says:

    fungsi borland delphi secara umum apa ya kak? da tugas neh…. please kak….

  3. image source Says:

    Thanks for one’s marvelous posting! I seriously enjoyed reading it, you might be a great author. I will remember to bookmark your blog and may come back later in life. I want to encourage you continue your great posts, have a nice holiday weekend!

  4. goals Galore Says:

    Thanks for one’s marvelous posting! I actually enjoyed reading it, you are a great author. I will ensure that I bookmark your blog and will often come back sometime soon. I want to encourage that you continue your great work, have a nice evening!

  5. Brigitte Says:

    Een aangrijpend essay noteren met betrekking tot dieet is zonder twijfel alles behalve
    simpel doch ik moet zeggen dat het u uitstekend is geslaagd,
    van harte!

  6. Tuka Jani Says:

    My daughter gave me the link to this website and she was right in every way keep up the great work.


Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

%d bloggers like this: