Function untuk mendapatkan nilai terbilang

-
function TForm1.terbilang(x: Int64): 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)
else
if (x < 1000000000000) then Result := Terbilang(x div 1000000000) + ' milyar'+ Terbilang(x mod 1000000000);
end;

keterangan..:
untuk variabel diatas menggunakan int64 agar jumlah angka yang di konversi bisa mencapai milyar,, jika menggunakan integer biasa maka hanya bisa digunakan sampai level juta

Comments

Post a Comment

Popular posts from this blog

Shortest Path Finder dengan Djikstra’s Algorithm

-
Image
Shortest path finder adalah metoda berupa algoritma yang digunakan untuk mencari rute terdekat. Ada banyak algoritma yang bisa digunakan. Dua algoritma yang paling poluler adalah Djikstra dan A* (baca: A star). Walaupun sama-sama bisa digunakan untuk mencari rute terdekat, namun keduanya memiliki prinsip yang berbeda. Hal itu menyebabkan keduanya digunakan pada jenis kasus yang bebeda pula. Bahasan kali ini akan difokuskan pada algoritma djikstra. A* insya allah akan dibahas pada tulisan yang akan datang. Algoritma djikstra diperkenalkan pertama kali oleh Edsger Dijkstra, seorang ilmuan komputer berkebangsaan Belanda pada tahun 1959. Algoritma ini menjadi tulang punggung dari link-state routing. Link-state routing adalah satu dari dua kelas utama dari routing protocol yang digunakan pada packet switching networks dalam dunia komunikasi komputer (computer communications). Agar bisa menentukan rute terdekat, djikstra memerlukan informasi berupa sebuah routing table. Routing table ini...
Read more

Mengenal dan Menggunakan Komponent MaskEdit pada Delphi

-
Image
Berada di dalam tab additional pada component palette, digunakan untuk memasukkan dan menyunting data, mempunyai kesamaan dengan komponen edit. Kelebihannya adalah menyediakan suatu format khusus untuk data input yang akan digunakan. Kode format berfungsi untuk membatasi teks yang dapat diinputkan oleh pemakai, dengan kata lain digunakan untuk mengontrol validasi data yang dimasukkan pemakai. Untuk memulai penggunaan maskedit dengan cara klik kanan pada objek maskedit, akan muncul kotak dialog input mask editor. Penjelasan kotak dialog input mask editor : input mask, digunakan untuk mendefinisikan kode format (mask) untuk kotak edit. Penulisan mask terbagi dalam tiga bagian field yang dipisahkan oleh karakter titik koma, yaitu : field pertama adalah mask, dapat dipilih pada kotak sample masks atau membuatnya sendiri. Field kedua adalah karakter yang menyatakan apakah karakter literal (karakter lain) pada mask akan disimpan dalam data. Field ke...
Read more

Membuat object Runtime pada Delphi

-
Berikut adalah code untuk membuat sebuah object pada borland delphi ketika runtime dikondisikan seperti berikut : 1. buatlah satu aplikasi baru dimana terdapat satu form sebut saja form1 2. buatlah satu button yang diletakan diatas form1 dengan nama button1 3. kemudian untuk contoh kita akan membuat tombol baru lengkap dengan event didalamnya 4. sebelumnya kita buat terlebih dahulu procedure untuk mengisi event dari object yang akan kita buat seperti berikut ini. procedure TForm1.ClickShowMessage(Sender: TObject); begin ShowMessage('Hello World !'); end; 5. ketikan coding berikut pada event onclick dari button1 procedure TForm1.Button1Click(Sender: TObject); var button: TButton; begin button := TButton.Create(Self); with button do begin Top := Button1.Top; Width := Button1.Width; Left := Button1.Left+Width; Caption := 'Button '+ IntToStr(Self.ControlCount+1); Parent := Self; OnClick := ClickShowMessage; //memanggil proce...
Read more