Selasa, 13 Maret 2012

Tugas 2 (KEMBALIAN UANG BELANJA)

0 komentar Diposting oleh Febria Isnaini - 2B - 111221038 di 09.39

Nama : Febria Isnaini
Nim : 111221038
Kelas : 2B

Program Kembalian_Uang_Belanja;
Uses Wincrt;
Var
Nama:string;
O:string;
A,B,C,D,E,F,G,H,I,J,K,L,M,N,P,Q,R,S,T,U,V,W,X,Y,Z:longint;

Begin
Repeat;
Clrscr;
Writeln('Selamat Datang Di Program Kembalian Uang Belanja');
Writeln;
Write('Masukkan Nama                    : '); Readln(Nama);
Write('Harga Barang                     : '); Readln(A);
Write('Jumlah Uang Yang Diserahkan      : '); Readln(B);
C:=B-A;
If C<0 Then Writeln('Rincian Kurang                   : ',C);

D :=C  Mod 100000;
P :=C  Div 100000;
E :=D  Mod 50000;
Q :=D  Div 50000;
F :=E  Mod 20000;
R :=E  Div 20000;
G :=F  Mod 10000;
S :=F  Div 10000;
H :=G  Mod 5000;
T :=G  Div 5000;
I :=H  Mod 2000;
U :=H  Div 2000;
J :=I  Mod 1000;
V :=I  Div 1000;
K :=J  Mod 500;
W :=J  Div 500;
L :=K  Mod 200;
X :=K  Div 200;
M :=L  Mod 100;
Y :=L  Div 100;
N :=M  Mod 50;
Z :=M  Div 50;

If P>0  Then Writeln(P, ' Lembar                        Rp. 100.000,00');
If Q>0  Then Writeln(Q, ' Lembar                        Rp.  50.000,00');
If R>0  Then Writeln(R, ' Lembar                        Rp.  20.000,00');
If S>0  Then Writeln(S, ' Lembar                        Rp.  10.000,00');
If T>0  Then Writeln(T, ' Lembar                        Rp.   5.000,00');
If U>0  Then Writeln(U, ' Lembar                        Rp.   2.000,00');
If V>0  Then Writeln(V, ' Lembar/Logam                  Rp.   1.000,00');
If W>0  Then Writeln(W, ' Logam                         Rp.     500,00');
If X>0  Then Writeln(X, ' Logam                         Rp.     200,00');
If Y>0  Then Writeln(Y, ' Logam                         Rp.     100,00');
If Z>0  Then Writeln(Z, ' Logam                         Rp.      50,00');
Writeln;
Writeln('Uang Kembalian                   : ',C:7);
  If Z<=1 Then Z:=50;
        Begin                                   
        Writeln('Dibulatkan                       : ',Z:7);
        C:=C-Z;
        Writeln('Total Kembalian                  : ',C:7);
        End;
Writeln;
Writeln('Ket : <50 Akan DiAproksimasikan');
Writeln;
   If C<0 Then
   Begin
   Writeln('Maaf Uang Yang Anda Serahkan Kurang ',C);
   Writeln('Harap Segera Melunasi / Barang Anda Tidak Dapat Dibawa Pulang');
   End;
Writeln;
Writeln('Terima Kasih Telah Berkunjung':17);
Writeln('---( ',Nama,' )---');
Writeln;
Write ('Apakah Anda Ingin Mencobanya Sekali Lagi? (Y/N) : '); Readln (O);
Until (O='N') Or (O='n');

End.



 Berikut hasil running program diatas :



 

;;
Subscribe to: Postingan (Atom)

By :
Free Blog Templates