Jumat, 02 November 2012

QBasic


REM

            Singkatan dari remark, sebagai keterangan dari bagian program instruksi ini tidak mempengaruhi jalannya program. REM juga dapat ditulis dengan tanda aphostrophe atau tanda kutip satu (‘).
Contoh : 10 REM menghitung keliling dan luas lingkaran
                20 R = 10
                30 ‘menghitung keliling
                40 K = 3.14 * (2*R)
                50 ‘menghitung luas
                60 L = 3.14 * (R*R)
                70 ‘cetak
                80 print K : print L : END

Restore

            Nilai yang tertera pada instruksi DATA hanya dapat dibaca satu kali saja dengan instruksi READ. Agar nilai tersebut dapat dibaca kembali maka digunakan instruksi ini
Contoh :
10   DATA 70, 80, 90
20   READ nilai1, nilai2, nilai3
30   DATA “Amin”, “Irma”, “Sinta”
40   READ nama 1$, nama 2$, nama 3$
50   print nama 1$, nilai1
60   print nama 2$, nilai2
70   print nama 3$, nilai3
80   RESTORE
90   READ nama 4$, nama 5$, nama 6$
100 READ n1, n2, n3
110 print n3, nama 4$
120 END

GOTO

            Digunakan untuk menuju kenomer baris yang dituju
Contoh :
10 x = 5
20 print x
30 GoTo 60
40 print “selesai”
50 END
60 print x*2
70 GoTo 40

If-then 

            Digunakan untuk memeriksa sebuah kondisi dan mengeksekusi satu atau lebih baris program, jika dan hanya jika kondisi terpenuhi
Contoh :
10 DATA 80, 100, 80
20 READ N1, N2, N3
30 LET A = (N1*30/100)
40 LET B = (N2*50/100)
50 LET C = (N3*20/100)
60 IF x >= 60 THEN
70 print “MAHASISWA GAGAL”
80 GoTO 30

If-then-else

            Digunakan untuk memeriksa suatu kondisi dan mengeksekusi satu atau lebih baris program. Jika kondisi terpenuhi, dan pengeksekusi satu atau lebih baris program yang lain jika kondisi terpenuhi.
Contoh :
            Input “Nilai = ”; Nilai
            If nilai >6 then st$ = “lulus” else
              St$ “gagal”
            Print “siswa tersebut : ”; st$
            END

If-then-else dengan banyak baris
Bentuk umumnya :
If syarat then
            Blok instruksi
Else if syarat then
            Blok instruksi
Else
            Blok instruksi
End

sumber : catatan kuliah

Tidak ada komentar:

Posting Komentar