Menghitung Bonus Menggunakan Fungsi IF di Pascal

Oke deh....Kita ga usah basa-basi kesana-kesini dulu. Kita langsung ke tujuan utama bahasan kita.

Check it out....!!! ;)

Listing Programnya adalah sebagai berikut:

program bonus;

uses wincrt;

var

total : longint;

begin

clrscr;

writeln('Menampilkan Bonus');

writeln('=================');

writeln;

write('Masukkan Nilai Total : ');readln(total);

If total>=100000 then

writeln('Bonusnya adalah Diskon 10%')

else

If (total<100000) and (total>=50000) then

writeln('Bonusnya adalah 1 buah piring')

else

If (total<50000) and (total>=10000) then

writeln('Bonusnya adalah 2 buah gelas')

else

If total<10000 then

writeln('Tidak ada Bonus');

End.

Nah...hasil yang kita dapatkan adalah



Good Luck...!!!

Free Template Blogger collection template Hot Deals BERITA_wongANteng SEO