ammarafsanjani.blogspot.com

Get Free Music at www.divine-music.info
Get Free Music at www.divine-music.info

Free Music at divine-music.info

Kamis, 04 Oktober 2012

MENSORT KELAS DI PROGRAM QBASIC


LANGKAH  1
Buka QBASIC

LANGKAH 2
Ketik koding pertama seperti ini

‘DEKLARASI RECORD TYPE MHS
CLS
TYPE MHS
NAMA AS STRING * 20
NPM AS STRING * 10
KELAS AS STRING * 10
END TYPE

INPUT "MASUKAN JUMLAH MAHASISWA"; JM

‘DEKLARASI ARRAY MAHASISWA BERDASARKAN RECORD TYPE MHS DAN MENGISI DATA
DIM MAHASISWA(JM) AS MHS
FOR I = 1 TO JM STEP 1
PRINT " RECORD KE-"; I
INPUT "NPM:", MAHASISWA(I).NPM
INPUT "NAMA:", MAHASISWA(I).NAMA
INPUT "KELAS:", MAHASISWA(I).KELAS
NEXT I

‘TAMPILAN OUTPUT
CLS
PRINT "DATA MAHASISWA"
PRINT "**************"
PRINT
PRINT "-----------------------------------"
PRINT "NPM             NAMA          KELAS"
PRINT "-----------------------------------"

‘MENAMPILKAN DATA KE DALAM TABEL
FOR I = 1 TO JM
PRINT MAHASISWA(I).NPM; MAHASISWA(I).NAMA; MAHASISWA(I).KELAS
NEXT I
PRINT "-----------------------------------"
END

'MENGURUTKAN DATA SESUAI KELAS

FOR I = (JM - 1) TO 1 STEP -1
SEMPURNA = 1
FOR J = 1 TO I
IF MAHASISWA(J).KELAS > MAHASISWA(J + 1).KELAS THEN
SWAP MAHASISWA(J), MAHASISWA(J + 1)
SEMPURNA = 0
END IF
NEXT J
IF SEMPURNA = 1 THEN
I = 0
END IF
NEXT I

‘TAMPILAN OUTPUT 
PRINT
PRINT "DATA MAHASISWA SESUDAH DI SORTING "
PRINT "***********************************"
PRINT
PRINT "====================================================="
PRINT "NPM            NAMA                          KELAS   "
PRINT "====================================================="

‘MENAMPILKAN DATA KE DALAM TABEL 
FOR I = 1 TO JM
PRINT MAHASISWA(I).NPM; MAHASISWA(I).NAMA; MAHASISWA(I).KELAS
NEXT I
PRINT "====================================================="
END



KET: Yang saya blog warna hijau merupakan koding sortnya


LANGKAH 3
Tekan F5 untuk me RUN program tersebut
Dan akan muncul seperti ini :

Dan saya memasukan 7 data


7 data tersebut antara lain:

Dan saya menginputnya sesuai yang di table agar outputnya bisa sesuai dengan table di atas.


Dan outputnya seperti ini sesuai dengan table di atas :


Sebelum di sorting


Sesudah di sorting


Untuk membuktikanya saya sudah mensertakan link untuk mendownload program ini











Tidak ada komentar:

Poskan Komentar