JAWABAN CODING REMED UTS BU RULIAH (ALGO&PEMROGRAMAN 1)

KETENTUAN :
1. DARI NO URUT S/D NAMA DOSEN PROSES BERULANG MAX 22 X
2. KODE MK, NAMA MATA KULIAH DI INPUT
3. SKS TERDIRI DARI 2,3,4 DAN 6 DIBACA DARI SYARAT KODE MK DAN NAMA MATKUL
4. NILAI TERDIRI DARI 0-4
5.TOTAL UNTUK SKS DAN NILAI
6. IP KOMULATIF = TOTAL NILAI/TOTAL SKS
7. KETERANGAN DI BACA DARI SYARAT IP KOMULATIF


'CODING NYA :
'CREATE BY : SYAIROJI
'HAL       : JAWABAN SEDERHANA PENGULANGAN UTS BU RULIAH

DIM KDMK$(22), NMKUL$(22), SKS(22), TOTSKS(22), TOTNILAI(22), NILAI(22), NMDOSEN(22)

CLS
LOCATE 05,15 : INPUT "JUMLAH DATA MAX 22 X : " ,N

CLS
LOCATE 02,32 : PRINT "KARTU HASIL STUDI"
LOCATE 04,12 : INPUT "NAMA                          : " ,NAMA$
LOCATE 05,12 : INPUT "SEMESTER                  : " ,SEMESTER
LOCATE 06,12 : INPUT "TAHUN AKADEMIK : " ,THAK
LOCATE 04,53 : INPUT "NIM                             : " ,NIM
LOCATE 05,53 : INPUT "PRODI                         : " ,PRODI$
LOCATE 06,53 : INPUT "JUMLAH SKS             : " ,JMLHSKS

LOCATE 07,12 : PRINT STRING$(60,CHR$(205))
LOCATE 08,12 : PRINT "NO"
LOCATE 09,12 : PRINT "URUT"
LOCATE 08,18 : PRINT "KODE"
LOCATE 09,18 : PRINT "MK"
LOCATE 08,26 : PRINT "NAMA"
LOCATE 09,26 : PRINT "MATA KULIAH"
LOCATE 08,40 : PRINT "SKS"
LOCATE 09,40 : PRINT " "
LOCATE 08,46 : PRINT "NILAI"
LOCATE 09,46 : PRINT " "
LOCATE 08,56 : PRINT "NAMA"
LOCATE 09,56 : PRINT "DOSEN"
LOCATE 10,12 : PRINT STRING$(60,CHR$(205))


BA=12
TOTSKS=0
TOTNILAI=0


FOR I=1 TO N
    LOCATE BA,12 : PRINT I
    LOCATE BA,18 : INPUT ,KDMK$(I)
    LOCATE BA,26 : INPUT ,NMKUL$(I)

IF KDMK$(I)="001" AND NMKUL$(I)="SIMBAD" THEN SKS(I)=2
IF KDMK$(I)="002" AND NMKUL$(I)="ALGORITMA" THEN SKS(I)=3
IF KDMK$(I)="003" AND NMKUL$(I)="PKN" THEN SKS(I)=4
IF KDMK$(I)="004" AND NMKUL$(I)="LOGIKA" THEN SKS(I)=6
   


    LOCATE BA,40 : PRINT SKS(I)
    LOCATE BA,48 : INPUT ,NILAI(I)
    LOCATE BA,56 : INPUT ,NMDOSEN$(I)

BA=BA+1

TOTSKS=TOTSKS+SKS(I)
TOTNILAI=TOTNILAI+NILAI(I)

NEXT I
LOCATE 17,12 : PRINT STRING$(60,CHR$(205))
LOCATE 18,12 : PRINT "TOTAL"
LOCATE 18,40 : PRINT TOTSKS
LOCATE 18,47 : PRINT TOTNILAI
LOCATE 19,12 : PRINT STRING$(60,CHR$(205))

IPK=TOTNILAI/TOTSKS
LOCATE 21,12 : PRINT "IP KOMULATIF = " IPK
LOCATE 21,32 : PRINT "               "

IF IPK >= 3.5 THEN
    KET$ = "A"
ELSEIF IPK >= 3.00 THEN
    KET$ = "B"
ELSEIF IPK >= 2.5 THEN
    KET$ = "C"
ELSEIF IPK <= 2.00 THEN
    KET$ = "D"

END IF


LOCATE 21,40 : PRINT "KETERANGAN  = " KET$
LOCATE 22,12 : PRINT "BANJARBARU, " DATE$
LOCATE 23,12 : PRINT "           BAAK      "
LOCATE 24,12 : PRINT "(                                 )"
END