Program Penyeleksian Kondisi Pascal

1. Buatlah  program untuk menghitung gaji Karyawan pada PT. XYZ jika yang diinput adalah namadan Kode jabatan dan mengeluarkan jabatan dan perincian gajinya ditetapkan berdasarkan jabatan dengan ketentuan sebagai berikut:

Kode Jabatan	Jabatan	Gaji Pokok	Tunj. Transport	Tunj. Makan
DR	Direktur	Rp 3000000	Rp 850000	Rp 500000
WD	Wakil Direktur	Rp 2500000	Rp 800000	Rp 500000
MN	Manajer	Rp 2000000	Rp 800000	Rp 450000
AS	Asisten	Rp 1500000	Rp 700000	Rp 400000
KW	Karyawan	Rp 1000000	Rp 500000	Rp 300000

Jawab :

   program PT_XYZ;
   uses crt;
   var
     kj:String;
     GP,TT,TM:longint;
     Total:longint;
     nama:string[30];
     Jabatan:string [20];
   begin
     clrscr;
     writeln('           PROGRAM GAJI PEGAWAI           ');
     writeln('------------------------------------------');
     writeln;
     write('Masukkan Nama Karyawan: ');readln(nama);
     write('Masukkan Kode Jabatan [DR,WD,MN,AS,KW]: ');readln(kj);
     if kj= 'DR' then
       begin
       Jabatan:= 'Direktur';
       GP:= 3000000;
       TT:= 850000;
       TM:= 500000;
       end
     else if kj='WD' then
       begin
       Jabatan:= 'Wakil Direktur';
       GP:= 2500000;
       TT:= 800000;
       TM:= 500000;
       end
     else if kj='MN' then
       begin
       Jabatan:= 'Manajer';
       GP:= 2000000;
       TT:= 800000;
       TM:= 450000;
       end
     else if kj='AS' then
       begin
       Jabatan:= 'Asisten';
       GP:= 1500000;
       TT:= 700000;
       TM:= 400000;
       end
     else if kj='KW' then
       begin
       Jabatan:= 'Karyawan';
       GP:= 1000000;
       TT:= 500000;
       TM:= 300000;
       end;
       Total:=GP + TT + TM;
       writeln('------------------------------------------');
       writeln;
       writeln('Jabatan             = ', Jabatan);
       writeln('Gaji Pokok          = Rp. ', GP);
       writeln('Tunjangan Transaksi = Rp. ',TT);
       writeln('Tunjangan Makan     = Rp. ', TM);
       writeln('Total Gaji          = Rp. ',Total);
       writeln;
       writeln('------------------------------------------');;
       readln;
   end.

 Gambar di Pascal

 Gambar di Pascal

2. PDAM Kota Makassar menetapkan tariff pemakaian air bersih per m3-nya ditentukan secara per golongan dimana golongan ditentukan otomatis berdasarkanjumlah pemakaian. Untuk pemakaian 50 m3  pertama dikenakan biaya Rp 1500. 51-75 m3  dikenakan biaya Rp. 1750. 76-100 m3  dikenakan biaya Rp 2000 dan lewat dari 100 m3   dikenakan biaya Rp. 2250. Buatlah program untuk menghitung jumlah yang harus di bayar pelanggan jika volume air diinput dari keyboard ?

Jawab :

   program PDAM_Kota_Makassar;
   uses crt;
   label mulai;
   var
     pmkn:longint;
     jumlah:longint;
     hrg1,hrg2,hrg3,hrg4:longint;
     mau:char;
   begin
     clrscr;
     writeln('    PROGRAM PDAM KOTA MAKASSAR    ');
     writeln('----------------------------------');
     writeln;
     mulai:
     write('Masukkan Jumlah Pemakaian  = ');readln(pmkn);
     writeln('----------------------------------');
     if pmkn<= 50 then
          hrg1:=1500 * pmkn
     else if  pmkn<=75 then
     begin
          hrg1:=1500*50;
          hrg2:=1750* (pmkn-50);
     end
     else if pmkn<=100 then
     begin
          hrg1:=1500*50;
          hrg2:=1750*25;
          hrg3:=2000*(pmkn-75);
     end
     else if pmkn>100 then
     begin
         hrg1:=1500*50;
         hrg2:=1750*25;
         hrg3:=2000*25;
         hrg4:=2250*(pmkn-100);
     end;
     jumlah:=hrg1+hrg2+hrg3+hrg4;
     writeln('Tarif');
     writeln('    Golongan I   = Rp. ',hrg1:7);
     writeln('    Golongan II  = Rp. ',hrg2:7);
     writeln('    Golongan III = Rp. ',hrg3:7);
     writeln('    Golongan IV  = Rp. ',hrg4:7);
     writeln('----------------------------------');
     writeln('    Total Bayar  = Rp. ',jumlah:7);
     write('Masih Mau Menghitung [y/t]: ');
     readln(mau);
     if(mau='y') or (mau='Y') then goto mulai
   
   end.

 Gambar di Pascal

 Gambar di Pascal

Hasil Program: