Algoritma dan Pemrograman 1 BASIC Topic 3 soal 5

REM Program Perulangan untuk mencetak pola segita sama sisi dengan asterisk
DIM i AS INTEGER 'Deklarasi variabel i dengan tipe data integer'
DIM j AS INTEGER 'Deklarasi variabel j dengan tipe data integer'
DIM k AS INTEGER 'Deklarasi variabel k dengan tipe data integer'
DIM baris AS INTEGER 'Deklarasi variabel baris dengan tipe data integer'

INPUT baris 'Melakukan Input nilai ke variabel baris'
PRINT "Berapa baris? ";baris

FOR i = 1 TO baris  'Menggunakan perulangan for terhadap iterator i dengan nilai awal 1 dan nilai akhir variabel baris dengan nilai yang disimpannya'
    FOR k = baris TO i STEP -1 'Menggunakan perulangan for terhadap iterator k dengan nilai awal variabel baris dengan nilai yang disimpannya dan nilai akhir i dan STEP setiap iterasinya adalah -1'
        PRINT " "; 'Mencetak spasi'
    NEXT k
        FOR j = 1 TO i ' Menggunakan perulangan for terhadap iterator j dengan nilai awal 1 dan nilai akhir i'
            PRINT "* "; 'Cetak karakter asterisk'
        NEXT j
PRINT " " 'Mencetak spasi'
NEXT i
END