Program bintang sama sisi dengan pascal

Di artikel kali ini saya akan membahas bagaimana membuat program yang menampilkan bintang/asterik yang berbentuk segitiga sama sisi,,

ada dua macam output yang diharapkan:

output 1:

ouput 2:

nah,, bagusan mana yah kira - kira?? hehe..

tapi bukan bagus atau tidaknya yang akan saya bahas disini,, tetapi tingkat kesulitannya,,

kita mulai dari output yang pertama dulu,, kalau anda perhatikan,, jumlah bintang/asterik pada tiap barinya hanya bertambah 1,, baris pertama = 1 bintang, baris kedua=2 bintang, dst,, dan kalau diperhatikan dengan seksama,, cobalah hilangkan spasi yang ada diantara bintang - bintang tersebut(bukan spasi yang sebelum bintang). hasilnya akan menjadi output bintang rata kanan (klao ga tau kaya gimana liat artikel program bintang rata kanan dengan java),, betul ga??

nah,, jadi untuk membuat output yang pertama tidaklah terlalu sulit,,listingnya sama dengan jika kita membuat program bintang rata kanan, kita cuma harus menambahkan spasi setelah mencetak bintang,, seperti ini listingnya:

uses crt;

var

        x,y,z : integer;

begin

        clrscr;

        write ('masukan jumlah baris: ');

        readln(x);

        for y:=1 to x do

        begin

                for z:=1 to x-y do

                begin

                        write(' ');

                end;

                for z:=1 to y do

                begin

                        write('* ');

                end;

                writeln();

        end;

readln();

end.