Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 0 CLS
- COLOR 11
- PRINT ""
- PRINT ""
- PRINT ""
- PRINT ""
- PRINT ""
- PRINT ""
- PRINT ""
- PRINT " =========================================== "
- PRINT " || MENU || "
- PRINT " =========================================== "
- PRINT " || 1. MENGHITUNG RATA-RATA || "
- PRINT " || 2. KOREKSI JAWABAN || "
- PRINT " || 3. KELUAR || "
- PRINT " ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ "
- INPUT " Masukan Pilihan Anda = ", pil
- IF pil = 1 THEN GOTO 1
- IF pil = 2 THEN GOTO 2
- IF pil = 3 THEN GOTO 100
- 2 CLS
- PRINT ""
- PRINT ""
- PRINT ""
- PRINT ""
- PRINT ""
- PRINT ""
- PRINT ""
- PRINT ""
- PRINT "================================================================================"
- INPUT " Jumlah Soal = ", soal
- INPUT " Nama Peserta = ", t$
- INPUT " Kelas = ", c
- PRINT "================================================================================"
- CLS
- PRINT ""
- PRINT ""
- PRINT ""
- PRINT ""
- PRINT ""
- PRINT ""
- PRINT ""
- PRINT ""
- FOR k = 1 TO soal
- INPUT " Jawaban Peserta = ", J$(k)
- NEXT k
- CLS
- COLOR 10
- PRINT " __/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX\__ "
- COLOR 12
- PRINT " __/XXXXX PEMERIKSAAN HASIL UJIAN XXXXXX\__ "
- COLOR 10
- PRINT "___________/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX\__________"
- COLOR 14
- PRINT "||============================================================================||"
- PRINT "|| Nama = "; t$; TAB(79); "||"
- PRINT "|| Kelas = "; c; TAB(79); "||"
- PRINT "||============================================================================||"
- PRINT TAB(1); "||"; TAB(4); "No"; TAB(10); "Jawaban Peserta"; TAB(30); "Kunci Jawaban"; TAB(67); "Hasil Akhir"; TAB(79); "||"
- PRINT "||============================================================================||"
- DATA "a","b","b","b","a","c","b","d","a","d"
- FOR k = 1 TO soal
- READ S$(k)
- NEXT k
- FOR k = 1 TO soal
- IF J$(k) = S$(k) THEN
- PRINT TAB(1); "||"; TAB(3); k; TAB(16); " "; J$(k); TAB(35); " "; S$(k); TAB(69); " Benar"; TAB(79); "||"
- ELSE
- PRINT TAB(1); "||"; TAB(3); k; TAB(16); " "; J$(k); TAB(35); " "; S$(k); TAB(69); " Salah"; TAB(79); "||"
- END IF
- NEXT k
- PRINT "||============================================================================||"
- FOR k = 1 TO soal
- IF J$(k) = S$(k) THEN
- x(k) = 1
- x = x + x(k)
- END IF
- NEXT k
- PRINT "|| Jumlah Benar Dari Hasil Ujian Peserta Sebanyak = "; x; TAB(79); "||"
- PRINT "||============================================================================||"
- COLOR 10
- PRINT "\\||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||//"
- PRINT " \__________________________________________________________________________/ "
- INPUT " tekan ENTER untuk ke MENU ", m
- GOTO 0
- END
- 1 CLS
- PRINT ""
- PRINT ""
- PRINT ""
- PRINT ""
- PRINT ""
- PRINT ""
- PRINT ""
- INPUT " Banyak Murid = ", v
- FOR i = 1 TO v
- CLS
- PRINT ""
- PRINT ""
- PRINT ""
- PRINT ""
- PRINT ""
- PRINT ""
- PRINT ""
- PRINT "=================================== DATA "; i; "===================================="
- INPUT " Nama = ", nama$(i)
- INPUT " kelas = ", kelas$(i)
- INPUT " NIS = ", nis(i)
- INPUT " Nilai = ", xy(i)
- NEXT i
- CLS
- COLOR 10
- PRINT " __/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX\__ "
- COLOR 11
- PRINT " __/XXXXX NILAI RATA - RATA SISWA XXXXXX\__ "
- COLOR 10
- PRINT " __________/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX\_________ "
- PRINT "//||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||\\"
- COLOR 14
- PRINT "||============================================================================||"
- PRINT TAB(1); "||"; TAB(5); "Nama Siswa"; TAB(20); "Kelas"; TAB(31); "NIS"; TAB(43); "Nilai"; TAB(55); "Tingkat Prestasi"; TAB(79); "||"
- PRINT "||============================================================================||"
- LET total = 0
- FOR i = 1 TO v
- LET total = total + xy(i)
- NEXT i
- LET rata = total / v
- FOR i = 1 TO v
- IF (xy(i) > rata) THEN P$ = "Diatas Rata-Rata"
- IF (xy(i) < rata) THEN P$ = "Dibawah Rata-Rata"
- IF (xy(i) = rata) THEN P$ = "Sama Dengan Rata-Rata"
- PRINT TAB(1); "||"; TAB(5); nama$(i); TAB(22); kelas$(i); TAB(30); nis(i); TAB(43); xy(i); TAB(55); P$; TAB(79); "||"
- NEXT i
- PRINT "||============================================================================||"
- PRINT TAB(1); "||"; TAB(5); "Rata - Rata ="; TAB(43); rata; TAB(79); "||"
- PRINT "||============================================================================||"
- COLOR 10
- PRINT "\\____________________________________________________________________________//"
- INPUT " tekan ENTER untuk ke MENU ", m
- GOTO 0
- END
- 100 CLS
- PRINT ""
- PRINT ""
- PRINT ""
- PRINT ""
- PRINT ""
- PRINT ""
- PRINT ""
- PRINT ""
- PRINT ""
- PRINT ""
- PRINT ""
- COLOR 11
- PRINT "====================================THANK YOU==================================="
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement