MEMBUAT SEGITIGA ANGKA DENGAN PASCAL

nah... dari pada banyak main game.. atau sejenisnya.. lebih baik kita belajar membuat segitiga angka, menggunakan pascal,. logikanya sama seperti membuat segitiga bintang,, seperti yg anda lihat di atas susunan nya aja hampir sama  dengan segitiga bintang.. disini yg membuat berbeda dengan postingan sebelumnya yaitu menggunakan array... 

disini saya tidak mau banyak cerita,. maka dari itu.. kita langsung aja.. 

silahkan anda copy atau salin script di bawah ini...

Program Deret_Array;
   var
   num : array[1..100] of longint;
   i, j, n, batas : integer;
begin
   Write('Masukan Batas Nilai : ');
   readln(n);
   num[1]:=1;
   writeln(1);
   for i:=1 to n do
      begin
      batas:=(i+1) div 2;
      if not odd(i) then
         num[batas+1]:=num[batas]*2;
         for j:=batas downto 2 do
            num[j]:=num[j]+num[j-1];
         for j:=1 to batas do
            write(num[j]);

      if not odd(i) then write(num[batas+1]);
         for j:=batas downto 1 do
            write(num[j]);
      writeln;
      end;
end.