Hans

Syntax untuk if-then-else adalah :

if condition then S1 else S2;

Dimana, S1 dan S2 merupakan statemen yang berbeda. Ingat, Statemen S1 tidak diikuti dengan semicolon (;). Di dalam IF-THEN-ELSE statemens, ketika kondisi pertama bernilai true maka yang dijalankan adalah S1 dan S2 akan dilewatkan. Ketika kondisi pertama bernilai false maka statemen S1 akan dilewatkan dan S2 langsung dijalankan.
Contohnya,

if color = red then
    writeln('You have chosen a red car')
  else
    writeln('Please choose a color for your car');

Jika ekspresi boolean bernilai true, maka blok IF-THEN akan dijalankan, dan sebaliknya blok else yang dijalankan. Pascal mengasumsikan semua nilai yang bukan nol sebagai true dan jika nilai if nol maka akan diasumsikan false.

Contoh Program

program ifelseChecking;
  var
   { local variable definition }
   a : integer;

  begin
   a := 100;
   (* check the boolean condition *)
   if( a < 20 ) then
      (* if condition is true then print the following *)
      writeln('a is less than 20' )
   
   else
      (* if condition is false then print the following *) 
      writeln('a is not less than 20' );
      writeln('value of a is : ', a);
  end.

Ketika kode diatas dijalankan, maka akan menghasilkan :

a is not less than 20
  value of a is : 100

Statemen IF-THEN-ELSE

Sebuah statemen IF-THEN dapat diikuti dengan statemen ELSE-IF-THEN-ELSE,yang mana sangat membantu untuk mengetest kondisi yang berbeda menggunakan satu statemen IF-THEN-ELSE.

Syntax

Syntax untuk sebuah statemen IF-THEN-ELSE IF-THEN-ELSE pada pascal adalah:

if(boolean_expression 1)then 
   S1 (* Executes when the boolean expression 1 is true *)

  else if( boolean_expression 2) then 
   S2 (* Executes when the boolean expression 2 is true *)

  else if( boolean_expression 3) then 
   S3 (* Executes when the boolean expression 3 is true *)

  else 
   S4; ( * executes when the none of the above condition is true *)

Contoh Program

program ifelse_ifelseChecking;
  var
   { local variable definition }
   a : integer;

  begin
   a := 100;
   (* check the boolean condition *)
   if (a = 10)  then
      (* if condition is true then print the following *)
      writeln('Value of a is 10' )
   
   else if ( a = 20 ) then
      (* if else if condition is true *)
      writeln('Value of a is 20' )
   
   else if( a = 30 ) then 
      (* if else if condition is true  *)
      writeln('Value of a is 30' )
   
   else
      (* if none of the conditions is true *)
      writeln('None of the values is matching' );
      writeln('Exact value of a is: ', a );
  end.

Ketika kode diatas dijalankan, akan menghasilkan program :

None of the values is matching
  Exact value of a is: 100