Q BASIC

Membuat Program Status Kelulusan Dengan Grade

CLS
DIM p AS STRING
DIM q AS STRING
DIM r AS STRING
DIM UTS, UAS AS INTEGER
PRINT , , "PROGRAM STATUS KELULUSAN MAHASISWA"
PRINT
PRINT , , "**********************************"
PRINT
INPUT "Masukkan Nama Lengkap   :", p
INPUT "Masukkan Kelas          :", q
INPUT "Masukkan NPM            :", r
PRINT
INPUT "Masukkan Nilai UTS :", UTS
INPUT "Masukkan Nilai UAS :", UAS
PRINT
PRINT "***************************************"
PRINT "Nama Mahasiswa :", p
PRINT "Kelas          :", q
PRINT "NPM            :", r
PRINT
UTS = .7 * UTS
UAS = .3 * UAS
nt = UTS + UAS
PRINT "Nilai Total    :", nt
PRINT
IF nt >= 0 AND nt <= 20 THEN PRINT "Maaf Anda Gagal Dengan GRADE E"
IF nt >= 21 AND nt <= 40 THEN PRINT "Anda Lulus Dengan GRADE D"
IF nt >= 41 AND nt <= 60 THEN PRINT "Anda Lulus Dengan Grade C"
IF nt >= 61 AND nt <= 80 THEN PRINT "Anda Lulus Dengan Grade B"
IF nt >= 81 AND nt <= 100 THEN PRINT "Anda Lulus Dengan Grade A"
END