MEMBUAT SEGITIGA DENGAN QBASIC

Setelah beberapa waktu yang lalu saya share mengenai apa itu QBasic.
Kali ini saya akan berbagi ilmu tentang cara membuat segitiga dengan qbasic.
Segitiga yang saya buat adalah segitiga sama sisi, segitiga siku-siku dan segitiga sama kaki.

Yang pertama adalah segitiga sama sisi dan codingnya sebagai berikut..

CLS
n=6
FOR i = 1 TO n
FOR k=n to i STEP -1
PRINT “ “;
NEXT k
FOR j = 1 TO i
PRINT “*  ”;
NEXT j
PRINT “”
NEXT i
END

Output nya :
     
           *
         *  *
       *  *  *
     *  *  *  *
   *  *  *  *  *
 *  *  *  *  *  *

Untuk segitiga siku-siku codingnya sebagai berikut..

CLS
n=6
FOR i = 1 TO n
FOR j = 1 TO i
PRINT “*”;
NEXT j
PRINT “”
NEXT i
END

Output:
*
**
***
****
*****
******

Dan terakhir untuk segitiga sama kaki codingnya sebagai berikut..

CLS
PRINT "SEGITIGA SAMA KAKI"
n = 6
FOR i = 1 TO n
FOR k = n TO i STEP -1
PRINT "  ";
NEXT k
FOR j = 1 TO i
PRINT "  *  ";
NEXT j
PRINT ""
NEXT i
END

Output: 

                *
            *       *
         *       *      *
      *       *      *      *
   *       *      *      *      *
*      *      *       *      *      *


Nah selesai sudah 3 macam segitiga yang saya buat menggunakan qbasic semoga bisa bermanfaat untuk teman-teman dan selamat mencoba..