LATIHAN -LATIHAN PENYELEKSIAN KONDISI PADA PASCAL (Bagian 4)

LATIHAN -LATIHAN PENYELEKSIAN KONDISI PADA PASCAL (Bagian 4)

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


Kali ini latihannya, kita akan buat program dengan beberapa cerita dibawah ini.

1. Buatlah program untuk menentukan bonus pegawai, berdasarkan ketentuan yang diberikan oleh bagian personalia dan keuangan sebagai berikut: Pegawai perusahaan digongkan menjadi dua golongan, yaitu staf dan non staf. Staf akan mendapatkan bonus sebesar 1 juta rupiah dengan syarat bahwa ia telah bekerja paling tidak 5 tahun dan umurnya sudah mencapai 50 tahun; staf yang bekerja kurang dari 5 tahun dan berapapun umurnya, hanya mendapat bonus sebesar Rp. 500.000. Pegawai non staf yang telah bekerja lebih dari 5 tahun akan mendapat bonus sebesar Rp. 400.000 jika berumur lebih dari 50 tahun sedangkan pegawai non staf yang berumur kurang dari 50 tahun hanya mendapat bonus Rp. 250.000. Pegawai staf umurnya kurang dari 50 tahun akan mendapat bonus Rp. 300.000.

Ndak usah lama-lama berikut scribnya

       program menghitung_bonus_pegawai;

   uses crt;

   var

     Nama,jab     : string;

     umur         : integer;

     LK           : byte;

     bonus        :real;

   begin

     clrscr;

     writeln('        MENGHITUNG BONUS PEGAWAI        ');

     writeln('----------------------------------------');

     write('Masukkan Nama           = ');readln(nama);

     write('Masukkan Jabatan [s/ns] = ');readln(jab);

     write('Masukkan Umur           = ');readln(umur);

     write('masukkan lama kerja     = ');readln(lk);

     writeln('----------------------------------------');

     if (jab='s') or (jab='S') then

     begin

        if (umur>=50)and (LK>=5)then

        begin

          bonus:=1000000;

          end

        else if (LK<=5) then

        begin

          bonus:=500000;

        end

        else if (umur < 50 ) then

        begin

          bonus:=300000;

        end;

     end

     else if (jab='ns') or (jab='NS') then

     begin

        if (umur>=50) and(LK>=5) then

        begin

        bonus:=400000;

        end

        else if (umur<=50) and (LK>=5) then

        begin

        bonus:=250000;

        end;

     end;

   writeln('Bonus ', nama ,' = Rp. ',bonus:5:0);

   readln;

   end.

   Berikut tampilan program dan hasilnya

                         Hasilnya

2.  Dibaca suatu nilai bertipe integer.

Jika dimasukkan harga 1 maka tulis dilayar ‘SATU’

Jika dimasukkan harga 2 maka tulis dilayar ‘DUA’

Jika dimasukkan harga 3 maka tulis dilayar ‘SATU’

........

Jika dimasukkan harga 9 maka tulis dilayar ‘SEMBILAN’

Jika dimasukkan harga 0 maka tulis dilayar ‘NOL’

Jika dimasukkan harga selain 0 s/d 9 maka tulis dilayar ‘BILANGAN SELAIN 0 s/d 9’

Scribnya

   program PEMBILANG;

   uses crt;

   var

     hrga:integer;

     tls:string [35];

   begin

     clrscr;

     writeln('             PEMBILANG           ');

     writeln('---------------------------------');

     writeln;

     write('Masukkan Angka 0 s/d 9: ');readln(hrga);

     writeln('---------------------------------');

     writeln;

     case hrga of

     0 : writeln('   NOL');

     1 : writeln('   SATU');

     2 : writeln('   DUA');

     3 : writeln('   TIGA');

     4 : writeln('   EMPAT');

     5 : writeln('   LIMA');

     6 : writeln('   ENAM');

     7 : writeln('   TUJUH');

     8 : writeln('   DELAPAN');

     9 : writeln('   SEMBILAN');

     end;

     if(hrga >= 10) then

     begin

        writeln('    BILANGAN SELAIN 0 s/d 9');

     end;

     writeln;

     writeln('---------------------------------');

     readln;

   end.

   

   

   Tampilan program dan hasilnya

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 4)

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

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

Related Posts: