Source Code Program Pascal Struktur IF THEN ELSE (Contoh 1)

Contoh Program

program struktur_if_then_else;

uses crt;

var

  bulan: integer;

begin

  clrscr;

  write('Silahkan input angka untuk bulan (1-12): ');

  readln(bulan);

 

  if (bulan = 1) then

     writeln('Januari')

  else if (bulan = 2) then

     writeln('Februari')

  else if (bulan = 3) then

     writeln('Maret')

  else if (bulan = 4) then

     writeln('April')

  else if (bulan = 5) then

     writeln('Mei')

  else if (bulan = 6) then

     writeln('Juni')

  else if (bulan = 7) then

     writeln('Juli')

  else if (bulan = 8) then

     writeln('Agustus')

  else if (bulan = 9) then

     writeln('September')

  else if (bulan = 10) then

     writeln('Oktober')

  else if (bulan = 11) then

     writeln('November')

  else if (bulan = 12) then

     writeln('Desember');    

 

  readln;

end.

LATIHAN

A) Buat program untuk menentukan LULUS/TIDAK LULUS

Dengan input nilai

Jika nilai >= 70 maka lulus

Jika nilai < 70 maka tidak lulus

B) Buat program untuk menentukan Grade nilai A - E
dengan input nilai
Jika nilai 90 - 100 maka A

Jika nilai 80 - 89 maka B

Jika nilai 70 - 79 maka C

Jika nilai 60 - 69 maka D

Jika nilai < 60  maka E