SOURCE CODE:
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 data: ');readln(i); Writeln('Terbilang: ',Terbilang(i)); write('Lagi?');readln(lanjut); until(lanjut = 't') or (lanjut = 'T'); end. OUTPUT:
No Comment.
Add Your Comment