Mencari bonus penjualan dengan Turbo Pascal

Mencari bonus penjualan dengan Turbo Pascal

  23:08    Unknown

---

Dibawah ini saya buatkan coding pemograman mencari bonus dalam penjualan sebagai berikut :

USES CRT;
Var

Penjualan                : longint;
bonus                      : real;
Begin
clrscr;
gotoxy(30,10);write('Penjualan:');readln(penjualan);
if penjualan > 1000000 then
bous:=(0.1*1000000) + ((penjualan-1000000)*0.15);
else if penjualan >500000 then
bonus:=0.1*penjualan
else
bonus:=0;
gotoxy(30,12);write('bonus:',bonus:8:20);
readln;
End.


Demikianlah coding mencari bonus dalam penjualan , semoga apa yang saya buat ini bermamfaat bagi para pembaca sekalian........
Terima Kasih..!!!