Tugas ke 2

TUGAS 2

Hai.... bertemu lagi di Tugas ke 2 (o_0)

Pusing tapi tetap semangat Guys...

Ok guys biasanya saat kita berbelanja di mart kita akan membayar barang yang sudah kita beli, tentu jika dalam membayar kita akan mendapat uang kembalian atau permen (hahahaha) nah di situ mesin kasir akan menghitung jumlah nilai pembayaran yang kita beli, namun disini dalam Turbo Pascal kita bahas bukan jumlah uang yang harus kita bayar tapi lembar-lembar atau koin kembalian yang kita terima. Namun sebelum kita ke scrip disini saya akan menggunakan uang nilai bayarnya yang dibawah 50.000 guys...! Berikut scrip nya......

program kembalian_uang_belanja;

uses wincrt;

var

a,b:longint;

j,c,d,e,f,g,h,i,k:longint;

begin

writeln('Kasir Bintang Kasih 1');

writeln ('=-=-=-=-=-=-=-=-=-=-=-=-');

writeln('Masukkan Nilai Uang=');readln(a);

writeln('=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-');

writeln('Masukkan Nilai Harga Barang=');readln(b);

writeln('=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=--=');

j:=a-b;

writeln('kembalian=',j);

writeln('Rincian uang kembalian anda');

c:=j div 50000;

d:=(j mod 50000)div 10000;

e:=(j mod 10000)div 5000;

f:=(j mod 5000)div 2000;

g:=(j mod 2000)div 1000;

h:=(j mod 1000)div 500;

i:=(j mod 500)div 200;

k:=(j mod 200)div 100;

writeln('',c,'.LEMBAR=50000');

writeln('',d,'.LEMBAR=10000');

writeln('',e,'.LEMBAR=5000');

writeln('',f,'.LEMBAR=2000');

writeln('',g,'.LEMBAR=1000');

writeln('',h,'.LEMBAR=500');

writeln('',i,'.LEMBAR=200');

writeln('',k,'.LEMBAR=100');

writeln;

writeln('Terima Kasih Sudah Berbelanja Ditoko Kami');

end.

Beginilah tampilan output nya...