Membuat Program : |
1234 = 1 Ribuan + 2 Ratusan + 3 Puluhan + 4 Satuan |
Algoritma : |
Langkah 1 : Input Suatu Bilangan Bulat (x) |
Langkah 2 : Bagi x Dengan 1000 Simpan Hasilnya Ke Variabel Ribuan |
Langkah 3 : Bagi x Dengan 1000 Simpan Sisanya Ke Variabel SisaRibu |
Langkah 4 : Bagi SisaRibu Dengan 100 Simpan Hasilnya Ke Variabel Ratusan |
Langkah 5 : Bagi SisaRibu Dengan 100 Simpan Sisanya Ke Variabel SisaRatus |
Langkah 6 : Bagi SisaRatus Dengan 10 Simpan Hasilnya Ke Variabel Puluhan |
Langkah 7 : Bagi SisaRatus Dengan 10 Simpan Sisanya Ke Variabel Satuan |
Langkah 8 : Tampilkan Ke Monitor Ribuan,Ratusan,Puluhan,Satuan |
Program : |
uses crt; |
var |
x:word; |
Ribuan:word; |
SisaRibu:word; |
Ratusan:word; |
SisaRatus:word; |
Puluhan:word; |
Satuan:word; |
begin |
clrscr; |
write('Masukkan Bilangan Bulat:'); |
readln(x); |
Ribuan:=x div 1000; |
SisaRibu:=x mod 1000; |
Ratusan:=SisaRibu div 100; |
SisaRatus:=SisaRibu mod 100; |
Puluhan:=SisaRatus div 10; |
Satuan:=SisaRatus mod 10; |
writeln(x,'=',Ribuan,'Ribuan+',Ratusan,'Ratusan+',Puluhan,'Puluhan+',Satuan,'Satuan'); |
readln; |
end. |
Tidak ada komentar:
Posting Komentar