Program Pascal, C, C++ Untuk Mencari Nilai Huruf

Berikut program pascal untuk mencari nilai huruf dari nilai akhir yang di inputkan.





Bila di ketahui kasus seperti ini :

Nilai	Nilai Huruf
80 .. 100	A
70 .. 79	B
60 .. 69	C
50 .. 59	D
0 .. 49	E

Berikut penyelesaian dari kasus diatas :
Menggunakan Program C++

#include "iostream.h"
void main(){
     int nilai ;
     char  nhuruf ;

     cout << "Menghitung Nilai Akhir \n---------------------------\n" ;
     cout << "Input Nilai Semester  : " ; cin >>nilai ;

     if (nilai>=80 && nilai<=100)
        nhuruf = 'A' ;
     else if (nilai>=70 && nilai<=79)
        nhuruf = 'B' ;
     else if (nilai>=60 && nilai<=69)
        nhuruf = 'C' ;
     else if (nilai>=50 && nilai<=59)
        nhuruf = 'D' ;
     else if (nilai>=0 && nilai<=49)
        nhuruf = 'E' ;
     else
        nhuruf = '-' ;

     cout << "Ouput Keterangan : " << nhuruf ;
}

Menggunakan Program C

#include "stdio.h"
void main(){
     int nilai ;
     char  nhuruf ;

     printf("Menghitung Nilai Akhir \n---------------------------\n") ;
     printf("Input Nilai Semester  : ") ;
     scanf("%i",&nilai) ;

     if (nilai>=80 && nilai<=100)
        nhuruf = 'A' ;
     else if (nilai>=70 && nilai<=79)
        nhuruf = 'B' ;
     else if (nilai>=60 && nilai<=69)
        nhuruf = 'C' ;
     else if (nilai>=50 && nilai<=59)
        nhuruf = 'D' ;
     else if (nilai>=0 && nilai<=49)
        nhuruf = 'E' ;
     else
        nhuruf = '-' ;

     printf("Ouput Keterangan : %c ", nhuruf) ;
}


Menggunakan Program PASCAL
uses crt ;
var
   nilai : byte ;
   nhuruf: char ;
begin
     clrscr ;
     writeln ('Menghitung Nilai Akhir');
     writeln ('---------------------------');
     write   ('Nilai Semester : '); readln(nilai) ;
     if (nilai>=80) and (nilai<=100) then
        nhuruf := 'A'
     else if (nilai>=70) and (nilai<=79) then
        nhuruf := 'B'
     else if (nilai>=60) and (nilai<=69) then
        nhuruf := 'C'
     else if (nilai>=50) and (nilai<=59) then
        nhuruf := 'D'
     else if (nilai>=0) and (nilai<=49) then
        nhuruf := 'E'
     else
        nhuruf := '-';

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


Demikianlah program Pascal, C dan C++ untuk mencari nilai huruf.