Masukkan Sintak Berikut:
CLS
DIM NH AS STRING
PRINT
"Silahkan Input Data"
FOR i = 1 TO 5
INPUT
"NAMA : ", nama$(i)
INPUT
"NPM : ", npm$(i)
INPUT "NILAI
MITEM : ", mitem(i)
INPUT "NILAI
FINAL : ", final(i)
NEXT i
CLS
PRINT TAB(20);
"Tabel Nilai Mahasiswa"
PRINT
"-------------------------------------------------------"
PRINT TAB(1);
"No"; TAB(5); "NAMA"; TAB(20); "NPM"; TAB(30);
"Nilai Angka"; TAB(44); "Nilai Huruf";
PRINT
"-------------------------------------------------------"
FOR i = 1 TO 5
NA = (mitem(i) +
final(i)) / 2
IF NA < 57
THEN
NH = "E"
ELSEIF NA < 65
THEN
NH = "D"
ELSEIF NA < 75
THEN
NH = "C"
ELSEIF NA < 85
THEN
NH = "B"
ELSEIF NA <
100 THEN
NH = "A"
END IF
PRINT TAB(1); i;
TAB(5); nama$(i); TAB(20); npm$(i); TAB(32); NA; TAB(46); NH; TAB(50);
NEXT i
PRINT
"-------------------------------------------------------"
END
EmoticonEmoticon