Jumat, 09 Maret 2012

program daftar nilai mahasiswa


program daftar nilai mahasiswa
Program ini memakai bahasa pemograman basiq, program ini saya buat untuk kelengkapan tugas akhir mata kuliah algoritma dan pemograman I..
BASIC, adalah singkatan dari Beginners’ All-purpose Symbolic Instruction Code adalah sebuah kelompok bahasa pemrograman tingkat tinggi. Secara harfiah, BASIC memiliki arti "kode instruksi simbolis semua tujuan yang dapat digunakan oleh para pemula". Memang, istilah "Bahasa BASIC" di sini juga bisa diartikan menjadi bahasa untuk pemula, atau dengan kata lain, disebut sebagai bahasa dasar, tapi hal tersebut dirasa kurang tepat, mengingat BASIC dapat juga digunakan oleh para pemrogram ahli.
Berikut gambar hasil program dan kode programnya; 












CLS
AM = 0
AH$ = ""
KET$ = ""
INPUT "NAMA MAHASISWA  :", NAMA$
INPUT "KELAS/SEMESTER  :", KELAS$
INPUT "MATA KULIAH     :", NMMK$
INPUT "NILAI [0...100] :", NILAI
SELECT CASE NILAI
CASE 0 TO 30
        AM = 0
        AH$ = "E"
        KET$ = "TIDAK LULUS"
CASE 31 TO 45
        AM = 1
        AH$ = "D"
        KET$ = "TIDAK LULUS"
CASE 46 TO 60
        AM = 2
        AH$ = "C"
        KET$ = "LULUS"
CASE 61 TO 75
        AM = 3
        AH$ = "B"
        KET$ = "LULUS"
CASE ELSE
        AM = 4
        AH$ = "A"
        KET$ = "LULUS"
END SELECT
PRINT
PRINT "-----------------------------------"
PRINT "NAMA          :"; NAMA$
PRINT "KELAS/SEMESTER:"; KELAS$
PRINT "MATA KULIAH   :"; NMMK$
PRINT "NILAI         :"; NILAI
PRINT "ANGKA MUTU    :"; AM
PRINT "ANGKA HURUF   :"; AH$
PRINT "KETERANGAN    :"; KET$


Tidak ada komentar:

Posting Komentar