Tugas LA QBasic II

PROGRAM 1
CLS
DIM a AS STRING
DIM b AS STRING
DIM c AS STRING
DIM n1, n2 AS INTEGER
PRINT "-------------------------------------------------------------"
PRINT "Program Menghitung Kelulusan Mahasiswa"
PRINT "-------------------------------------------------------------"
PRINT
INPUT "Masukan Nama Mahasiswa : ",a
INPUT "Masukan NPM Mahasiswa : ",b
INPUT "Masukan Kelas Mahasiswa : ",c
INPUT "Masukan nilai tugas pertama : ",n1
INPUT "Masukan nilai tugas kedua      : ",n2
LET lulus = (n1+n2)/2
CLS
PRINT "-------------------------------------------------------------"
PRINT "Hasil Kelulusan Mahasiswa"
PRINT "-------------------------------------------------------------"
PRINT
PRINT "Nama Mahasiswa : ";a
PRINT "NPM Mahasiswa   : ";b
PRINT "Kelas Mahasiswa   : ";c
IF lulus > 60 THEN PRINT "Anda Lulus dengan Nilai ";lulus,  
Else PRINT "Anda Tidak Lulus dengan Nilai ";lulus
END

OUTPUT :

PROGRAM 2
CLS
DIM a AS STRING
DIM b AS STRING
DIM c AS STRING
DIM n1, n2 AS INTEGER
PRINT "-------------------------------------------------------------"
PRINT "Program Menghitung Kelulusan Mahasiswa"
PRINT "-------------------------------------------------------------"
PRINT
INPUT "Masukan Nama Mahasiswa : ",a
INPUT "Masukan NPM Mahasiswa : ",b
INPUT "Masukan Kelas Mahasiswa : ",c
INPUT "Masukan nilai UTS : ",n1
INPUT "Masukan nilai UAS : ",n2
LET n1 = n1*0.7
LET n2 = n2*0.3
LET lulus = n1+n2
CLS
PRINT "-------------------------------------------------------------"
PRINT "Hasil Kelulusan Mahasiswa"
PRINT "-------------------------------------------------------------"
PRINT
PRINT "Nama Mahasiswa : ";a
PRINT "NPM Mahasiswa : ";b
PRINT "Kelas Mahasiswa : ";c
PRINT "Nilai Total : ";lulus
IF lulus > 0 AND lulus <20 THEN PRINT "Anda Tidak Lulus dengan Grade E"
IF lulus > 20 AND lulus <40 THEN PRINT "Anda Lulus dengan Grade D"
IF lulus > 40 AND lulus <60 THEN PRINT "Anda Lulus dengan Grade C"
IF lulus > 60 AND lulus <80 THEN PRINT "Anda Lulus dengan Grade B"
IF lulus > 80 AND lulus <100 THEN PRINT "Anda Lulus dengan Grade A"
END

OUTPUT :

PROGRAM 3
CLS
DIM a AS INTEGER
INPUT "Masukan Angka : ";a
COLOR 9
IF a MOD 2 = 0 THEN PRINT a;" adalah bilangan Genap", ELSE PRINT a;" adalah bilangan Ganjil"
END

OUTPUT :

PROGRAM 4
CLS
DIM a AS INTEGER
PRINT "Program Ganjil Genap"
PRINT "********************"
PRINT
INPUT "Masukkan Nilai: ", a
PRINT
IF a MOD 2 = 0 THEN PRINT a; " Adalah Bilangan Genap",  ELSE PRINT a; " Adalah Bilangan Ganjil"
END

OUTPUT :