Buka
Program Qbasic
·
Kemudian
masukan bahasa pemrograman Qbasic berikut :
CLS
INPUT "MASUKAN NILAI KE 1 : ", a
INPUT "MASUKAN NILAI KE 2 : ", b
INPUT "MASUKAN NILAI KE 3 : ", c
INPUT "MASUKAN NILAI KE 4 : ", d
INPUT "MASUKAN NILAI KE 5 : ", e
PRINT
PRINT
PRINT "==================================="
PRINT
sisa = d MOD e
LET HASIL = ((ABS(a) * SQR(b) / INT(c)) * sisa)
PRINT "NILAI 1 ADALAH ", ABS(a)
PRINT "NILAI 2 ADALAH ", SQR(b)
PRINT "NILAI 3 ADALAH ", INT(c)
PRINT "NILAI 4 ADALAH ", d
PRINT "NILAI 5 ADALAH ", e
PRINT
PRINT "NILAI 4 MOD NILAI 5 ADALAH ", sisa
PRINT " ( "; ABS(a); " x "; SQR(b); " /
"; INT(c); " ) x "; sisa; " = "; HASIL; ""
END
·
Tekan
F5 / Atau klick Run kemudian Start Untuk menjalankannya
·
Berikut
Hasilnya
CLS ( Untuk membersihkan layar )
INPUT "MASUKAN NILAI KE 1 : ", a
INPUT "MASUKAN NILAI KE 2 : ", b
INPUT "MASUKAN NILAI KE 3 : ", c
INPUT "MASUKAN NILAI KE 4 : ", d
INPUT "MASUKAN NILAI KE 5 : ", e
( meminta
harga ke user untuk harga a, b, c, d, dan e )
sisa = d MOD e (variabel
“sisa” merupakan hasil dari “ d MOD e “
)
LET HASIL = ((ABS(a) * SQR(b) / INT(c)) * sisa)
PRINT "NILAI 1 ADALAH ", ABS(a) >>> mencetak nilai Absolute (a)
PRINT "NILAI 2 ADALAH ", SQR(b) >>> mencetak nilai dengan mengambil harga akar
(b)
PRINT "NILAI 3 ADALAH ", INT(c) >>> mencetak nilai dengan mengambil bilangan
bulat terkecil (c)
PRINT "NILAI 4 ADALAH ", d >>> mencetak nilai harga (d)
PRINT "NILAI 5 ADALAH ", e >>> mencetak nilai harga (e)
PRINT "NILAI 4 MOD NILAI 5 ADALAH ", sisa >>> mencetak hasil “ d MOD e “
PRINT " ( "; ABS(a); " x "; SQR(b); " /
"; INT(c); " ) x "; sisa; " = "; HASIL; ""
Mencetak hasil ( a x b / c ) x hasil
“ d MOD e”
END >>>
Mengakhiri program