CLS
DIM p AS STRING
DIM q AS STRING
DIM r AS STRING
DIM UTS, UAS AS INTEGER
PRINT , , "PROGRAM STATUS KELULUSAN MAHASISWA"
PRINT , , "**********************************"
INPUT "Masukkan Nama Lengkap :", p
INPUT "Masukkan Kelas :", q
INPUT "Masukkan NPM :", r
INPUT "Masukkan Nilai UTS :", UTS
INPUT "Masukkan Nilai UAS :", UAS
PRINT "***************************************"
PRINT "Nama Mahasiswa :", p
PRINT "Kelas :", q
PRINT "NPM :", r
UTS = .7 * UTS
UAS = .3 * UAS
nt = UTS + UAS
PRINT "Nilai Total :", nt
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
0 komentar:
Posting Komentar