Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- {author : arickanjass
- gunadarma university
- dont copy without trademark!}
- program konversi_angka_arickanjass;
- uses crt;
- var
- masuk,angka,tmp,batas : integer;
- b,c : string;
- procedure convert;
- begin
- if angka = 0 then
- c := 'nol'
- else
- if angka = 1 then
- c := 'satu'
- else
- if angka = 2 then
- c := 'dua'
- else
- if angka = 3 then
- c := 'tiga'
- else
- if angka = 4 then
- c := 'empat'
- else
- if angka = 5 then
- c := 'lima'
- else
- if angka = 6 then
- c := 'enam'
- else
- if angka = 7 then
- c := 'tujuh'
- else
- if angka = 8 then
- c := 'delapan'
- else
- if angka = 9 then
- c := 'sembilan'
- end;
- {author : arickanjass
- gunadarma university
- dont copy without trademark!}
- procedure belasan;
- begin
- case masuk of
- 10 : c := 'sepuluh';
- 11 : c := 'sebelas';
- 12 : c := 'dua belas';
- 13 : c := 'tiga belas';
- 14 : c := 'empat belas';
- 15 : c := 'lima belas';
- 16 : c := 'enam belas';
- 17 : c := 'tujuh belas';
- 18 : c := 'delapan belas';
- 19 : c := 'sembilan belas';
- end;
- end;
- procedure puluhribuan;
- begin
- if masuk > 10000 then
- begin
- angka := (masuk div 1000);
- tmp := masuk;
- masuk := angka;
- belasan;
- b := concat(b,c,' ribu ');
- masuk := tmp - (angka * 1000);
- end
- end;
- procedure ribuan;
- begin
- if (masuk div 1000) = 1 then
- begin
- b:= concat (b, 'seribu ');
- masuk := masuk - 1000;
- end
- else
- begin
- angka := (masuk div 1000);
- convert;
- b := concat (b,c,' ribu ');
- masuk := masuk - (angka * 1000);
- end
- end;
- {author : arickanjass
- gunadarma university
- dont copy without trademark!}
- procedure ratusan;
- begin
- if (masuk div 100) = 1 then
- begin
- b:= concat (b,'seratus ');
- masuk := masuk - 100;
- end
- else
- begin
- angka := (masuk div 100);
- convert;
- b := concat (b,c,' ratus ');
- masuk := masuk - (angka * 100);
- end
- end;
- procedure puluhan;
- begin
- if masuk < 20 then
- belasan
- else
- begin
- angka := (masuk div 10);
- convert;
- b := concat (b,c,' puluh ');
- masuk := masuk - (angka * 10);
- end;
- end;
- procedure satuan;
- begin
- angka := masuk;
- if angka > 0 then
- begin
- convert;
- b := concat (b,c);
- end
- else
- b := b
- end;
- begin
- clrscr;
- write ('masukkan angka 0 - 19999 : ');
- readln (masuk);
- if masuk > 19999 then
- writeln ('otak gua belom sampe segitu bro')
- else
- if masuk < 0 then
- writeln ('itu minus bro, gua belom sampe situ')
- else
- {author : arickanjass
- gunadarma university
- dont copy without trademark!}
- if masuk = 10000 then
- b := ('sepuluh ribu')
- else
- if masuk > 10000 then
- begin
- puluhribuan;
- if masuk = 0 then
- b:= b
- else
- begin
- if masuk div 100 > 0 then
- ratusan;
- puluhan;
- satuan;
- end
- end
- else
- if masuk >= 1000 then
- begin
- ribuan;
- if masuk = 0 then
- b := b
- else
- begin
- if (masuk div 100) > 0 then
- ratusan;
- puluhan;
- satuan;
- end
- end
- else
- if masuk >= 100 then
- begin
- ratusan;
- puluhan;
- satuan;
- end
- else
- if masuk >= 10 then
- begin
- puluhan;
- satuan;
- end
- else
- if masuk > 0 then
- satuan
- else
- b := 'nol';
- writeln (b);
- readln;
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement