Latihan Qbasic

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

0 komentar:

Posting Komentar

Reffel Rere. Diberdayakan oleh Blogger.

About Me

Muhammad Refel H
Lihat profil lengkapku

Total Pageviews

Copyright © 2012 Rere Share Template by : UrangkuraiPowered by Blogger.