Yuk! Belajar Konsep Pemrograman Di Mesran.Blogspot.Com 
______________________________________________________

Contoh Program Input Harga Foto Copy

uses crt;

var

Jumlahlembar : longint;

Totharga     : longint;

Pembayaran   : real;

hpl          : byte;

discount     : real;

begin

clrscr;

writeln('PROGRAM INPUT HARGA FOTO COPY');

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

write('Jumlah Lembar :');readln(jumlahlembar);

if Jumlahlembar >=200 then hpl:=90 else

if jumlahlembar <=200 then hpl:=100;

writeln('Harga per Lembar:',hpl);

totharga :=hpl*jumlahlembar;

writeln('Total Harga:',totharga);

if totharga > 500000 then discount:=0.15 else

if totharga < 500000 then discount:=0;

discount:=totharga*discount;

writeln('Discount:',Discount:3:0);

pembayaran:= totharga-discount;

writeln('Pembayaran:',Pembayaran:3:0);

readln;

end.

------------------------------------------------------------------------------------
tampilan hasil





tampilan hasil ketika mendapatkan discount





Demikilahlah postingan saya  
Nama : Erixon Andrianus Saruksuk
NPM   :  12110935
Selamat Belajar Bahasa Pemrograman