PROGRAM CETAK BINTANG ASCENDING (PASCAL)

LATIHAN PRA-UTS 1c.

                                                                                                                             

 

                                                                                                                            

program star_ascending;

                uses crt;

                var

n, i, j : integer;

begin

write ('masukkan angka untuk mencetak bintang : '); readln(n);

for i := 1 to n do

begin

     for j := 1 to i do

     begin

     write ('*');

     end;

     writeln ( );

end;

readln;

end.