Tugas 2 ( Struktur Data )

PERTEMUAN KE 3 TANGGAL 7 MARET 2012

SEMESTER 2D

TUGAS 2:

Buat Program Menampilkan Rincian Uang.

Program Rincian_Transaksi_ByRian;

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 Rincian Transaksi');

Writeln;

Write('Masukkan Nama Anda               : '); Readln(Nama);

Write('Harga Barang Yang Harus Dibayar  : '); Readln(A);

Write('Jumlah Uang Pembayaran           : '); 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,-');

If Q>0  Then Writeln(Q, ' Lembar                        Rp.  50.000,-');

If R>0  Then Writeln(R, ' Lembar                        Rp.  20.000,-');

If S>0  Then Writeln(S, ' Lembar                        Rp.  10.000,-');

If T>0  Then Writeln(T, ' Lembar                        Rp.   5.000,-');

If U>0  Then Writeln(U, ' Lembar                        Rp.   2.000,-');

If V>0  Then Writeln(V, ' Lembar/Logam                  Rp.   1.000,-');

If W>0  Then Writeln(W, ' Logam                         Rp.     500,-');

If X>0  Then Writeln(X, ' Logam                         Rp.     200,-');

If Y>0  Then Writeln(Y, ' Logam                         Rp.     100,-');

If Z>0  Then Writeln(Z, ' Logam                         Rp.      50,-');

Writeln;

Writeln('Jumlah Kembalian                 : ',C:7);

  If Z<=1 Then Z:=50;

        Begin

        Writeln('Dibulatkan                       : ',Z:7);

        C:=C-Z;

        Writeln('Total Uang Kembalian             : ',C:7);

        End;

Writeln;

Writeln('Ket : <50 Akan Kami Bulatkan');

Writeln;

   If C<0 Then

   Begin

   Writeln('Maaf Uang Anda Kurang ',C);

   Writeln('Mohon Segera Dilunasi / Barang Anda Tidak Dapat Dibawa Pulang');

   End;

Writeln;

Writeln('Terima Kasih Telah Mencoba Program Ini':17);

Writeln('---( ',Nama,' )---');

Writeln;

Write ('Apakah Anda Ingin Mencoba Lagi? (Y/N) : '); Readln (O);

Until (O='N') Or (O='n');

End.

Hasil Print Screen :