BAB 8 Pernyataan IF dan Case

-------------------------------
Pernyataan IF :
PROGRAM suhuif ;
USES crt ;
VAR
  suhu : real ;
BEGIN
  clrscr;
  write('Suhu tubuh : ');
  readln(suhu);
  IF suhu > 37 THEN
      writeln('Suhu Tinggi !');
  writeln('Selesai !');
END.

------------------------------------
Pernyataan IF ELSE
PROGRAM suhuIfElse;
USES crt;
VAR
   suhu : real;
BEGIN
   clrscr;
  write('Suhu tubuh : ');
  readln(suhu);
  IF suhu > 37 THEN
      writeln('Suhu Tinggi !');
  ELSE
      writeln('Suhu Tidak Tinggi...');
  writeln('Selesai !');
END.

--------------------------------------
Pernyataan CASE
PROGRAM  case;
USES crt;
VAR
   pil : integer;
BEGIN
   clrscr;
   write('Pilihan [1, 2, atau 3] : ');
   readln(pil);
 CASE pil OF
  1: writeln('Pilihan Anda adalah 1');
  2: writeln('Pilihan Anda adalah 2');
  3: writeln('Pilihan Anda adalah 3');
 ELSE
  writeln('Salah pilih !');
 END;
END.

--------------------------------------
Pernyataan CASE
PROGRAM  case;
USES crt;
VAR
   kdbul : integer;
BEGIN
   clrscr;
   write('Kode Bulan [1..12] : ');
   readln(kdbul);
 CASE kdbul OF
  1,3,5,7,8,10,12 : writeln('Jumlah hari = 31');
  4,6,9,11            : writeln('Jumlah hari = 30');
  2                       : writeln('Jumlah hari 28 atau 29');
 ELSE
  writeln('Salah pilih kode bulan !');
 END;
END.