Membuat Program Input Harga Foto Copy Menggunakan Bahasa Pascal

Salam sobat blogger, artikel kali ini saya mau membahas tentang program input harga foto copy. Sederhana tapi bisa dijadikan bahan pembelajaran, untuk menjalankannya silahkan gunakan aplikasi turbo pascal bisa di download di submenu download, lalu ketikkan script listing program dibawah ini:

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 program sebagai berikut :

Sederhana bukan?, jika ada yang mau ditanyakan atau saran, bisa dipost di kolom komentar. Sekian dan terimakasih.

TERIMA KASIH ATAS KUNJUNGAN Sobat
Semoga artikel ini bermanfaat bagi sobat. Jika ingin mengutip, baik itu sebagian atau keseluruhan dari isi artikel ini harap menyertakan link dofollow ke http://tekinfotika.blogspot.com/2017/03/membuat-program-input-harga-foto-copy.html. Terima kasih sudah singgah membaca artikel ini.