Algoritma dan Pemrograman 1 BASIC Topic 2 soal 2

REM Program Grade Ujian Mahasiswa
DIM gradeujian AS STRING 'Deklarasi variabel gradeUjian"

REM Melakukan INPUT variabel gradeUjian
INPUT "masukan nilai : "; gradeujian

PRINT "Grade Anda adalah "; gradeUjian

SELECT CASE gradeujian 'Nilai pada variabel gradeUjian akan dicocokkan dengan ekspresi pada case'
CASE "A" 'Kondisi case jika gradeUjian = A'
PRINT "Nilai Anda sangat bagus" 'Mencetak pesan "Nilai Anda sangat bagus" jika case sama dengan nilai variabel gradeUjian = A'
CASE "B" 'Kondisi case jika gradeUjian = B'
PRINT "Nilai Anda cukup bagus" 'Mencetak pesan "Nilai Anda cukup bagus" jika case sama dengan nilai variabel gradeUjian = B'
CASE "C" 'Kondisi case jika gradeUjian = C'
PRINT "Nilai Anda kurang memuaskan" 'Mencetak pesan "Nilai Anda kurang memuaskan" jika case sama dengan nilai variabel gradeUjian = C'
CASE "D" 'Kondisi case jika gradeUjian = D'
PRINT "Anda harus mengulang di semester depan" 'Mencetak pesan "Anda harus mengulang di semester depan" jika case sama dengan nilai variabel gradeUjian = D'
CASE ELSE
PRINT "Pastikan grade yang anda masukkan adalah A, B, C, dan D" 'Mencetak pesan "Pastikan grade yang Anda masukkan adalah A, B, C, dan D" jika tidak ada ekspresi pada case yang sama dengan nilai pada variabel'
END SELECT