LATIHAN -LATIHAN PENYELEKSIAN KONDISI PADA PASCAL (Bagian 3)

LATIHAN -LATIHAN PENYELEKSIAN KONDISI PADA PASCAL (Bagian 3)
Sebelumnya saya sudah posting mengenai LATIHAN -LATIHAN PENYELEKSIAN KONDISI PADA PASCAL (Bagian 2). Kali ini saya akan menlanjutkan beberapa latihan - latihan lagi. Langsung saja berikut latihan-latihannya :

1. Program untuk menghitung gaji Karyawan pada PT. XYZ jika yang diinput adalah namadan Kode jabatan dan mengeluarkan jabatan dan perincian gajinya ditetapkan berdasarkan jabatan denga 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

    Berikut scribnya ketikkan di turbo pascalnya.

   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.

   Agak panjang ya.... nah jika sudah di ketik maka tampilannya seperti di bawah ini

       Kemudian di run maka tampilannya akan seperi di bawah ini

2. Kali ini adalah kita akan membuat program dengan cerita sebagai berikut.

    "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 ?"

Bingung bagaimana programnya...? Baiklah untuk membuat program seperti cerita di atas, ketikkan scrib di bawah ini di pascalnya yaa..

       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.

   Jika sudah berikut tampilannya

         Berikut tampilan hasil programnya ketika di jalankan

         setelah itu akan ada pilhan y/t. Jika kita pilih "y" akan dilakukan perhitungan lagi dan jika, jika kita pilih "t" tidak akan dilakukan perhitungan lagi dan akan langsung keluar. Di bawah ini tampilanya jika kita pilih pilihan "y".

SEKIAN....

Password : pusatkomputerindo.blogspot.com Bagi Kalian Para OTAKU Bisa Di Lihat Daftar Anime SPRING 2015 Yang Akan Rilis APRIL 2015
LATIHAN -LATIHAN PENYELEKSIAN KONDISI PADA PASCAL (Bagian 3)

LATIHAN -LATIHAN PENYELEKSIAN KONDISI PADA PASCAL (Bagian 3) 10out of 10 based on 25 ratings. 35 user reviews.

Anda sedang membaca artikel tentang LATIHAN -LATIHAN PENYELEKSIAN KONDISI PADA PASCAL (Bagian 3). Bila Anda merasa mendapat manfaat dari artikel ini, jangan lupa LIKE fanspage kami di atas, sebagai bentuk apresiasi terhadap blog PUSATKOMPUTERINDO. Terimakasih. ^_^

Related Posts: