PROGRAM PASCAL MENGHITUNG KOMISI SALESMEN MENGGUNAKAN IF

PROGRAM PASCAL MENGHITUNG KOMISI SALESMEN MENGGUNAKAN IF

Berikut ini program pascal menghitung komisi salesmen menggunakan if


1.Programnya

program MenghitungKomisiSalesmen;
uses crt;
var
   JumlahPenjualan,Komisi: real;
begin
     clrscr;
     writeln('program MenghitungKomisiSalesmen');
     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.Program dalam pascal

3.Hasilnya