- Buka program Qbasic.exe
- Ketikkan Command dibawah ini :
CLS
PRINT "====MENU===="
PRINT "1. BIODATA"
PRINT "2. LUAS SEGITIGA"
PRINT "3. DERET"
PRINT "4. PROGRAM PENILAIAN"
PRINT "5. EXIT"
PRINT "============"
INPUT "MASUKKAN NOMOR PILIHAN (1-5) = ", A
PRINT
PRINT
SELECT CASE A
CASE 1
DIM B AS STRING
DIM C AS STRING
DIM D AS STRING
PRINT "1. BIODATA"
PRINT "----------"
INPUT "MASUKKAN NAMA = ", B
INPUT "MASUKKAN NPM = ", C
INPUT "MASUKKAN KELAS = ", D
PRINT "----------------------"
PRINT "NAMA SAYA : "; B, "NPM : "; C, "KELAS : "; D
CASE 2
DIM ALAS, TINGGI, LS AS INTEGER
PRINT "LUAS SEGITIGA"
PRINT "-------------"
INPUT "MASUKKAN NILAI ALAS = ", ALAS
INPUT "MASUKKAN NILAI TINGGI = ", TINGGI
LS = ALAS * TINGGI / 2
PRINT "-----------------"
PRINT "LUAS SEGITIGA = "; LS
CASE 3
PRINT "DERET"
PRINT "-----"
INPUT "MASUKKAN ANGKA = ", X
FOR Y = 1 TO X
FOR Z = 1 TO Y
PRINT Y,
NEXT Z
PRINT
NEXT Y
END
CASE 4
DIM NAMA AS STRING
DIM NPM AS STRING
DIM KELAS AS STRING
DIM N1, N2, TOTAL AS INTEGER
PRINT "================="
PRINT "PROGRAM PENILAIAN"
PRINT "-----------------"
PRINT
INPUT "MASUKKAN NAMA ANDA = ", NAMA
INPUT "MASUKKAN NPM ANDA = ", NPM
INPUT "MASUKKAN KELAS ANDA = ", KELAS
INPUT "MASUKKAN NILAI UTS = ", N1
INPUT "MASUKKAN NILAI UAS = ", N2
TOTAL = (N1 + N2) / 2
PRINT
PRINT "=============="
PRINT "OUTPUT PROGRAM"
PRINT "=============="
PRINT "NAMA MAHASISWA = "; NAMA
PRINT "NPM MAHASISWA = "; NPM
PRINT "KELAS MAHASISWA = "; KELAS
PRINT "TOTAL NILAI = "; TOTAL
PRINT
IF TOTAL >= 60 THEN
PRINT "ANDA LULUS"
ELSE
PRINT "ANDA GAGAL"
END IF
END
CASE 5
END
END SELECT
END
> Donload program di atas format.doc:
2 komentar:
mantap agan yang satu ini
mantap agan yang satu ini
Posting Komentar