membuat program kembalian uang di pascal

Langsung Copy kode di bawah :

program kembalian_uang;

uses wincrt;

var

kmb:integer;

begin

writeln('Nama : Fajar Bella Syara');

writeln('_________________________');

writeln('masukan uang kembalian: ');readln(kmb);

writeln(kmb div 1000,' x 1000');

writeln((kmb mod 1000) div 500,' x 500');

writeln((kmb mod 500) div 200,' x 200');

writeln(((kmb mod 500) mod 200) div 100, ' x 100');

writeln((((kmb mod 500) mod 200) mod 100) div 50, ' 50 x 50');

writeln((((kmb mod 500) mod 200)mod 100) mod 50,'rupiah');

end.

Hasil :

 

Tweet