Program Kondisi IF ( 1 kasus, 2 kasus, nested if )

Program ifsatukasus;

Uses wincrt;

Var

x : integer;

Begin

Clrscr;

    Write(‘Masukkan sebuah bilangan bulat : ’); readln (x);

     If ( x> 10) then

            Writeln (x,’lebih besar dari 10’);

    readln;

end.

Program ifduakasus;

Uses wincrt;

Var

x : integer;

Begin

Clrscr;

    Write(‘Masukkan sebuah bilangan bulat : ’); readln (x);

     If ( x> 10) then

            Writeln (x,’lebih besar dari 10’)

else

writeln (x,’lebih kecil dari 10’); 

     readln;

end.

Program nestedif;

Uses wincrt;

Var

x, y : integer;

Begin

    Write(‘Masukkan Nilai x : ’); readln (x);

    Write(‘Masukkan Nilai y : ’); readln (y);

     If ( x> 0) then

        Begin

        If (y>0) then

            Write (‘x dan y bilangan positif’)

else

            Write (‘y bilangan negatif’)

            End

         Else

            Write (‘x bilangan negatif’);

         end.