Coding Program Konversi Terbilang
program Konversi_angka;
uses wincrt;
function terbilang(x:longint):string;
function bilang(x:longint):string;
begin
case x of
0:bilang:='';
1:bilang:='satu';
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
clrscr;
writeln('.::. PROGRAM TERBILANG .::.');
writeln('.::. ANGGOTA KELOMPOK: .::.');
writeln('.::. RETNO WULAN .::.');
writeln('.::. FITRIYATUL QOMARIYAH .::.');
writeln('.::. DEWI SYLVIA F.P .::.');
writeln('.::. NURLISA FEBRIANA .::.');
writeln('.::. .::.');
writeln('.::.::.::.::.::.::..::.::.::.::.::.');
write('Masukkan angka : ');readln(i);
writeln('');
writeln('Terbilang : ',terbilang(i));
writeln('');
writeln('Coba lagi? [Y/T]');readln(lanjut);
until (lanjut='t')or(lanjut='T');
donewincrt;
end.
Printscreen Running Program
0 komentar:
Post a Comment