PASCAL - Pencabangan Jamak by ChairilAndri

VIEWS: 33 PAGES: 8

									     Pencabangan Jamak
Penyeleksian kondisi menggunakan IF
THEN untuk kondisi yang diuji jumlahnya
banyak akan membuat suatu program
menjadi rumit.
Untuk mengatasi kerumitan program,
digunakan statemen CASE OF untuk
pencabangan jamak.
Bentuk umum susunan penulisan Case of sbb:

CASE variabel selektor OF
konstanta 1 : Begin
              ………….. ; statemen
              End
konstanta 2 : Begin
              ………….. ; statemen
              End
konstanta 3 : Begin
              ………….. ; statemen
              End
konstanta 4 : Begin
              ………….. ; statemen
              End
ELSE
             Begin
              ………….. ; statemen
             End

End; {End Case Of}
Variabel selektor adalah variabel yg isinya
digunakan untuk menentukan bagian
mana dari pencabangan yg akan
dikerjakan lebih dahulu.
Variabel selektor harus bertype ordinal
seperti Integer, Byte, Char dll. Type string
dan real tidak bisa digunakan sbg variabel
selektor. Antara variabel selektor dan
konstanta harus setype.
Contoh program 1:

Program Karcis;
Uses Crt;
Var
    kelas : Integer;
    HargaKarcis : Real;
Begin
    clrscr;
     Write(‘Masukkan Kelas :’); Readln(Kelas);
    CASE Kelas OF
          1 : Begin
              HargaKarcis := 100000;
              end;
          2 : Begin
              HargaKarcis := 75000;
              end;
          3 : Begin
              HargaKarcis := 50000;
              end;
      Else
             Begin
              HargaKarcis := 25000;
              end
      End;
      Writeln(‘Karcis Yang dibeli Kelas ; ‘ ,Kelas);
      Writeln(‘Harga Karcis : ‘ , HargaKarcis:6:2);
Readln;
End.
Contoh Program 2:
Uses Crt;
Var

   AngkaHari Byte;
   label ulang;
Begin
    Clrscr;
Ulang :
    Write(‘Masukkan angka hari : ‘);Readln(AngkaHari);
    CASE AngkaHari OF
    1,3,5 : Begin
            Writeln(‘Hari: Senin, Rabu, dan Jumat’);
            Writeln(‘Kegiatan : Kursus Komputer’);
            End;
     2,4 : Begin
            Writeln(‘Hari: Selasa dan Kamis’);
            Writeln(‘Kegiatan : Kursus Bahasa Inggris’);
            End;
       6 : Begin
            Writeln(‘Hari: Sabtu’);
            Writeln(‘Kegiatan : Main Basket’);
            End;
       0 : Begin
            Writeln(‘Hari: Minggu’);
            Writeln(‘Kegiatan : Rekreasi’);
            End;
      Else
            Begin

           Writeln(‘              Masukkan Angka 0 – 6…’);
           goto ulang;

           End
  end;
Readln;
End.
Contoh Program 3:

Uses Crt;
Var
    Karakter : Char;
Begin
    Clrscr;
Write(‘Masukkan Karakter : ‘); Readln(Karakter)
    CASE karakter OF
    ‘A’ .. ‘Z’ : Begin
                 Writeln(‘Anda memasukkan Huruf Besar..’);
                 End;
    ‘a’..’z’ : Begin
                 Writeln(‘Anda memasukkan Huruf Kecil..’);
                 End ;
    ‘0’..’9’ : Begin
                 Writeln(‘Anda menekan Tombol Numerik..’);
                 End;
     Else
                 Begin
                 Writeln(‘Anda memasukkan karakter khusus..’);
                 End
    End;
Readln;
End.
                         Tugas

1.   Jika diketahui alas dan tinggi suatu segi tiga sama
     kaki, buatlah program untuk menghitung luas dan
     keliling segi tiga tersebut. Bila alas segitiga ini
     merupakan diameter suatu tabung dan tingginya
     adalah tinggi tabung, buatlah program untuk
     menghitung volume dan luas kulit tabung .

2.   Buatlah program untuk menghitung biaya pengiriman
     paket. Ketentuanya adalah : berat minimum paket 1
     kg, jika kurang dianggap 1 kg. Ongkos per kg
     Rp.25000,-; bila menghendaki pelayanan khusus
     ditambah ongkos khusus Rp.2500,- per kg.
3. Buat program untuk seleksi penerimaan karyawan. Jika jenis
   kelamin pria, pendikan SMA, dan tinggi badan >= 170 cm diterima
   sebagai SATPAM. Jika jenis kelamin wanita dan pendidikan SMA
   diterima sbg tenaga administrasi.



4. Dengan menggunakan statemen pencabangan jamak CASE OF
   buatlah program untuk menentukan predikat kelulusan mahasiswa.
   Ketentuan lulus adalah nilai agama >= 60 dan ketentuan berikut ini
   jika
     nilai <= 40        : indek nilai = ‘E’
      41 <= nilai <= 54 : indek nilai = ‘D’
      55 <= nilai <= 65 : indek nilai = ‘C’
      66 <= nilai <= 79 : indek nilai = ‘B’
      Nilai >= 80        : indek nilai = ‘A’

								
To top