Program Pascal Menghitung Komisi Salesman menggunakan IF

Berikut 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