Jumat, 19 Oktober 2012

                                            PERULANGAN QBASIC MEMBUAT SEGITIGA


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..

Tidak ada komentar:

Poskan Komentar