Tugas Individu pembuatan aLgoritma Pengkonversian ANgKa MeNjaDi hURuF

Algoritma Mengubah Angka Menjadi Huruf

{ Mengubah angka menjadi huruf }

Deklarasi

uang, ribuan, ratusan, puluhan, satuan, sisa_uang : interger

Deskripsi

read (uang)

ribuan <-- uang / 1000

sisa_uang <-- uang % 1000

ratusan <-- sisa_uang / 100

sisa_uang <-- sisa_uang % 100

puluhan <-- sisa_uang / 10

sisa_uang <-- sisa_uang % 10

satuan <-- sisa_uang

cetakribu(ribuan)

cetakratus(ratusan)

if puluhan <> 1 then

               cetakpuluh(puluhan)

               cetaksatu(satuan)

  else then

         cetakbelas(satuan)

   and if

write("rupiah")