Pascal : Logika IF

Satu Kasus / Satu Syarat

{jika hanya 1 statemen}
if (syarat) then
   statemen;
 
{jika lebih dari 1 statemen}
if(syarat) then begin
   statemen1;
   statemen2;
end;

Contoh kasus:

program satukasus;

uses wincrt;

var
   x : integer;

begin
   write('Masukkan sebuah bilangan bulat : '); readln(x);
   if(x > 10) then
       writeln(x, ' lebih besar dari 10');
   readln;
end.

Dua Kasus / Dua Syarat

{jika hanya 1 statemen}
if (syarat) then
   statemen_jika_syarat_terpenuhi;
else
   statemen_jika_syarat_tidak_terpenuhi;
 
{jika lebih dari 1 statemen}
if(syarat) then begin
   statemen_jika_syarat_terpenuhi1;
   statemen_jika_syarat_terpenuhi2;
end
else begin
   statemen_jika_syarat_tidak_terpenuhi1;
   statemen_jika_syarat_tidak_terpenuhi2;
end;

Contoh kasus:

program ifduakasus;

uses wincrt;

var
   x : integer;

begin
   write('Masukkan sebuah bilangan bulat : '); readln(x);
   if(x > 10) then
       writeln(x, ' lebih besar dari 10');
   else
       writeln(x, ' sama dengan atau lebih kecil dari 10');
   readln;
end.

Lebih dari Dua Kasus / Dua Syarat

{jika hanya 1 statemen}
if (syarat1) then
   statemen_jika_syarat1_terpenuhi;
else if(syarat2) then
   statemen_jika_syarat2_terpenuhi;
else
   statement_jika_syarat_tidak_terpenuhi;
 
{jika lebih dari 1 statemen}
if(syarat1) then begin
   statemen_jika_syarat1_terpenuhi1;
   statemen_jika_syarat1_terpenuhi2;
end
else if(syarat2) then begin
   statemen_jika_syarat2_terpenuhi1;
   statemen_jika_syarat2_terpenuhi2;
end
else begin
   statemen_jika_syarat_tidak_terpenuhi;
end;

Contoh kasus:

program iflebihdariduakasus;

uses wincrt;

var
   x : integer;

begin
   write('Masukkan sebuah bilangan bulat : '); readln(x);
   if(x > 10) then
       writeln(x, ' lebih besar dari 10');
   else if(x = 10) then
       writeln(x, ' sama dengan 10');
   else
       writeln(x, ' lebih kecil dari 10');
   readln;
end.

Incoming search terms:

Kamu mungkin ingin membaca ini juga:

Leave a Reply

Your email address will not be published. Required fields are marked *