Program Mencari Nilai Huruf Menggunakan Turbo Pascal

Ketentuan:
>80 dan <100 nilai hurufnya = A
>70 dan <79 nilai hurufnya = B
>60 dan <69 nilai hurufnya = C
>50 dan <59 nilai hurufnya = D
>0 dan <49 nilai hurufnya = E
Selain dari itu maka "Anda bodoh sekali!"

uses crt;
var
   nilai: integer;
   huruf: string;

begin
     clrscr;
     writeln('Program Mencari Nilai Huruf');
     writeln('---------------------------');
     write('Input  Nilai: '); readln(nilai);
     if (nilai >= 80) and (nilai <= 100) then
        huruf := 'A' else
     if (nilai >= 70) and (nilai <= 79) then
        huruf := 'B' else
     if (nilai >= 60) and (nilai <= 69) then
        huruf := 'C' else
     if (nilai >= 50) and (nilai <= 59) then
        huruf := 'D' else
     if (nilai >= 0) and (nilai <= 49) then
        huruf := 'E' else
        huruf := 'Anda bodoh sekali!';

     writeln('Nilai Huruf: ',huruf);
     readln;
end.

Hasilnya sebagai berikut.

Tweet