IF - Then - Else Dengan Pascal

Untuk melakukan seleksi dalam Pascal digunakan perintah IF-THEN-ELSE.

Sebagai contoh, jika ingin menyeleksi nilai ujian dengan kriteria  :

Nilai 0-40 (E)

Nilai 41-55 (D)

Nilai 56-67 (C)

Nilai 68-78 (B)

Nilai 79-100 (A)

maka programnya adalah :

Var nilai :byte;

Begin

        Write('Masukkan Nilai = ');readln(nilai);

        If nilai<=40 then writeln('E')

        Else if nilai<=55 then writeln('D')

        Else if nilai<=67 then writeln('C')

        Else if nilai<=78 then writeln('B')

        Else writeln('A');

End.

selamat mencoba, semoga bermanfaat