Penggunaan Fungsi Untuk Mencari Nilai Huruf Pada Pascal

Berikut merupakan latihan minggu ini. Program di bawah ini untuk penggunaan fungsi untuk mencari nilai huruf pada pascal.

Berikut programnya :

USES CRT ;
VAR NILAI : BYTE ;

    FUNCTION NHURUF(N: BYTE): String ;
    VAR
       HASIL : STRING ;
    BEGIN
         Case N Of
              80..100: Hasil :='A' ;
              70..79 : Hasil :='B' ;
              60..69 : Hasil :='C' ;
              50..59 : Hasil :='D' ;
              0..49  : Hasil :='E' ;
         End ;
         NHURUF := HASIL ;
    END;

BEGIN
     Writeln ('Penggunaan Fungsi Untuk Mencari Nilai Huruf');
     Write ('Input Nilai Angka : ') ; Readln (Nilai) ;
     Writeln ('Nilai Huruf : ', NHURUF(Nilai)) ;
     Readln;
END.

Hasil Program seperti berikut ini :

Latihan :
1. Tambahkan 1 fungsi lagi untuk mencari keterangan LULUS / GAGAL dengan ketentuan : Nilai Huruf A-D = LULUS, nilai huruf E = GAGAL


2. Rubah program di atas kedalam bentuk bahasa C / C++