LATIHAN-LATIHAN DASAR DI QBASIC

Newest Post

LATIHAN-LATIHAN DASAR DI QBASIC

// Posted by :Unknown // On :Minggu, 07 Oktober 2012

MATA KULIAH : ALGORITMA & PEMROGRAMAN 1 (QBASIC)
DOSEN : IRVAN ABRAHAM SALIHI, S.Kom, M.Kom

Pengertian

Pada dasarnya Q-Basic, Q=Quick (cepat), dan BASICnya adalah singkatan dari Beginners All purpose Symbolic Instruction Code (sebuah kelompok bahasa pemrograman tingkat tinggi). Itu baru pengertian dasarnya. lebih jelasnya ;

Qbasic
adalah salah satu bahasa pemrograman yang menggunakan bahasa basic, Qbasic sendiri singkatan dari Quick Basic yang merupakan salah satu produk Microsoft. Qbasic cukup baik untuk belajar dasar pemrograman. Bahasa Qbasic ini dapat dipelajari dari internet dan program.

PERINTAH-PERINTAH YANG DI GUNAKAN :

CLS     : UNTUK MENGHAPUS LAYAR
PRINT   : UNTUK MENCETAK HURUF, ANGKA, VARIABEL DAN KALIMAT
LET     : UNTUK PERINTAH / UNTUK MEMESAN
END     : UNTUK MENGAKHIRI
DIM     : UNTUK MENDEKLARASIKAN VARIABEL, dll

LATIHAN 1
-----------------------------------------------------------------------------
CLS
LET NIM ="12345"
LET NAMA ="JAMAL"
LET UMUR =18
PRINT NIM;
PRINT NAMA;
PRINT UMUR;
END
-----------------------------------------------------------------------------

LATIHAN 2
-----------------------------------------------------------------------------
CLS
LET A=7
LET B=8
PRINT A
PRINT B
END
-----------------------------------------------------------------------------

LATIHAN 3
-----------------------------------------------------------------------------
CLS
DIM A AS INTEGER
DIM B AS INTEGER
A=7
B=8
PRINT A
PRINT B
END
-----------------------------------------------------------------------------

LATIHAN 4
-----------------------------------------------------------------------------
CLS
DIM NAMA AS STRING
DIM KELAS AS STRING
DIM UMUR AS INTEGER

NAMA="JAMAL"
KELAS="1RA"
UMUR=18
PRINT NAMA
PRINT KELAS
PRINT UMUR
END
-----------------------------------------------------------------------------

LATIHAN 5
MEMBUAT DERET ANGKA UNTUK NILAI A = 3 6 9 12 15
-----------------------------------------------------------------------------
CLS
LET A=3
PRINT A;
LET A=A+3
PRINT A;
LET A=A+3
PRINT A;
LET A=A+3
PRINT A;
END
-----------------------------------------------------------------------------

LATIHAN 6
MEMBUAT DERET ANGKA UNTUK NILAI B = 1 2   4    7    11   16
-----------------------------------------------------------------------------
CLS
LET B=1
PRINT B;
LET B=B+1
PRINT B;
LET B=B+2
PRINT B;
LET B=B+3
PRINT B;
LET B=B+4
PRINT B;
LET B=B+5
PRINT B;
END
-----------------------------------------------------------------------------

LATIHAN 7
CONTOH UNTUK MEMBUAT DERET ANGKA UNTUK NILAI A, B, C YAITU 1 2 3 5 8 13
-----------------------------------------------------------------------------
CLS
LET A=2
LET B=3
LET C=A+B
PRINT A;
PRINT B;
PRINT C;
END
-----------------------------------------------------------------------------

LATIHAN 8
MEMBUAT DERET ANGKA UNTUK NILAI A, B, C YAITU 1 2 3 5 8 13
-----------------------------------------------------------------------------
CLS
LET A=1
LET B=2
LET C=A+B
PRINT A;
PRINT B;
PRINT C;
LET A=B
LET B=C
LET C=A+B
PRINT C;
LET A=B
LET B=C
LET C=A+B
PRINT C;
LET A=B
LET B=C
LET C=A+B
PRINT C;
END
-----------------------------------------------------------------------------

LATIHAN 9
MEMBUAT DERET ANGKA UNTUK NILAI A(12345), B(15) = 1 2 3 4 5 = 15
-----------------------------------------------------------------------------
CLS
LET A=1
PRINT A;
LET B=B+1

LET A=A+1
PRINT A;
LET B=B+A

LET A=A+1
PRINT A;
LET B=B+A

LET A=A+1
PRINT A;
LET B=B+A

LET A=A+1
PRINT A;
LET B=B+A

PRINT "=" B;
END
-----------------------------------------------------------------------------

LATIHAN 10
MEMBUAT DERET ANGKA 2, 4, 6, 8, 10 . . . . 200
-----------------------------------------------------------------------------
FOR A=2 TO 200 STEP 2
PRINT A;
NEXT A
END
-----------------------------------------------------------------------------

PERULANGAN / FOR NEXT

Bentuk umum dari FOR NEXT

----------------------------------------------------------
FOR Nama Variabel = Nilai Awal to Nilai Akhir
         PRINT
NEXT Nama Variabel
----------------------------------------------------------

Coding :

-----------------------------------------------------------------------------
CLS
FOR A = 1 TO 3
PRINT "FIKOM UNISAN"
NEXT A
END
-----------------------------------------------------------------------------

LATIHAN 11
MENAMPILKAN DERET ANGKA 1 2 3 4 5
-----------------------------------------------------------------------------
CLS
LET A = 1
FOR AKU = 1 TO 5
       PRINT A;
       LET A = A + 1
NEXT AKU
END
-----------------------------------------------------------------------------

LATIHAN 12
MENAMPILKAN DERET ANGKA 2 7 17 32 52
-----------------------------------------------------------------------------
CLS
LET A = 2
LET NTAMBAH = 5
FOR I = 1 TO 5
       PRINT A;
       LET A = A + NTAMBAH
       LET NTAMBAH = NTAMBAH + 5
NEXT I
END
-----------------------------------------------------------------------------

LATIHAN 13
MENAMPILKAN DERET ANGKA 3 6 9 12 = 30
-----------------------------------------------------------------------------
CLS
LET A = 3
FOR I = 1 TO 4
       PRINT A;
       LET A = A + 3
   LET B = B + A
NEXT I
PRINT "=", B
END
-----------------------------------------------------------------------------

IF & THEN

Bentuk Umum

----------------------------------------------------------
IF <Kondisi> Then <Perintah>
     ELSE <Kondisi>
END IF
----------------------------------------------------------
*Jika Kondisi benar maka perintah dilaksanakan

Coding
----------------------------------------------------------
LET A = 2
IF A <= 3 Then Print " A Lebih Kecil"
       ELSE PRINT "A Lebih Besar"
END IF
END
----------------------------------------------------------

LATIHAN 14

CLS
"to be continue", ^^