Algoritma Segitiga Bintang

Algoritma ini dibuat untuk menampilkan segitiga dalam bentuk segitiga sama sisi, dengan teksnya berbentuk bintang, kalo ingin di ganti bintangnya tinggal diganti aja '*' dengan yang anda inginkan,..

.Ok langsung za kurang lebih kaya gini programnya....

Program Segitiga_Bintang;

uses crt;

var

     n,i,j : integer;

begin

   clrscr;

   writeln('   Program Segitiga Siku ');

   writeln('---------------------------------');

   write  ('Masukkan Nilai Anda : ');readln(n);

   writeln;

       for i := 1 to n do

       begin

       for j := 1 to i do

       write ('*'); writeln;

    end ;

           for i := n-1 downto 1 do

           begin

           for j := 1 to i do 

           write ('*');  writeln; {bisa di ganti}

       end;

    readln;

end.

Nah kaya gitu aza slamat mencoba ya..... 
dan kalo mo format pdf silahkan unduh disini