-: TUGAS ALGORITMA DAN PEMROGRAMAN 4 (BU ITO)

QBASIC

MATERI : KOREKSI

1. KODINGAN:

CLS
COLOR 27
PRINT "________________________________________________________________________________"
COLOR 11
PRINT ""
PRINT " SELAMAT DATANG DI LAB MAHASISWA UJIAN PRAKTIK KIMIA DASAR"
COLOR 27
PRINT "________________________________________________________________________________"
PRINT ""
COLOR 15
PRINT ""
PRINT " SILAHKAN ISI IDENTITAS TERLEBIH DAHULU"
PRINT ""
INPUT " NAMA MAHASISWA : ", N$
INPUT " NPM : ", NPM
INPUT " KELAS : ", K$
PRINT ""
PRINT ""
CLS
COLOR 15
PRINT ""
PRINT " MENENTUKAN WARNA CAIRAN SUATU BAHAN"
PRINT ""
COLOR 14
PRINT " SOAL : "
PRINT ""
PRINT " 1. WARNA PADA SABUN MANDI (MERAH ATAU BIRU)"
PRINT " 2. WARNA PADA AIR CUKA (MERAH ATAU BIRU)"
PRINT " 3. WARNA PADA COCA-COLA (MERAH ATAU BIRU)"
PRINT " 4. WARNA PADA OBAT NYERI LAMBUNG (MERAH ATAU BIRU)"
PRINT " 5. WARNA PADA AIR HUJAN (MERAH ATAU BIRU)"
PRINT ""
COLOR 12
FOR Z = 1 TO 5
PRINT " JAWABAN NOMOR"; Z
INPUT " ISI DISINI : ", J$(Z)
NEXT Z
CLS

CLS
COLOR 14
PRINT ""
PRINT " HASIL UJIAN PRAKTIK KIMIA DASAR"
COLOR 15
PRINT ""
PRINT " NAMA MAHASISWA : "; N$
PRINT " NPM : "; NPM
PRINT " KELAS : "; K$

S = 0

COLOR 5
PRINT " _______________________________________________________________"
PRINT "|"; TAB(3); "NO"; TAB(6); "|"; TAB(9); "KUNCI JAWABAN"; TAB(24); "|"; TAB(28); "JAWABAN MAHASISWA"; TAB(48); "|"; TAB(52); "KETERANGAN"; TAB(65); "|"
PRINT " _______________________________________________________________"

IF J$(1) = "BIRU" THEN
PRINT "|"; TAB(3); "1"; TAB(6); "|"; TAB(12); "BIRU"; TAB(24); "|"; TAB(34); J$(1); TAB(48); "|"; TAB(55); "BENAR"; TAB(65); "|"
S(1) = 1
PRINT " _______________________________________________________________"
ELSE
PRINT "|"; TAB(3); "1"; TAB(6); "|"; TAB(12); "BIRU"; TAB(24); "|"; TAB(34); J$(1); TAB(48); "|"; TAB(55); "SALAH"; TAB(65); "|"
S(1) = 0
PRINT " _______________________________________________________________"
END IF

IF J$(2) = "MERAH" THEN
PRINT "|"; TAB(3); "2"; TAB(6); "|"; TAB(12); "MERAH"; TAB(24); "|"; TAB(34); J$(2); TAB(48); "|"; TAB(55); "BENAR"; TAB(65); "|"
S(2) = 1
PRINT " _______________________________________________________________"
ELSE
PRINT "|"; TAB(3); "2"; TAB(6); "|"; TAB(12); "MERAH"; TAB(24); "|"; TAB(34); J$(2); TAB(48); "|"; TAB(55); "SALAH"; TAB(65); "|"
S(2) = 0
PRINT " _______________________________________________________________"
END IF

IF J$(3) = "MERAH" THEN
PRINT "|"; TAB(3); "3"; TAB(6); "|"; TAB(12); "MERAH"; TAB(24); "|"; TAB(34); J$(3); TAB(48); "|"; TAB(55); "BENAR"; TAB(65); "|"
S(3) = 1
PRINT " _______________________________________________________________"
ELSE
PRINT "|"; TAB(3); "3"; TAB(6); "|"; TAB(12); "MERAH"; TAB(24); "|"; TAB(34); J$(3); TAB(48); "|"; TAB(55); "SALAH"; TAB(65); "|"
S(3) = 0
PRINT " _______________________________________________________________"
END IF

IF J$(4) = "BIRU" THEN
PRINT "|"; TAB(3); "4"; TAB(6); "|"; TAB(12); "BIRU"; TAB(24); "|"; TAB(34); J$(4); TAB(48); "|"; TAB(55); "BENAR"; TAB(65); "|"
S(4) = 1
PRINT " _______________________________________________________________"
ELSE
PRINT "|"; TAB(3); "4"; TAB(6); "|"; TAB(12); "BIRU"; TAB(24); "|"; TAB(34); J$(4); TAB(48); "|"; TAB(55); "SALAH"; TAB(65); "|"
S(4) = 0
PRINT " _______________________________________________________________"
END IF

IF J$(5) = "MERAH" THEN
PRINT "|"; TAB(3); "5"; TAB(6); "|"; TAB(12); "MERAH"; TAB(24); "|"; TAB(34); J$(5); TAB(48); "|"; TAB(55); "BENAR"; TAB(65); "|"
S(5) = 1
PRINT " _______________________________________________________________"
ELSE
PRINT "|"; TAB(3); "5"; TAB(6); "|"; TAB(12); "MERAH"; TAB(24); "|"; TAB(34); J$(5); TAB(48); "|"; TAB(55); "SALAH"; TAB(65); "|"
S(5) = 0
PRINT " _______________________________________________________________"
END IF

COLOR 15
PRINT ""
B = S(1) + S(2) + S(3) + S(4) + S(5)
PRINT "JAWABAN BENAR : "; B
NILAI = (S(1) + S(2) + S(3) + S(4) + S(5)) * 20
PRINT ""
PRINT "NILAI "; N$; " ADALAH "; NILAI
END

2. OUTPUT PROGRAM

Cari menu RUN lalu pilih START atau langsung tekan F5 pada keyboard untuk menampilkan output program.

Setelah itu akan muncul tampilan seperti di bawah ini