Algoritma Menentukan Nilai Tukar Pecahan Uang

Soal :

Buatlah Algoritma yang membaca nilai uang (rupiah) dalam kelipatan 25, lalu menentukan berapa nilai tukaran pecahan. Pecahan yang tersedia adalah Rp1000, Rp500,Rp100,Rp50, dan Rp25. sebagai contoh,uang senilai Rp2775 setara dengan 2 buah pecahan Rp1000, ditambah 1 buah pecahan Rp500, di tambah 2 buah pecahan Rp100, di tambah 1 buah pecahan Rp50, di tambah 1 buah pecahan Rp25.

Source Code :

PROGRAM Soal_No7_Halaman_110;
 
USES CRT;
VAR
   nilai_uang     : INTEGER;
   p1000          : INTEGER;
   p500           : INTEGER;
   p100           : INTEGER;
   p50            : INTEGER;
   p25            : INTEGER;
   sisa_nilai_uang: INTEGER;
 
BEGIN
     WRITE('Masukkan nilai uang : ');READLN(nilai_uang);
 
     p1000:=nilai_uang DIV 1000;
 
     sisa_nilai_uang:=nilai_uang MOD 1000;
 
     p500:=sisa_nilai_uang DIV 500;
 
     sisa_nilai_uang:=sisa_nilai_uang MOD 500;
 
     p100:= sisa_nilai_uang DIV 100;
 
     sisa_nilai_uang:=sisa_nilai_uang MOD 100;
 
     p50:=sisa_nilai_uang DIV 50;
 
     sisa_nilai_uang:=sisa_nilai_uang MOD 50;
 
     p25:=sisa_nilai_uang DIV 25;
 
     sisa_nilai_uang:=sisa_nilai_uang MOD 25;
 
     WRITELN(p1000,' buah pecahan Rp.1000');
     WRITELN(p500,' buah pecahan Rp.500');
     WRITELN(p100,' buah pecahan Rp.100');
     WRITELN(p50,' buah pecahan Rp.50');
     WRITELN(p25,' buah pecahan Rp.25');
     READLN;
END.

Tampilan program ketika di jalankan :