Cara Mudah Dapat Uang di Internet Lewat Blog, Twitter, Facebook
» » Contoh Program Pembayaran Diskon Dengan Menggunakan Turbo Pascal

Contoh Program Pembayaran Diskon Dengan Menggunakan Turbo Pascal


Turbo Pascal LogoContoh Program Pembayaran Diskon Dengan Menggunakan Turbo Pascal - Berikut ini adalah contoh program diskon dengan data sebagai berikut :

Program menghitung besar besar pembayaran berdasarkan pembelian :

  1. Diskon diberikan 10% untuk pembelian 100.000 atau lebih,
  2. Diskon diberikan 20% untuk pembelian 500.000 atau lebih.

Maka bentuk programnya adalah sebagai berikut :

program Discount;
uses crt;
var
Harga : longint;
diskon, bayar : real;
begin
    clrscr;
    write('Inputkan Harga : ');read(Harga);
    if (Harga >= 100000) and (Harga < 500000) then
begin
    Diskon := Harga * (10/100);
    Bayar := Harga - Diskon;
    write('Bayar = ' , Bayar:0:0);
end
    else
    id (Harga >= 500000) then
begin
    Diskon := Harga * (20/100);
    Bayar := harga - Diskon;
    write('Bayar = ' , Bayar:0:0);
end
    else
    if Harga < 100000 then
    write('Bayar = ' , Harga);
readkey;
end.

Maka dari program diatas, hasil keluarannya adalah :

Inputkan Harga : 100000
Bayar = 90000

Maka demikianlah artikel Contoh Program Pembayaran Diskon Dengan Menggunakan Turbo Pascal, semoga dapat membantu Anda. Thanks reader...

Odii Siitohang
Judul: Contoh Program Pembayaran Diskon Dengan Menggunakan Turbo Pascal;
Ditulis oleh: Unknown;
Rating Blog: 5 dari 5





Anda sedang membaca Artikel tentang Contoh Program Pembayaran Diskon Dengan Menggunakan Turbo Pascal dengan url http://d-copy.blogspot.com/2013/04/program-pembayaran-diskon-dengan-turbo-pascal.html, jika Anda menyukai Artikel di blog ini, silahkan masukkan email Anda dibawah ini untuk berlangganan gratis via email, dengan begitu Anda akan mendapat kiriman artikel baru.
D-Copy Reader DMCA
[0] Komentar untuk Contoh Program Pembayaran Diskon Dengan Menggunakan Turbo Pascal:

Post a Comment

Beberapa panduan dalam berkomentar :
Untuk menyisipkan kode[code]KODE ANDA[/code]
Untuk menyisipkan quote[blockquote]QUOTE ANDA[/blockquote]
Untuk menyisipkan gambar[img]URL Gambar[/img]
Untuk menyisipkan video[youtube]URL Video[/youtube]
Anda bisa mengekspresikan komentar Anda dengan emoticon
Klik subscribe by email agar Anda segera tahu balasan komentar Anda

   


 
D-Copy Blog © 2013 - All Rights Reserved Design : Creating Website Published : Mas Template