daily pastebin goal
82%
SHARE
TWEET

Contoh 3

Gbrt Jan 12th, 2018 57 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  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==================================="
RAW Paste Data
Top