PROGRAM LOOPING SEGITIGA PADA QBASIC

Script :
CLS
INPUT "Masukkan Nilai = ", a
b = a
FOR i = 1 TO a
PRINT TAB(b);
FOR j = 1 TO i
PRINT j;
NEXT j
PRINT
b = b - 1
NEXT i


Penjelasan :
1. Bersihkan layar.
2. Perintah memasukkan nilai akhir.
3. Deklarasi file b diisi nilai a.
4. Perintah perulangan dari data ke 1 hingga data terakhir.
5. Mencetak output ke nilai akhir.
6. Perulangan ke 2 mengisi nilai j dari data ke 1 hingga data ke-i lalu cetak j.
7. Lanjutkan j kemudian cetak 1 halaman, dan deklarasi nilai b berkurang 1 dan kemudian lanjutkan i.