PT. Diamon Computer mengadakan bonus bagi pelanggan yang membeli produk Laptop HP NX9040, harga per unit adalah Rp. 3.000.000,-
Ketentuan untuk mendapatkan bonus adalah sebagai berikut :
- Jika membeli laptop diatas 2 maka dapat bonus Rp. 100.000,-
- Jika membeli laptop diatas 5 maka dapat bonus Rp. 300.000,-
- Jika membeli laptop diatas 10 maka dapat bonus Rp. 1.000.000,-
program penjualan_laptop;
uses wincrt;
var merek,type_laptop :string;
harga,bonus,total,total_bonus,jumlah :integer;
begin
write ('Input Merek : ');readln(merek);
write ('Input Type Laptop : ');readln(type_laptop);
write ('Input Harga : ');readln(harga);
write ('Input Jumlah Beli : ')readln(jumlah);
total:=harga*jumlah;
if jumlah >2 then
begin
Bonus :=100000;
end
else
if jumlah >5 then
begin
Bonus :=300000;
end
else
if jumlah >10 then
begin
bonus :=1000000;
end
else
begin
Bonus :=0;
end;
total_bonus:total-bonus;
writeln ('total : ',total);
writeln ('Bonus : ',bonus);
writeln ('Total Bersih : ',total_bonus);
end.
Related posts
algoritma
belajar
- Array
- Procedure
- Hardware Komputer : Perangkat Pemroses (CPU)
- Hardware Komputer : Perangkat Input (Bagian 2)
- Hardware Komputer : Perangkat Input (Bagian 1)
- Belajar Pascal : Program Pascal Sederhana
- Sturktur Perulangan while/do
- Logika Percabangan (Part 3)
- Logika Percabangan (Part 2)
- Logika Percabangan
- Belajar Algoritma
pascal
sturktur data
umum
- Array
- Database (bagian 1)
- Pendeklarasian Parameter Pada Procedure
- Procedure
- Hardware Komputer : Perangkat Input (Bagian 1)
- Belajar Pascal : Program Pascal Sederhana
- Type Data
- Sturktur Perulangan while/do
- Logika Percabangan (Part 3)
- Logika Percabangan (Part 2)
- Belajar Algoritma
- Cara Berterima Kasih Kepada Ibu
- Aku ingin menjadi orang yang bertepuk di tepi jalan
- Pertanyaan Anak yang Paling Ditakuti Orang tua
- Kisah Uang
- Aulia Education Centre (AEC)
- Fun Photo Box
- blanksomnia
- T 10
- Horeeee, Award Lagi
- Silaturrahmi
- Puasa dan Award
- Istimewanya Wanita Islam
- Lagu Perjuangan
Tips
- Array
- Pendeklarasian Parameter Pada Procedure
- Procedure
- Hardware Komputer : Perangkat Input (Bagian 2)
- Hardware Komputer : Perangkat Input (Bagian 1)
- Belajar Pascal : Program Pascal Sederhana
- Sturktur Perulangan while/do
- Logika Percabangan (Part 2)
- Pertanyaan Anak yang Paling Ditakuti Orang tua
- Kiat Mengatasi Anak Pemalu
Komputer
- Array
- Database (bagian 1)
- Pendeklarasian Parameter Pada Procedure
- Hardware Komputer : Perangkat Pemroses (CPU)
- Hardwaer Komputer : Perangkat Output
- Hardware Komputer : Perangkat Input (Bagian 2)
- Hardware Komputer : Perangkat Input (Bagian 1)
- Belajar Pascal : Program Pascal Sederhana
- Type Data
- Sturktur Perulangan while/do
- Logika Percabangan (Part 3)
- Logika Percabangan (Part 2)
- Logika Percabangan
- Belajar Algoritma
- Aulia Education Centre (AEC)
Pendidikan
- Array
- Database (bagian 1)
- Pendeklarasian Parameter Pada Procedure
- Hardware Komputer : Perangkat Pemroses (CPU)
- Hardware Komputer : Perangkat Input (Bagian 2)
- Hardware Komputer : Perangkat Input (Bagian 1)
- Belajar Pascal : Program Pascal Sederhana
- Type Data
- Sturktur Perulangan while/do
- Logika Percabangan (Part 3)
- Logika Percabangan (Part 2)
- Cara Berterima Kasih Kepada Ibu
- Aku ingin menjadi orang yang bertepuk di tepi jalan
- Pertanyaan Anak yang Paling Ditakuti Orang tua
- Aulia Education Centre (AEC)
0 komentar:
Posting Komentar