Fungsi Terbilang Delphi
Fungsi Terbilang pada Borland Delphi
Author: Sony Arianto Kurniawan
www.sony-ak.com
Fungsi terbilang ini maksimal bisa sampai satuan 'juta'. Fungsi ini dikirimkan oleh Y Suyanto
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.
3 Comments:
Fungsi dan Sourcecode terbilang dapat diunduh (download) di:
http://www.ziddu.com/downloadlink/8434295/Terbilang.rar
Fungsi dan Sourcecode terbilang dapat diunduh (download) di:
http://www.ziddu.com/downloadlink/8434295/Terbilang.rar
kalo sampai trilyun gimana bos?
Post a Comment
<< Home