API tools faq
paste
Guest User

Kodingan Tugas Algoritma 3

a guest
Jan 5th, 2018
105
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 4.83 KB | None | 0 0
raw download clone embed print report
  1. CLS
  2. COLOR 30
  3. PRINT "________________________________________________________________________________"
  4. COLOR 14
  5. PRINT ""
  6. PRINT " SELAMAT DATANG DI LAB MAHASISWA UJIAN PRAKTIK KIMIA ASAM-BASA"
  7. COLOR 30
  8. PRINT "________________________________________________________________________________"
  9. PRINT ""
  10. COLOR 12
  11. PRINT " =============== PERATURAN MENGIKUTI UJIAN PRAKTIK KIMIA ================ "
  12. COLOR 30
  13. PRINT "________________________________________________________________________________"
  14. COLOR 9
  15. PRINT ""
  16. PRINT " 1. MAHASISWA DIHARAPKAN MELAKUKAN UJIAN DENGAN TERTIB "
  17. PRINT " 2. MAHASISWA DIWAJIBKAN MEMAKAI PAKAIAN DENGAN SOPAN DAN RAPIH "
  18. PRINT " 3. MAHASISWA DIHARAPKAN MENJAWAB SEMUA SOAL PRAKTIK DENGAN BENAR "
  19. COLOR 30
  20. PRINT "________________________________________________________________________________"
  21. COLOR 15
  22. PRINT ""
  23. PRINT " SILAHKAN ISI IDENTITAS TERLEBIH DAHULU"
  24. PRINT ""
  25. INPUT " NAMA MAHASISWA : ", N$
  26. INPUT " NPM : ", NPM$
  27. INPUT " KELAS : ", K$
  28. PRINT ""
  29. PRINT ""
  30. CLS
  31. COLOR 12
  32. PRINT ""
  33. PRINT " MENENTUKAN LARUTAN ASAM-BASA TERMASUK KE DALAM"
  34. PRINT " ASAM-BASA KUAT ATAU ASAM-BASA LEMAH"
  35. PRINT ""
  36. COLOR 10
  37. PRINT " SOAL : "
  38. PRINT ""
  39. PRINT " 1. LARUTAN NATRIUM HIDROKSIDA/NaOH (LEMAH ATAU KUAT)"
  40. PRINT " 2. LARUTAN ASAM SULFAT/H2SO4 (LEMAH ATAU KUAT)"
  41. PRINT " 3. LARUTAN ASAM ASETAT/CH3COOH (LEMAH ATAU KUAT)"
  42. PRINT " 4. LARUTAN GLUKOSA/C6H206 (LEMAH ATAU KUAT)"
  43. PRINT " 5. LARUTAN KALIUM HIDROKSIDA/KOH (LEMAH ATAU KUAT)"
  44. PRINT ""
  45. COLOR 14
  46. FOR Z = 1 TO 5
  47. PRINT " JAWABAN NOMOR"; Z
  48. INPUT " ISI DISINI : ", J$(Z)
  49. NEXT Z
  50. CLS
  51.  
  52. CLS
  53. COLOR 12
  54. PRINT ""
  55. PRINT " HASIL UJIAN PRAKTIK KIMIA DASAR"
  56. COLOR 15
  57. PRINT ""
  58. PRINT " NAMA MAHASISWA : "; N$
  59. PRINT " NPM : "; NPM$
  60. PRINT " KELAS : "; K$
  61.  
  62. S = 0
  63.  
  64. COLOR 11
  65. PRINT " _______________________________________________________________"
  66. PRINT "|"; TAB(3); "NO"; TAB(6); "|"; TAB(9); "KUNCI JAWABAN"; TAB(24); "|"; TAB(28); "JAWABAN MAHASISWA"; TAB(48); "|"; TAB(52); "KETERANGAN"; TAB(65); "|"
  67. PRINT " _______________________________________________________________"
  68.  
  69. IF A$(1) = "KUAT" THEN
  70. PRINT "|"; TAB(3); "1"; TAB(6); "|"; TAB(12); "KUAT"; TAB(24); "|"; TAB(34); J$(1); TAB(48); "|"; TAB(55); "BENAR"; TAB(65); "|"
  71. S(1) = 1
  72. PRINT " _______________________________________________________________"
  73. ELSE
  74. PRINT "|"; TAB(3); "1"; TAB(6); "|"; TAB(12); "KUAT"; TAB(24); "|"; TAB(34); J$(1); TAB(48); "|"; TAB(55); "SALAH"; TAB(65); "|"
  75. S(1) = 0
  76. PRINT " _______________________________________________________________"
  77. END IF
  78.  
  79. IF A$(2) = "KUAT" THEN
  80. PRINT "|"; TAB(3); "2"; TAB(6); "|"; TAB(12); "KUAT"; TAB(24); "|"; TAB(34); J$(2); TAB(48); "|"; TAB(55); "BENAR"; TAB(65); "|"
  81. S(2) = 1
  82. PRINT " _______________________________________________________________"
  83. ELSE
  84. PRINT "|"; TAB(3); "2"; TAB(6); "|"; TAB(12); "KUAT"; TAB(24); "|"; TAB(34); J$(2); TAB(48); "|"; TAB(55); "SALAH"; TAB(65); "|"
  85. S(2) = 0
  86. PRINT " _______________________________________________________________"
  87. END IF
  88.  
  89. IF A$(3) = "LEMAH" THEN
  90. PRINT "|"; TAB(3); "3"; TAB(6); "|"; TAB(12); "LEMAH"; TAB(24); "|"; TAB(34); J$(3); TAB(48); "|"; TAB(55); "BENAR"; TAB(65); "|"
  91. S(3) = 1
  92. PRINT " _______________________________________________________________"
  93. ELSE
  94. PRINT "|"; TAB(3); "3"; TAB(6); "|"; TAB(12); "LEMAH"; TAB(24); "|"; TAB(34); J$(3); TAB(48); "|"; TAB(55); "SALAH"; TAB(65); "|"
  95. S(3) = 0
  96. PRINT " _______________________________________________________________"
  97. END IF
  98.  
  99. IF A$(4) = "LEMAH" THEN
  100. PRINT "|"; TAB(3); "4"; TAB(6); "|"; TAB(12); "LEMAH"; TAB(24); "|"; TAB(34); J$(4); TAB(48); "|"; TAB(55); "BENAR"; TAB(65); "|"
  101. S(4) = 1
  102. PRINT " _______________________________________________________________"
  103. ELSE
  104. PRINT "|"; TAB(3); "4"; TAB(6); "|"; TAB(12); "LEMAH"; TAB(24); "|"; TAB(34); J$(4); TAB(48); "|"; TAB(55); "SALAH"; TAB(65); "|"
  105. S(4) = 0
  106. PRINT " _______________________________________________________________"
  107. END IF
  108.  
  109. IF A$(5) = "KUAT" THEN
  110. PRINT "|"; TAB(3); "5"; TAB(6); "|"; TAB(12); "KUAT"; TAB(24); "|"; TAB(34); J$(5); TAB(48); "|"; TAB(55); "BENAR"; TAB(65); "|"
  111. S(5) = 1
  112. PRINT " _______________________________________________________________"
  113. ELSE
  114. PRINT "|"; TAB(3); "5"; TAB(6); "|"; TAB(12); "KUAT"; TAB(24); "|"; TAB(34); J$(5); TAB(48); "|"; TAB(55); "SALAH"; TAB(65); "|"
  115. S(5) = 0
  116. PRINT " _______________________________________________________________"
  117. END IF
  118.  
  119. COLOR 15
  120. PRINT ""
  121. B = S(1) + S(2) + S(3) + S(4) + S(5)
  122. PRINT "JAWABAN BENAR : "; B
  123. NILAI = (S(1) + S(2) + S(3) + S(4) + S(5)) * 20
  124. PRINT ""
  125. PRINT "NILAI "; N$; " ADALAH "; NILAI
  126. END
Advertisement
Add Comment
Please, Sign In to add comment
Public Pastes
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!