Latihan Qbasic

Contoh 1 :

Dasar program sederhana melalui LET.
Penyelesaian :
CLS
LET A = 9
LET B = 6
PRINT A
PRINT B
END

Layout :
9
6

Contoh 2 :
Cara menjumlahkan nilai pada program.
Penyelesaian:
C=A+B
CLS
LET A = 9
LET B = 6
LET C = A + B
PRINT C
END

Layout :

15

Contoh 3 :
Langkah untuk mengetahui urutan angka 1-5.
Penyelesaian :
CLS
LET A = 1
PRINT A
LET A = A + 1
PRINT A
LET A = A + 1
PRINT A
LET A = A +1
PRINT A
LET A = A + 1
PRINT A
END

Layout :

1

2

3

4

5

Contoh 4 :
Penyelesaian :
CLS
LET A = 1
PRINT A
LET A = A + 2
PRINT A
LET A = A + 3
PRINT A
LET A = A + 4
PRINT A
LET A = A + 5
PRINT A
LET A = A + 6
PRINT A
END

Layout :
1
3
6
10
15
21

Contoh 5 :
Urutan angka pada program.
Misalnya :
1 sampai 200

Penyelesaian :
CLS
FOR ANGKA = 2 TO 200 STEP 2
PRINT ANGKA
NEXT ANGKA
END

Layout :
1
2
3
4
5
.....dst sampai 200

Contoh 6 :
Penyelesaian :
DIM A AS INTEGER
A = 8
IF A > 5 THEN PRINT "LEBIH BESAR"
END

Layout :
LEBIH BESAR

Contoh 7 :
Penyelesaian :
DIM A AS INTEGER
A = 10
IF A >= 5 THEN 

PRINT "LEBIH BESAR SAMA DENGAN"

ELSE

PRINT “LEBIH KECIL

END IF
END

Layout :
LEBIH BESAR SAMA DENGAN

Contoh 8 :

Penyelesaian:

DIM JENKEL AS INTEGER

CLS

JENKEL = “WANITA”

IF JENGKEL = “PRIA” THEN

PRINT “ANDA BERJENIS KELAMIN PRIA”

ELSEIF JENGKEL = “WANITA” THEN

PRINT “ANDA BERJENIS KELAMIN WANITA”

ELSE

PRINT “BINGUNG ANDA JENIS KELAMIN APA?”

END IF

END

Layout :

ANDA BERJENIS KELAMIN WANITA

CONTOH 9 :

Penyelesaian :

DIM NAMA AS STRING

DIM MK AS STRING

DIM NHURUF AS STRING

CLS

NAMA = “ROOKIE”

MK = “LOGIKA”

NHURUF = “A”

PRINT “NAMA ANDA :”; NAMA

PRINT “MATA KULIAH :”; MK

PRINT “NILAI HURUF :”; NHURUF

IF NHURUF = “A” THEN

PRINT “KETERANGAN : SANGAT BAIK”

ELSEIF NHURUF = “B” THEN

PRINT “KETERANGAN : BAIK”

ELSEIF NHURUF = “C” THEN

PRINT “KETERANGAN : CUKUP BAIK”

ELSEIF NHURUF = “D” THEN

PRINT “KETERANGAN : KURANG”

ELSEIF NHURUF = “E” THEN

PRINT “KETERANGAN : SANGAT KURANG”

END IF

END

Layout :

NAMA ANDA : ROOKIE

MATA KULIAH : LOGIKA

NILAI HURUF : A

KETERANGAN : CUKUP