Segitiga Siku-Siku dengan Qbasic

Nah berhubung hari senin nanti saya ada UTS AP1 A. Sekarang saya mau coba sharing ah tentang Qbasic. Lebih tepatnya tentang membuat segitiga siku-siku menggunakan Qbasic.

Segitiga siku-siku 1 : Kanan Bawah

CLS

n=6

FOR i = 1 TO n

FOR j = 1 TO i

PRINT “*”;

NEXT j

PRINT “”

NEXT i

END

Output:

*

**
***

****
*****

******

Segitiga siku-siku 2 : Kanan atas

CLS

n=6

FOR i = n TO 1 STEP -1

FOR j = 1 TO 1 STEP -1

PRINT “*”;

NEXT j

PRINT “”

NEXT i

END

Output :

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

Segitiga siku-siku 3 : Kiri bawah

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 siku-siku 4 : kiri atas

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 :

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

Nah itu dia koding buat ngebuat segitiga siku-siku di Qbasic..

Semoga bermanfaat dan jangan lupa koment ya..

Untuk File bas untuk semuanya bisa di download  di sini.