Kodingan Tugas Algoritma 4

CLS
COLOR 30
PRINT "________________________________________________________________________________"
COLOR 14
PRINT ""
PRINT "UNIVERSITAS UNGGULAN SEDANG MENCARI NILAI RATA-RATA MAHASISWA UNTUK LULUS UJIAN "
COLOR 30
PRINT "________________________________________________________________________________"
PRINT ""
COLOR 11
PRINT "     =============== SYARAT UNTUK LULUS DI UNIVERSITAS UNGGULAN ================       "
COLOR 30
PRINT "________________________________________________________________________________"
PRINT ""
COLOR 12
PRINT ""
PRINT " 1. NILAI A APABILA MAHASISWA TERSEBUT MENDAPAT NILAI > 80  "
PRINT " 2. NILAI B APABILA MAHASISWA TERSEBUT MENDAPAT NILAI >= 60 "
PRINT " 3. NILAI C APABILA MAHASISWA TERSEBUT MENDAPAT NILAI < 60  "
COLOR 30
PRINT "________________________________________________________________________________"

PRINT ""
COLOR 14
DIM H AS STRING
INPUT "   JUMLAH DATA MAHASISWA : ", N

CLS
COLOR 11
FOR Z = 1 TO N
    PRINT ""
    PRINT "                        MASUKKAN DATA MAHASISWA"
    PRINT ""
    INPUT "     NAMA SISWA              : ", N$(Z)
    INPUT "     NILAI MATEMATIKA        : ", A(Z)
    INPUT "     NILAI BAHASA INDONESIA  : ", B(Z)
    INPUT "     NILAI BAHASA INGGRIS    : ", C(Z)
NEXT Z

CLS
PRINT ""
COLOR 9
PRINT "                               HASIL PENILAIAN                                  "
COLOR 30
PRINT "________________________________________________________________________________"
COLOR 12
PRINT TAB(2); "NO"; TAB(5); "|"; TAB(7); "MAHASISWA"; TAB(19); "|"; TAB(21); "MATEMATIKA"; TAB(31); "|"; TAB(33); "B.IND"; TAB(44); "|"; TAB(46); "B.ING"; TAB(55); "|"; TAB(57); "RATA-RATA"; TAB(67); "|"; TAB(69); "NILAI"
COLOR 30
PRINT "________________________________________________________________________________"
FOR Z = 1 TO N
    T = A(Z) + B(Z) + C(Z)
    R = T / 3
    IF R < 60 THEN H = "C"
    IF R >= 60 THEN H = "B"
    IF R > 80 THEN H = "A"
    COLOR 12
    PRINT TAB(2); Z; TAB(5); "|"; TAB(7); N$(Z); TAB(19); "|"; TAB(24); A(Z); TAB(31); "|"; TAB(36); B(Z); TAB(44); "|"; TAB(48); C(Z); TAB(55); "|"; TAB(57); R; TAB(67); "|"; TAB(73); H
    COLOR 30
    PRINT "________________________________________________________________________________"
NEXT Z
PRINT ""
COLOR 10
PRINT "    KESIMPULAN :"
PRINT ""
FOR Z = 1 TO N
    T = A(Z) + B(Z) + C(Z)
    R = T / 3
    IF R >= 75 THEN
        COLOR 15
        PRINT "    MAHASISWA ATAS NAMA : "; N$(Z); " LULUS DALAM UJIAN "
        PRINT ""
    ELSE
        COLOR 15
        PRINT "    MAHASISWA ATAS NAMA : "; N$(Z); " TIDAK LULUS DALAM UJIAN "
        PRINT ""
    END IF
NEXT Z

END