-: TUGAS ALGORITMA DAN PEMROGRAMAN 3 (BU ITO)

QBASIC

MATERI : RATA-RATA

1. KODINGAN

CLS
COLOR 15
PRINT "________________________________________________________________________________"
COLOR 9
PRINT ""
PRINT TAB(4); " PEMERINTAH SEDANG MENENTUKAN AKREDITASI SMK SE-KOTA DEPOK"
COLOR 15
PRINT "________________________________________________________________________________"
PRINT ""
PRINT ""
COLOR 9
DIM H AS STRING
INPUT " JUMLAH SMK : ", N

CLS
COLOR 11
FOR Z = 1 TO N
PRINT ""
PRINT " MASUKKAN DATA SMK "
PRINT ""
INPUT " NAMA SMK : ", N$(Z)
INPUT " NILAI FASILITAS : ", A(Z)
INPUT " NILAI KEBERSIHAN : ", B(Z)
INPUT " NILAI KEAMANAN : ", C(Z)
NEXT Z

CLS
PRINT ""
COLOR 11
PRINT " HASIL PENILAIAN "
COLOR 15
PRINT "________________________________________________________________________________"
COLOR 11
PRINT TAB(2); "NO"; TAB(5); "|"; TAB(7); "SMK"; TAB(19); "|"; TAB(21); "FASILITAS"; TAB(31); "|"; TAB(33); "KEBERSIHAN"; TAB(44); "|"; TAB(46); "KEAMANAN"; TAB(55); "|"; TAB(57); "RATA-RATA"; TAB(67); "|"; TAB(69); "AKREDITASI"
COLOR 15
PRINT "________________________________________________________________________________"
FOR Z = 1 TO N
T = A(Z) + B(Z) + C(Z)
R = T / 3
IF R < 60 THEN H = "C"
IF R >= 60 THEN H = "B"
IF R > 80 THEN H = "A"
COLOR 11
PRINT TAB(2); Z; TAB(5); "|"; TAB(7); N$(Z); TAB(19); "|"; TAB(24); A(Z); TAB(31); "|"; TAB(36); B(Z); TAB(44); "|"; TAB(48); C(Z); TAB(55); "|"; TAB(57); R; TAB(67); "|"; TAB(73); H
COLOR 15
PRINT "________________________________________________________________________________"
NEXT Z
FOR Z = 1 TO N
T = A(Z) + B(Z) + C(Z)
R = T / 3
IF R >= 60 THEN
END IF
NEXT Z

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