Program Pascal Menghitung Komisi Salesman menggunakan If

Program Pascal Menghitung Komisi Salesman menggunakan If

Nahhh ini adalah salah satu program pascal untuk menghitung komisi salesman menggunakan If

1. Programnya

Program MenghitungKomisiSalesman;

uses crt;

var

   JumlahPenjualan,Komisi:real;

begin

     clrscr;

     Writeln('Program MenghitungKomisiSalesman');

     Write('Input Jumlah Penjualan   : ');readln(JumlahPenjualan);

     Komisi :=0.1*500000;

     if JumlahPenjualan >500000 then

        Komisi :=Komisi+((JumlahPenjualan-500000)*0.15);

     Writeln('Komisi                   : ',Komisi:0:0);

     readln;

end.

2. Tampilan Program dalam Pascal

3. Hasil Program