Contoh Program sederhana Program Segitiga Pada Q BASIC

 CODING :

CLS
PRINT "MENU"
PRINT "........"
PRINT "1. BIODATA"
PRINT "2. LUAS SEGITIGA"
PRINT "3. DERET"
PRINT "4. EXIT"
PRINT ".........."
INPUT "MASUKKAN PILIHAN:", PIL=Masukkan Pilihan
IF (PIL=1) THEN GOTO 10
IF (PIL=2) THEN GOTO 20
IF (PIL=3) THEN GOTO 30
GOTO 40
10 PRINT "BIODATA"
GOTO 40
20 PRINT "LUAS SEGITIGA"
GOTO 40
30 PRINT 'DERET"
INPUT "MASUKKAN JUMLAH DERET", N
FOR 1=1 TO N
FOR J=1 TO N
PRINT J
PRINT
NEXT 1
GOTO 40
40 END


MAKA OUTPUTNYA ADALAH :

1. BIODATA
2. LUAS SEGITIGA
3. DERET
4. EXIT
MASUKKAN PILIHAN:?
1. BIODATA
2. LUAS SEGITIGA
3. DERET
MASUKKAN JUMLAH DERET 5
1
12
123
1234
12345