04/03/2013

Penggunaan "Case Of" Pada Pemrograman Pascal

Penggunaan Case Of Pada Pemrograman Pascal

Case Of
End.
Alternatif lain yang digunakan untuk mengontrol statement yang akan dieksekusi dalam program dan hanya dapat menguji kesamaan suatu variabel tertentu denga nilai yang disajikan, variabel yang diuji hanyalah berupavariabel yang bertipe ( Integer, Boolean, Char, Byte dan Word ).
Sedangkan tipe – tipe data yang kompleks (Real, Array, Record dll ) tidak dapat digunakan didata yang disajikan. Syntax penulisannya :

               Case ( Nama variabel ) Of
                           Pilihan – 1       : Statement – 1;
Pilihan – 2       : Statement – 2;
.
.          
.
Pilihan – n       : Statement – n;
Else                 : Statement;
End;
Keterangan :  Pilihan dapat berupa barisan yang tiap – tiap elemennya dipisahkan dengan koma ( , ). Juga dapat memiliki range dengan menggunakan simbol dua buah titik ( .. ), yang dapat diartikan sebagai hingga.
Case Pilih Of
            ‘1’        : Write (‘Pilihannya angka 1 ‘);
            ‘a’,’A’ : Write (Pilihannya a atau A’);
            ‘b;..’z’ : Write (Pilihannya diantara b hingga z’);
            else      : Write (Pilihannya salah’);
end;

Latihan – Latihan Program
Program Alternatif_Kondisi;
            Uses Crt;
            (**************************************
              *                    Contoh Perintah Case Of             *
               ***************************************)
            Var
                        Pilih     : Char;
            Begin
                        Clrscr;
Writeln(‘Menu Pilihan’);
Writeln(‘[A] P ilihan Satu’);
Writeln(‘[B] Pilihan Dua’);
Writeln(‘[C] Pilihan Tiga’);
Writeln(‘[D] Pilihan Empat’);
Writeln(‘[0..9] Pilihan Angka’);
Writeln(‘[Esc] Pilihan Tombol Escape’);
Writeln;
Write(‘Pilihan anda : ‘);Pilih :=readkey;
Case Pilih Of
            ‘A’,’a’ : Writeln(‘Pilihan Satu dipilih,yaitu huruf’,Pilih);
            ‘B’,’b’ : Writeln(‘Pilihan Dua dipilih,yaitu huruf’,Pilih);
            ‘C’,’c’  : Writeln(‘Pilihan Tiga dipilih,yaitu huruf’,Pilih);
            ‘D’,’d’ : Writeln(‘Pilihan Empat dipilih,yaitu huruf’,Pilih);
            ‘0’,’9’  : Writeln(‘Pilihan Satu dipilih,yaitu angka’,Pilih);
            #27      : Writeln(‘Tombol Escape yang dipilih’);
            else Writeln(‘Salah memilih’);
End;
Writeln(‘Tekan < enter > ‘);
Readln;
            End.

Program Garment_Jaket;
Uses Crt;
Var
            Ukuran                        : Char;
            Nama_Jaket    :String;
Banyak            : Integer;
Harga,Jumlah  :Real;
Begin
            Clrscr;
            Writeln(‘          Program Pembayaran Jaket     ‘);
            Write(‘Nama Jaket                              : ‘);Readln(Nama_jaket);
Write(‘Ukuran Jaket S/ M /L              : ‘);Readln(Ukuran);
Case Ukuran of
            ‘S’       : Harga :=25000;
‘M’      : Harga :=35000;
            ‘L’       : Harga :=50000;
end;
Write(‘Banyak Jaket                           : ‘);Readln(Banyak);
Jumlah := Harga * Banyak;
Writeln;
Writeln;
Writeln(‘Jumlah yang harus dibayar = Rp.’Jumlah:8:0);
Readln;
End.
Kasus :
Buatlah program untuk menghitung Upag karyawan dengan mengunakan perintah case of. Dengan ketentuan Nik, Nama Karyawan, Alamat Karyawan, Golongan, Jam Kerja.
Jika Gol = 1 uang Harian = 20000 dan Uang Lembur = 10000
Jika Gol = 2 uang Harian = 15000 dan Uang Lembur = 7500
Jika Gol = 3 uang Harian = 10000 dan Uang Lembur = 5000
Uang Lembur dihitung bila jam kerjanya lebih dari 8 jam.
Lembur adalah jam kerja dikurangi 8 kali Uang Lembur.
Tunjangan adalah 15% Uang Harian. Upah cari sendiri.
Output :
            ===================================
                                    Upah Karyawan
            ===================================
                        Nik                                          :
Nama Karyawan                     :          
Alamat Karyawan                   :
Golongan                                :                      
Uang Harian                            :
Jam Kerja                                :
Lembur                                    :
Tunjangan Upah Total            :
            ====================================

Penggunaan "Case Of" Pada Pemrograman Pascal Rating: 4.5 Diposkan Oleh: Ombar Pakpahan