Segitiga Sama Sisi dengan Qbasic

Barusan saya posting tentang cara membuat Segitiga Siku-siku dengan Qbasic . Sekarang saya ingin posting tentang membuat segitiga sama sisi dengan Qbasic.

Segitiga sama sisi :

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 :

           * 

         *  * 

       *  *  * 

     *  *  *  * 

   *  *  *  *  * 

 *  *  *  *  *  * 

Segitiga sama sisi terbalik :

CLS

n=6

FOR i = n TO 1 STEP -1

FOR k=n to i STEP -1

PRINT “ “;

NEXT k

FOR j = i TO 1 STEP -1

PRINT “*   ”;

NEXT j

PRINT “”

NEXT i

END

Output :

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

Kalau diperhatikan kedua koding di atas sama dengan koding pada Segitiga siku-siku 3

Dan segitiga Siku-siku 4 pada postingan segitiga siku-siku dengan qbasic. Yang berbeda adalah “*” di ubah menjadi “* “. Walau hanya sebuah spasi tapi dapat memberikan dampak yang besar.

Filenya bisa di download disini

                                                    

Jangan lupa koment ya .