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
WELCOME TO MY BLOG
Blog ini menjadi salah satu media komunikasi di dunia maya sehingga kita dapat bertukar informasi apa saja
Rabu, 14 Desember 2011
Selasa, 13 Desember 2011
TUGAS PA ARTONI
Contoh Soa lNormalisasi
Berikut adalah Relasitidak Normal, Buatlah Relasi Normalnya beserta Turunan Normalisasinya & tentukan nama tabel
yang tepat !
contoh:
Tabel Pemesanan Barang
Catatan :
· 1.Kerjakan dengan diskusi/kelompok
yang ditentukan sendiri (max 5 orang).
·
2.Jangan tinggalkan ruangan/kelas sebelum
jam berakhir !
·
3.Absensi dikoordinir langsung oleh ketua kelas/wakil kelas.
·
4.Kerjakan dikertas
folio bergaris.
·
5.Tulis nama kelompok dan nama mhs, no
mhs beserta jurusan.
·
6.Pengerjaan tidak boleh sama pada permasalahan kasus,
jika sama pengerjaannya dengan kelompok 7.lain dinyatakan (nilaikosong).
· 8.Wajib dikirimkan ke email
: artoni_stmikbjb2@ yahoo.com, saat jam
berakhirperkuliahan.(INFORMASI TERAKHIR HARUS DI KUMPUL PADA RABU 14-12-2011 JAM 5 SORE)
·
9.Pengerjaan latihan soal kelompok ini akan di presentasikan minggu depan !
Langganan:
Postingan (Atom)