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:
Posting Komentar