PERULANGAN / LOOP (FOR - NEXT) DI QBASIC

1. PROGRAM MENGHITUNG NILAI RATA - RATA
   Source code :
   DIM n AS INTEGER
   DIM a AS INTEGER
   DIM b AS INTEGER
   DIM jumlah AS INTEGER
   DIM total AS INTEGER
   DIM hasil AS INTEGER
   CLS
   PRINT "--------------------------------------------------------------------------------"
   LOCATE , 27
   PRINT "# MENGHITUNG RATA - RATA #"
   PRINT "--------------------------------------------------------------------------------"
   PRINT
   INPUT "Banyak Nilai = ", n
   PRINT
   
   FOR a = 1 TO 5
   PRINT "Nilai : "; a; "=";
   INPUT "", b(i)
   total = total + b(i)
   hasil = total / n
   NEXT
   PRINT
   PRINT "Rata - Rata Nilai Anda Adalah = ", hasil
   END
   
   Output :
   
   
   
   
2. TAMPILAN BINTANG
   
   Source code :
   DIM a AS INTEGER
   DIM b AS INTEGER
   DIM c AS INTEGER
   DIM d AS INTEGER
   DIM e AS INTEGER
   DIM f AS INTEGER
   cls
   ?"--------------------------------------------------------------------------------"
   ?"                          *  TAMPILAN_BINTANG  *"
   ?"--------------------------------------------------------------------------------"
   
   
   for d = 1 to 9
       for e = 1 to d
   
           print "*";
       next e
       c = d - 1
       print
   next d
   end
   
   Output :
   
   
   
3. TAMPILAN 1, 2, 3, ...
   
   Source code :
   DIM a AS INTEGER
   DIM b AS INTEGER
   DIM c AS INTEGER
   CLS
   PRINT "--------------------------------------------------------------------------------"
   LOCATE , 30
   PRINT "> TAMPILAN 1.2.3, ... <"
   PRINT "--------------------------------------------------------------------------------"
   PRINT
   PRINT
   FOR a = 1 TO 10
   FOR b = 1 TO a
   PRINT b;
   NEXT b
   c = a - 1
   PRINT
   NEXT a
   END
   
   Output :
   
   
   
   
   
4. PERKALIAN 1 S/D 10
   Source code :
   DIM b AS INTEGER
   DIM a AS INTEGER
   DIM x AS INTEGER
   CLS
   LOCATE , 30
   PRINT "P E R K A L I A N"
   PRINT "================================================================================"
   f$ = "  ## X## =###|"
   FOR a = 1 TO 10
   FOR b = 1 TO 5
   x = a * b
   PRINT USING f$; a; b; x;
   NEXT b
   PRINT
   NEXT a
   PRINT
   f$ = " ## X## =###|"
   FOR a = 1 TO 10
   FOR b = 5 TO 10
   x = a * b
   PRINT USING f$; a; b; x;
   NEXT b
   PRINT
   NEXT a
   PRINT
   END
   
   Output :