Tugas 2 (Struktur Data)

Pertemuan Ke 3 Tanggal 7 Maret 2012

SEMESTER 2D

Tugas II:

• Buat Program Menampilkan Rincian Uang.

Jawaban

Program Rincian_Uang_Transaksi_Shagaf;

Uses

      Wincrt;

Var

Nama,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 Perinci Transaksi');

Writeln;

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

Write('Jumlah Yang Harus Dibayar        : '); Readln(A);

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

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

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

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

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

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

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

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

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

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

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

Writeln;

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

If Z<=1 Then Z:=50;

   Begin

   Writeln('Aproksimasi                      : ',Z:6);

   C:=C-Z;

   Writeln('Total Kembalian                  : ',C:6);

   End;

Writeln;

Writeln('Ket : <100 di Aproksimasikan');

Writeln;

   If C<0 Then

      Begin

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

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

      End;

Writeln;

Writeln('Terima Kasih Telah Menggunakan Program Ini');

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

Writeln;

Writeln;

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

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

End.

Hasil Akhir (Print Screen) :