Boolean Operators dan Percabangan (Decision Conditional) "CASE" dalam Pascal

Halo temen - temen, gimana kabarnya? koq kayaknya pada galau mikirin UNAS? udah jangan terlalu dipikirin toh udah lewat juga kan? hehehe

Mending kita Belajar bahasa Pemprograman Pascal aja hehe.

Seperti yang saya janjikan dalam article sebelumnya kali ini kita kan membahas (Decision Conditional) dengan menggunakan "CASE" dalam Bahasa Pemprograman Pascal.

Tidak seperti pemakaian syntax IF , penggunaan syntax CASE jauh lebih mudah dan simple, tapi tentu saja jika ada kelebihan pasti ada kekurangan. karena memang kedua syntax tersebut di ciptakan dengan peruntukan yang berbeda.

Penasaran ? yuk kita mulai aja belajarnya  :)



Sebelum itu, di article sebelumnya saya memberikan sedikit latihan untuk temen - temen semua, gimana? sudah selesai, mudah kan? untuk temen - temen yang masih belum paham, yuk kita bahas bersama - sama.

ANSWER THE QUESTION!!!

Di article sebelumnya saya kan memberikan latihan tentang penggunaan IF. dan membahas mengenai Boolean Oprators

Nah,, untuk mengerjakan latihan yang saya berikan kita membutuhkan batuan dari salah satu boolean operator tersebut, yaitu AND .

kenapa menggunakan AND? dan Bagaimana cara menggunakannya? 

Tenang jangan bingung dulu, saya ajan jelaskan bertahap.
kenapa menggunakan AND ? kita membutuhkan operator AND karena data yang kita bandingkan lebih dari 1. yaitu kita harus membandingkan isi dari text1 dan text2 apakah keduanya sudah memenuhi syarat? sebenarnya tanpa menggunakan operator AND bisa saja, dengan cara IF bersarang (IF di dalam IF). tapi akan lebih mudah dan menghemat penulisan syntax.

Seperti yang temen - temen pelajari dalam Matematika logika AND (dan) / OR (atau) logika benar salahnya sama persis, jika nilai dari kedua perbandingan benar maka logika AND akan mengembalikan nilai Benar.

masih bingung? sekarang coba temen - temen buka tabel logika pada matematika. dan kita coba selesaiakan soal latihan yang keamrin saya berikan.

Yang harus kita lakukan adalah membuat program yang mampu membandingkan 2 text dan menampilkan hasil dengan benar. Berikut ini source code nya :

program latihanif;
Uses crt;
var
   x, y : string[10];
begin
   x := 'Gen';
   y := 'Shishio';
   if (x = 'Gen') AND (y = 'Shishio') then
      (* jika kondisi dari kedua text benar/true maka cetak Statemen 1 di bawah ini *)
      writeln('BENAR! Isi dari variable x dan y adalah Gen Shishio')
   else
      (* jika kondisi di atas salah/false maka cetak Statement 2 dibawah ini *)
       writeln('Salah ! Isi dari varibale x dan y adalah ',x,' ',y );

   readln;
end.

Seperti pada script di atas ada 2 variable yang di bandingkan, jika hasil dari perbandingan kedua variable tersebut benar, maka hasilnya adalah benar, sama kan seperti di tabel logika. untuk aturan OR dan yang lainya sama persis seperi yang ada di matematika.

Hasil dari program di atas adalah :

BENAR! Isi dari variable x dan y adalah Gen Shishio

Sekarang coba teman - teman ubah isi dari variablenya, apa yang akan terjadi? :)

yeee,,, sekarang temen - temen udah bisa buat program yang lebih complex, keren ,, hehe

OK sekarang kita kembali lagi kemateri yang sebenarnya hehe.

A.  Percabangan (Decision Conditional) "CASE" dalam Pascal

Seperti yang saya bilang di bagian atas, penggunaan CASE itu lebih mudah dan simple, tapi tentu saja memiliki keterbatasan - keterbatasan tertentu. Karena sejatinya syntax CASE digunakan untuk men-switch suatu hasil yang sudah pasti. jadi CASE tidak mengenal relational dan boolean operator. artinya CASE tidak dapat melakukan perbandingan logika tapi hanya membandingkan suatau yang SAMA ( = )

Berikut ini cara penulisan syntax CASE

case (expression) of
   L1 : S1;
   L2: S2;
   ...
   ...
   Ln: Sn;
end;

Dimana L1, L2 dst adalah label/nilai pembanding.

Sebagai contoh saya memiliki 5 klasifikasi nilai yaitu A,B,C,D,E dan setiap klasifikasi nilai memiliki keterangan, saya ingin menampilkan keterangan tersebut, jadi dalam hal ini yang akan di bandingkan adalah klasifikasi nilai dengan label/nilai. berikut source nya :

program checkCase;
var
   grade: char;
begin
   grade := 'A';

   case (grade) of
      'A' : writeln('Excellent!' );
      'B', 'C': writeln('Well done' ); // contoh penggunaan 2 label sekaligus
      'D' : writeln('You passed' );
      'F' : writeln('Better try again' );
   end;     
   writeln('Your grade is  ', grade );
end.

dan hasilnya seperti di bawah ini :

Excellent!

Gimana temen - temen?  mudah bukan? hehehe, cukup sekian dulu materi yang kita pelajari, tentunya akan kita lanjutkan dengan materi baru yaitu menggenai LOOPS atau PERULANGAN dalam Pascal.

Ok, semoga bermanfaat sampai jumpa di article selanjutnya :) tetap semangat!!