ABAP - Program Kelulusan

tampilan inputan

REPORT  ZPROGRAMUNTUKKELULUSAN.

PARAMETERS:
NAD 
TYPE p DECIMALS 1,
NAM 
TYPE p DECIMALS 1,
NAMR 
TYPE p DECIMALS 1.

DATA:
      
NA TYPE p DECIMALS 2,
      Grade 
TYPE STRING,
      Kriteria 
TYPE STRING.

NA = ( NAD + NAM + NAMR ) / 3.


IF ( NA >= 75 AND  NA <= 100 ).
  Grade = 
'A'.
  Kriteria = 
'Lulus'.

ELSEIF ( NA >= 65 AND NA < 75 ).
  Grade = 
'B'.
  Kriteria = 
'Baik'.

ELSEIF ( NA >= 60 AND NA < 65 ).
  Grade =  
'C'.
  Kriteria = 
'Cukup'.

ELSEIF ( NA >= 50 AND NA < 60 ).
  Grade = 
'D'.
  Kriteria = 
'Kurang'.

ELSEIF ( NA < 50 ).
  Grade = 
'E'.
  Kriteria = 
'Kurang Sekali'.

ELSE.
  Grade = 
'-'.
  Kriteria = 
'melebihi batas !'.

ENDIF.

*CASE Grade.
*  WHEN 'A'.
*    Kriteria = 'Lulus'.
*  WHEN 'B'.
*    Kriteria = 'Baik'.
*  WHEN 'C'.
*    Kriteria = 'Cukup'.
*  WHEN 'D'.
*    Kriteria = 'Kurang'.
*  WHEN 'E'.
*    Kriteria = 'Kurang Sekali'.
*  WHEN OTHERS.
*    Kriteria = 'melebihi batas !'.
*ENDCASE.

WRITE: / 'Nilai Akhir 'NA.
WRITE: / 'Grade       ', Grade.
WRITE: / 'Kriteria    ', Kriteria.


tanda * = komentar

tampilan hasil

1 comment: