-: TUGAS ALGORITMA DAN PEMROGRAMAN 1 (BU ITO)

QBASIC

MATERI : NO 14 DAN SEARCHING

1. KODINGAN

CLS
COLOR 14
PRINT "________________________________________________________________________________"
PRINT ""
COLOR 5
PRINT TAB(14); "UNIVERSITAS TERBUKA MENGADAKAN TURNAMEN CATUR"
PRINT ""
PRINT TAB(20); "TURNAMEN INI DIADAKAN DALAM 24 RONDE"
COLOR 14
PRINT "________________________________________________________________________________"
PRINT ""
DIM G AS STRING
COLOR 5
INPUT " DATA YANG TERSEDIA : ", N

FOR Z = 1 TO N
PRINT ""
COLOR 5
PRINT TAB(10); "MASUKKAN DATA"
PRINT ""
COLOR 5
INPUT " NAMA PECATUR : ", N$(Z)
INPUT " MENANG : ", A(Z)
INPUT " SERI : ", B(Z)
INPUT " KALAH : ", C(Z)
NEXT Z

MENU:
CLS
COLOR 10
PRINT " SELAMAT DATANG"
COLOR 10
PRINT "======================================MENU====================================="
PRINT ""
COLOR 13
PRINT " 1.LIHAT PERSYARATAN"
PRINT " 2.CARI NAMA PECATUR "
PRINT " 3.CEK SELURUH DATA PECATUR "
PRINT " 4.KELUAR"
PRINT ""
COLOR 13
INPUT " MASUKKAN PILIHAN ANDA (1-4): ", P$

SELECT CASE P$
CASE "1"
GOTO 2
2 CLS
COLOR 27
PRINT "________________________________________________________________________________"
PRINT ""
COLOR 12
PRINT " =============== SYARAT MENDAPATKAN GELAR ================ "
COLOR 27
PRINT "________________________________________________________________________________"
PRINT ""
COLOR 13
PRINT " PERHITUNGAN PRESTASI :"
PRINT ""
PRINT " 1. GRANMASTER BILA MENCAPAI PRESTASI 75% "
PRINT " 2. MASTER BILA MENCAPAI PRESTASI 50%"
COLOR 27
PRINT "________________________________________________________________________________"
PRINT ""
COLOR 14
PRINT " PENILAIAN YANG DIHITUNG :"
PRINT ""
PRINT " 1. NILAI 1 JIKA MENANG"
PRINT " 2. NILAI 1/2 JIKA REMIS ATAU DRAW"
PRINT " 3. NILAI 0 JIKA KALAH"
COLOR 27
PRINT "________________________________________________________________________________"
PRINT ""

COLOR 15
CLOSE
INPUT " KEMBALI KE MENU AWAL? [Y/N] : ", M$
IF M$ = "Y" THEN GOTO MENU:
IF M$ = "N" THEN GOTO 100:

CASE "2"
GOTO 3
3 CLS
PRINT ""
COLOR 9
INPUT " CARI NAMA PECATUR : ", NP$
COLOR 15
PRINT "________________________________________________________________________________"
PRINT ""
COLOR 9
PRINT TAB(35); "DATA PECATUR"
COLOR 9
PRINT "________________________________________________________________________________"
PRINT TAB(2); "NO"; TAB(10); "NAMA PECATUR"; TAB(27); "MENANG"; TAB(35); "SERI"; TAB(41); "KALAH"; TAB(50); "TOTAL"; TAB(57); "PRESTASI"; TAB(71); "GELAR"
PRINT "________________________________________________________________________________"
FOR Z = 1 TO N
J = A(Z) + B(Z) + C(Z)
T = ((A(Z) * 100 / 24) + (B(Z) * 1 / 2 * 100 / 4) + (C(Z) * 0 * 100 / 4))
IF T < 50 THEN G = "TIDAK DAPAT"
IF T >= 50 THEN G = " MASTER"
IF T >= 75 THEN G = "GRANDMASTER"
IF J < 24 THEN G = " GUGUR"
IF J > 24 THEN G = " GUGUR"
IF N$(Z) = NP$ THEN PRINT TAB(2); Z; TAB(8); N$(Z); TAB(28); A(Z); TAB(35); B(Z); TAB(42); C(Z); TAB(50); J; TAB(56); T; TAB(69); G
NEXT Z
PRINT "________________________________________________________________________________"
PRINT ""

COLOR 9
CLOSE
INPUT " KEMBALI KE MENU AWAL? [Y/N] : ", M$
IF M$ = "Y" THEN GOTO MENU:
IF M$ = "N" THEN GOTO 100:

CASE "3"
GOTO 4
4 CLS
COLOR 10
PRINT ""
PRINT TAB(25); "TABEL GELAR PEMAIN CATUR"
PRINT ""
COLOR 10
PRINT "________________________________________________________________________________"
PRINT TAB(2); "NO"; TAB(10); "NAMA PECATUR"; TAB(27); "MENANG"; TAB(35); "SERI"; TAB(41); "KALAH"; TAB(50); "TOTAL"; TAB(57); "PRESTASI"; TAB(71); "GELAR"
PRINT "________________________________________________________________________________"
FOR Z = 1 TO N
J = A(Z) + B(Z) + C(Z)
T = ((A(Z) * 100 / 24) + (B(Z) * 1 / 2 * 100 / 4) + (C(Z) * 0 * 100 / 4))
IF T < 50 THEN G = "TIDAK DAPAT"
IF T >= 50 THEN G = " MASTER"
IF T >= 75 THEN G = "GRANDMASTER"
IF J < 24 THEN G = " GUGUR"
IF J > 24 THEN G = " GUGUR"
PRINT TAB(2); Z; TAB(8); N$(Z); TAB(28); A(Z); TAB(35); B(Z); TAB(42); C(Z); TAB(50); J; TAB(56); T; TAB(69); G
PRINT "________________________________________________________________________________"
NEXT Z
PRINT ""
PRINT ""

COLOR 10
CLOSE
INPUT " KEMBALI KE MENU AWAL? [Y/N] : ", M$
IF M$ = "Y" THEN GOTO MENU:
IF M$ = "N" THEN GOTO 100:

CASE "4"
GOTO 100
END SELECT

100 END
END

2. OUTPUT PROGRAM

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

setelah muncul tampilan seperti di bawah ini lalu isi data yang kalian inginkan