Perintah IF Pada Pascal

A. Percabangan dengan Menggunakan Perintah "IF"

          Penulisan Perintah Percabangan dengan menggunakan "IF" dalam bahasa pascal adalah sebagai berikut :

1. Statement IF tunggal

Khasus : Statement yang dikerjakan hanya jika kondisi "IF" terpenuhi Penulisan Syntax :

if <conditiron> then

<statement>

contoh :

Jika variable "x" berisi lebih dari 50 maka program akan mencetak tulisan "Nilai X lebih dari 50"

Jadi code program nya adalah sebagai berikut :

program if Kahsus1;

var

   x,y :integer;

begin

   x:= 60;

 (* cek kondisi boolean(benar/salah) menggunakan IF statement *)

   if( x > 50 ) then

 (* jika kondisi bernilai benar/true maka kerjakan perintah di bawah ini *)

      writeln('Nilai X lebih dari 50' );

     

   writeln('isi dari nilai X adalah : ', x);

   readln;

end.

Output dari program di atas adalah :

Nilai X lebih dari 50

isi dari nilai X adalah : 60

2. Statement IF THEN ELSE

         Khasus : Statement 1 dikarjakan jika variable x lebih dari sama dengan 50, dan Statement 2 dikerjakan jika variable x kurang dari 50.
Statement 1 => Cetak tulisan "Nilai X lebih dari sama dengan 50"
Statement 2 => Cetak tulisan "Nilai X kurang dari 50"

Untuk menyelesaikan khasus di atas kita memerlukan teman/pasangan setia dari perintah "IF" hehehe:D yaitu "ELSE"
Penulisan Syntax :

if <condition> then

   <statement1>

else

   <statement2>

Jadi code program nya adalah sebagai berikut :

program ifKahsus2;

var

   x : integer;

begin

   x := 100;

   if( x >= 50 ) then

      (* jika kondisi benar/true maka cetak Statemen 1 di bawah ini *)

      writeln('Nilai X lebih dari sama dengan 50' )

   else

      (* jika kondisi di atas salah/false maka cetak Statement 2 dibawah ini *)

       writeln('Nilai X kurang dari 50' );

  

   writeln('isi dari nilai X adalah : ', x);

   readln;

end.

Output dari program di atas adalah :

Nilai X lebih dari sama dengan 50

isi dari nilai X adalah : 100

Sekarang coba temen - temen unbah nilai X manjedi 20, yang terjadi adalah :

Nilai X kurang dari 50

isi dari nilai X adalah : 20

Karena kondisi "IF" di atas salah jadi program akan menjalankan perintah ke 2 yaitu perintah di bawah statement "ELSE".

3. Statement IF ganda
        Khasus :
Statement 1 dikarjakan jika variable x lebih dari sama dengan 90,
Statement 2 dikerjakan jika variable x lebih dari sama dengan 70,
Statement 3 dikerjakan jika variable x lebih dari sama dengan 60,
Statement 4 dikerjakan jika variable x kurang dari 60,

Statement 1 => Cetak tulisan "Nilai anda adalah A"
Statement 2 => Cetak tulisan "Nilai anda adalah B"
Statement 3 => Cetak tulisan "Nilai anda adalah C"
Statement 4 => Cetak tulisan "Nilai anda adalah D"

program ifKahsus3;

var

   x : integer;

begin

   x := 50;

   if( x >= 90 ) then

      writeln('Nilai anda adalah A' )

   else if (x >= 70 ) then

      writeln('Nilai anda adalah B ')

   else if (x >= 60)  then

      writeln('Nilai anda adalah C')

   else

      writeln('Nilai anda adalah D' );

   writeln('nilai anda : ', x);

   readln;

end.

Hasil output dari program di atas adalah :

yoshhhh!.. kita sekarang sudah bisa membuat program dengan menggunakan IF, keren banget hehhe..

Semoga Bermanfaattt Yahh!!! J ><><