Klik
Tutorial QBASIC
1. Membuat Program Nama, NPM , Kelas?
2. Membuat Program Luas Segitiga?
3. Membuat Program Ganjil Genap?
4. Membuat Program Diskon?
5. Membuat Program Grade?
1.
Open QBasic
Ketik
CLS
PRINT
“NAMA FAIRUZ HANIF RABBANI”
PRINT
“NPM 33113104”
PRINT “KELAS
1DB06”
.2.
Open QBasic
Ketik
CLS
INPUT “Masukkan Nilai Alas:”, Alas
INPUT “Masukkan Nilai Tinggi:”, Tinggi
LUAS = (Alas * Tinggi ) /2
PRINT “LUAS SEGITIGA:”, LUAS
END
3.
OPEN QBASIC
KETIK
CLS
INPUT
“NILAI A:”, A
B = A
MOD 2
IF B = 0
THEN
PRINT
“BILANGAN GENAP”
ELSE
PRINT
“BILANGAN GANJIL”
END IF
4.
OPEN QBASIC
KETIK
CLS
INPUT “HARGA BARANG 1:”, A
INPUT “HARGA BARANG 2:”, B
INPUT “HARGA BARANG 3:”,C
JUMLAH = A + B + C
PRINT “TOTAL BELANJA:”, JUMLAH
IF
JUMLAH <= 5000 THEN
PRINT
“DAPAT DISKON 10%”
ELSEIF
JUMLAH <= 10000 THEN
PRINT
“DAPAT DISKON 25%”
ELSEIF
JUMLAH <= 25000 THEN
PRINT
“DAPAT DISKON 75%”
ELSEIF
JUMLAH <= 50000 THEN
ELSE
PRINT
“GRATIS”
END IF
Keterangan
:
Lingkaran
merah adalah Total belanja
Lingkaran
kuning adalah Dapat diskon
5.
OPEN QBASIC
KETIK
CLS
INPUT
“MASUKKAN NAMA:”, NAMA$
INPUT
“MASUKKAN NPM:”, NPM$
INPUT
“MASUKKAN KELAS:”, KELAS$
INPUT
“NILAI UTS:”, UTS
INPUT
“NILAI UAS:”, UAS
TOTAL =
( UTS * 0.7 ) + ( UAS * 0.3 )
PRINT
“MAHASISWA DENGAN NAMA:”; NAMA$
PRINT
“DENGAN NPM:”; NPM$
PRINT
“DI KELAS:”; KELAS$
PRINT
“TOTAL NILAI:”; TOTAL
IF TOTAL
> 90 THEN
PRINT
“GRADE A”
ELSEIF
TOTAL > 75 THEN
PRINT
“GRADE B”
ELSEIF
TOTAL > 60 THEN
PRINT
“GRADE C”
ELSE
PRINT
“NILAI ANDA DI BAWAH STANDAR”
END IF
Postingan
0 komentar:
Posting Komentar