API tools faq
paste
Advertisement
Gbrt

Contoh 3

Gbrt
Jan 12th, 2018
89
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Bash 5.65 KB | None | 0 0
raw download clone embed print report
  1. 0 CLS
  2. COLOR 11
  3. PRINT ""
  4. PRINT ""
  5. PRINT ""
  6. PRINT ""
  7. PRINT ""
  8. PRINT ""
  9. PRINT ""
  10. PRINT "                  ===========================================                   "
  11. PRINT "                  ||                  MENU                 ||                   "
  12. PRINT "                  ===========================================                   "
  13. PRINT "                  ||        1. MENGHITUNG RATA-RATA        ||                   "
  14. PRINT "                  ||        2. KOREKSI JAWABAN             ||                   "
  15. PRINT "                  ||        3. KELUAR                      ||                   "
  16. PRINT "                  ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^                   "
  17. INPUT "                  Masukan Pilihan Anda = ", pil
  18. IF pil = 1 THEN GOTO 1
  19. IF pil = 2 THEN GOTO 2
  20. IF pil = 3 THEN GOTO 100
  21.  
  22. 2 CLS
  23. PRINT ""
  24. PRINT ""
  25. PRINT ""
  26. PRINT ""
  27. PRINT ""
  28. PRINT ""
  29. PRINT ""
  30. PRINT ""
  31. PRINT "================================================================================"
  32. INPUT "                              Jumlah Soal        = ", soal
  33. INPUT "                              Nama Peserta       = ", t$
  34. INPUT "                              Kelas              = ", c
  35. PRINT "================================================================================"
  36. CLS
  37. PRINT ""
  38. PRINT ""
  39. PRINT ""
  40. PRINT ""
  41. PRINT ""
  42. PRINT ""
  43. PRINT ""
  44. PRINT ""
  45. FOR k = 1 TO soal
  46.     INPUT "                              Jawaban Peserta = ", J$(k)
  47. NEXT k
  48. CLS
  49. COLOR 10
  50. PRINT "               __/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX\__              "
  51. COLOR 12
  52. PRINT "            __/XXXXX        PEMERIKSAAN HASIL UJIAN         XXXXXX\__           "
  53. COLOR 10
  54. PRINT "___________/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX\__________"
  55. COLOR 14
  56. PRINT "||============================================================================||"
  57. PRINT "|| Nama     = "; t$; TAB(79); "||"
  58. PRINT "|| Kelas    = "; c; TAB(79); "||"
  59. PRINT "||============================================================================||"
  60. PRINT TAB(1); "||"; TAB(4); "No"; TAB(10); "Jawaban Peserta"; TAB(30); "Kunci Jawaban"; TAB(67); "Hasil Akhir"; TAB(79); "||"
  61. PRINT "||============================================================================||"
  62. DATA "a","b","b","b","a","c","b","d","a","d"
  63. FOR k = 1 TO soal
  64.     READ S$(k)
  65. NEXT k
  66. FOR k = 1 TO soal
  67.     IF J$(k) = S$(k) THEN
  68.         PRINT TAB(1); "||"; TAB(3); k; TAB(16); " "; J$(k); TAB(35); " "; S$(k); TAB(69); " Benar"; TAB(79); "||"
  69.     ELSE
  70.         PRINT TAB(1); "||"; TAB(3); k; TAB(16); " "; J$(k); TAB(35); " "; S$(k); TAB(69); " Salah"; TAB(79); "||"
  71.     END IF
  72. NEXT k
  73. PRINT "||============================================================================||"
  74. FOR k = 1 TO soal
  75.     IF J$(k) = S$(k) THEN
  76.         x(k) = 1
  77.         x = x + x(k)
  78.     END IF
  79. NEXT k
  80. PRINT "|| Jumlah Benar Dari Hasil Ujian Peserta Sebanyak = "; x; TAB(79); "||"
  81. PRINT "||============================================================================||"
  82. COLOR 10
  83. PRINT "\\||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||//"
  84. PRINT "  \__________________________________________________________________________/  "
  85. INPUT "                           tekan ENTER untuk ke MENU                            ", m
  86. GOTO 0
  87. END
  88.  
  89. 1 CLS
  90. PRINT ""
  91. PRINT ""
  92. PRINT ""
  93. PRINT ""
  94. PRINT ""
  95. PRINT ""
  96. PRINT ""
  97. INPUT "                                Banyak Murid = ", v
  98. FOR i = 1 TO v
  99.     CLS
  100.     PRINT ""
  101.     PRINT ""
  102.     PRINT ""
  103.     PRINT ""
  104.     PRINT ""
  105.     PRINT ""
  106.     PRINT ""
  107.     PRINT "=================================== DATA "; i; "===================================="
  108.     INPUT "                                Nama   = ", nama$(i)
  109.     INPUT "                                kelas  = ", kelas$(i)
  110.     INPUT "                                NIS    = ", nis(i)
  111.     INPUT "                                Nilai  = ", xy(i)
  112. NEXT i
  113. CLS
  114. COLOR 10
  115. PRINT "               __/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX\__              "
  116. COLOR 11
  117. PRINT "            __/XXXXX         NILAI RATA - RATA SISWA        XXXXXX\__           "
  118. COLOR 10
  119. PRINT " __________/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX\_________ "
  120. PRINT "//||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||\\"
  121. COLOR 14
  122. PRINT "||============================================================================||"
  123. PRINT TAB(1); "||"; TAB(5); "Nama Siswa"; TAB(20); "Kelas"; TAB(31); "NIS"; TAB(43); "Nilai"; TAB(55); "Tingkat Prestasi"; TAB(79); "||"
  124. PRINT "||============================================================================||"
  125. LET total = 0
  126.  
  127. FOR i = 1 TO v
  128.    LET total = total + xy(i)
  129. NEXT i
  130. LET rata = total / v
  131. FOR i = 1 TO v
  132.  
  133.    IF (xy(i) > rata) THEN P$ = "Diatas Rata-Rata"
  134.    IF (xy(i) < rata) THEN P$ = "Dibawah Rata-Rata"
  135.    IF (xy(i) = rata) THEN P$ = "Sama Dengan Rata-Rata"
  136.    PRINT TAB(1); "||"; TAB(5); nama$(i); TAB(22); kelas$(i); TAB(30); nis(i); TAB(43); xy(i); TAB(55); P$; TAB(79); "||"
  137. NEXT i
  138. PRINT "||============================================================================||"
  139. PRINT TAB(1); "||"; TAB(5); "Rata - Rata ="; TAB(43); rata; TAB(79); "||"
  140. PRINT "||============================================================================||"
  141. COLOR 10
  142. PRINT "\\____________________________________________________________________________//"
  143. INPUT "                           tekan ENTER untuk ke MENU                            ", m
  144. GOTO 0
  145. END
  146.  
  147. 100 CLS
  148. PRINT ""
  149. PRINT ""
  150. PRINT ""
  151. PRINT ""
  152. PRINT ""
  153. PRINT ""
  154. PRINT ""
  155. PRINT ""
  156. PRINT ""
  157. PRINT ""
  158. PRINT ""
  159. COLOR 11
  160. PRINT "====================================THANK YOU==================================="
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
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!