Program Mencari Nilai Huruf

Contoh Program Sederhana Penggunaan Bahasa Pascal, C, dan C++


Bahasa Pascal

Uses Crt;
Var
   Na :byte;
   Nh :char;

Begin
     Clrscr;
     Writeln('Mencari Nilai Huruf');
     Writeln('-------------------------');

     Write  ('Inputkan Nilai Angka:'); Readln(na);
     Case na of
          80..100  :Nh:='A';
          70..79   :Nh:='B';
          60..69   :Nh:='C';
          50..59   :Nh:='D';
          0..49    :Nh:='E';
     End;
     Writeln('Nilai Huruf :', Nh);
     Readln;
End.

Hasil Output

Bahasa C


#include"conio.h"
#include"stdio.h"

main()
{
    int na;
    char nh;
    clrscr();
    printf("Mencari Nilai Huruf \n----\n");
    printf("Inputkan Nilai Angka :");
    scanf("%d",&na);
    if(na>=80 && na<=100)
        nh='A';
    else if(na>=70 && na<=79)
        nh='B';
    else if(na>=60 && na<=69)
        nh='C';
    else if(na>=50 && na<=59)
        nh='D';
    else if(na>=0 && na<=49)
        nh='E';
    printf("Nilai Huruf:%c",nh);
}

Bahasa 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 ;
}

Selamat Mencoba....