Menentukan grade dari suatu nilai

Coding di bawah ini digunakan untuk menentukan grade (A, B, C, D) sesuai dengan nilai yang didapatkan. Misalnya nilainya adalah 90 maka gradenya adalah A.

uses crt;

var

nama, npm: string; nilai: integer;

begin

         clrscr;

         write (‘nama :’);

         readln (nama);

         write (‘npm :’);

         readln (npm);

         write (‘nilai :’);

         readln (nilai);

         writeln;

if nilai >= 80 then

begin

         writeln (‘Anda Mendapat Grade A ket: Sangat Memuaskan’);

         readln (nilai);

         end

         else

if nilai >= 65 then

begin

         writeln (‘Anda Mendapat Grade B ket: Memuaskan’);

         readln (nilai);

         end

         else

if nilai >= 40 then

begin

         writeln (‘Anda Mendapat Grade C ket: Cukup’);

         readln (nilai);

         end

         else

begin

         writeln (‘Anda Mendapat Grade D ket : Buruk’);

         readln (nilai);

         end;

         readln;

end.

Output yang dihasilkan adalah :

Contoh kasus lain adalah jika hanya menginput grade saja kemudian akan ditampilkan suatu informasi apakah hasil tersebut sangat baik/bagus/berusahalah..Berikut codingnya :

program Praktikumku;

uses crt;

var

nilai: char;

begin

            clrscr;

            write (‘Masukkan Nilai Praktikum Anda [A/B/C]: ‘);

            readln (nilai);

case nilai of

            ‘A’ : writeln (‘Sangat Baik’);

            ‘B’ : writeln (‘Baguus’);

            ‘C’ : writeln (‘Berusahalah..’);

else

            writeln (‘ Im Sorry GoodBye’);

            end;

            readln;

end.

Maka, output yang dihasilkan adalah :