Program Angka terbilang

Sebenarnya Algoritma dan Aplikasi ini sudah bisa anda temui di berbagai sumber apalagi internet, disini saya hanya menjembatani saja dan sedikit sharing saja, jadi logikanya :

Angka Terbilang

  • Pertama anda harus membuat array terbilang untuk tiap angka misal 1  berarti ‘satu’
  • Kemudian lakukan kondisi jika < 100 maka terbilangnya ‘puluh ‘ dan seterusnya.

berikut sourcecodenya:

program terbilang_rekursi;
uses
wincrt;
function terbilang(x:longint):string;
function bilang(x:longint):string;
begin
case x of
0:bilang:='';
1:bilang:='satu';
2:bilang:='dua';
3:bilang:='tiga';
4:bilang:='empat';
5:bilang:='lima';
6:bilang:='enam';
7:bilang:='tujuh';
8:bilang:='delapan';
9:bilang:='sembilan';
10:bilang:='sepuluh';
11:bilang:='sebelas';
end;
end;

begin
if x<12 then
terbilang := ' ' + bilang(x)

else if x<20 then
terbilang:=terbilang(x-10)+'belas'

else if x<100 then
terbilang:=terbilang(x div 10)+'puluh'+terbilang(x mod 10)
else if x<200 then
terbilang:='seratus'+terbilang(x-100)
else if x<1000 then
terbilang:=terbilang(x div 100)+'ratus'+terbilang(x mod 100)
else if x<2000 then
terbilang:='seribu'+terbilang(x-1000)
else if x<1000000 then
terbilang:=terbilang(x div 1000)+'ribu'+terbilang(x mod 1000)
else if x<1000000000 then
terbilang:=terbilang(x div 1000000)+'juta'+terbilang(x mod 1000000)
else
terbilang:=terbilang(x div 1000000000)+'milyar'+terbilang(x mod 1000000000);
end;
var
i:longint;
lanjut:char;
begin
repeat
write('masukkan angka:');readln(i);
writeln('terbilang:',terbilang(i));
write('Lagi? (Y/T)');readln(lanjut);
until (lanjut='t')or(lanjut='T');
end.

One thought on “Program Angka terbilang

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s