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 comments
haduh ABAP ... nyesek ya yg 27
ReplyDeletehahahaha