You Are Reading

0

Menghitung Lembar uang

Seta.com Minggu, 08 Mei 2011
program uang;
uses crt;
var ua : longint;
    s,l,d,p,r,i,o,ttl : integer;

function lmbr(x,y:longint):integer;
begin
lmbr:=x div y;
ua:=x mod y;
end;
procedure hasil;
begin
writeln('Banyaknya lembaran uang ', ttl ,' lembar');
writeln('lembaran Rp.100.000 :', s ,' lembar');
writeln('lembaran Rp. 50.000 :', l ,' lembar');
writeln('lembaran Rp. 20.000 :', d ,' lembar');
writeln('lembaran Rp. 10.000 :', p ,' lembar');
writeln('lembaran Rp.  5.000 :', r ,' lembar');
writeln('lembaran Rp.  1.000 :', i ,' lembar');
writeln('lembaran Rp.    500 :', o ,' lembar');
end;


begin
clrscr;
write('Masukkan Besar nominal uang anda : '); readln(ua);

s:=lmbr(ua,100000);
l:=lmbr(ua,50000);
d:=lmbr(ua,20000);
p:=lmbr(ua,10000);
r:=lmbr(ua,5000);
i:=lmbr(ua,1000);
o:=lmbr(ua,500);
ttl:= s + l + d + p + r + i + o;
hasil;
readln;
end.

0 komentar:

Posting Komentar

 
Copyright 2010 Seta.com