Segitiga Pascal

SUdah banyak artikel tentang Serial Number Windows 7, kini Saya akan membahas mengenai segitiga pascal metode rekursif dengan pascal. Kasus yang diberikan di sini bukan segitiga pascal biasa, melainkan segitiga pascal yang dicerminkan terhadap sumbu x. Untuk kasus ini, segitiga pascal tidak menggunakan angka melainkan bintang. Jika teman - teman ingin segitiga pascal yang menggunakan angka, maka tinggal mengubah kode program bagian yang berisi bintang dan digantikan dengan angka serta tentunya angka yang ditampilkan menggunakan algoritma segitiga pascal. Untuk lebih jelas, kasus yang diberikan adalah sebagai berikut.

Masukan tinggi : 3

*
**
***
***
**
*

Tak perlu berlama - lama langsung saja Saya berikan kode programnya. Kode program ini adalah asli buatan ToPu, sehingga bila ada teman - teman yang akan menerbitkan ulang artikel ini, jangan lupa untuk mencantumkan sumber : <a href="http://tutorial-pembelajaran.blogspot.com/">Tutorial Pembelajaran</a>

program bintang;
{Terima kasih telah menggunakan program ini. http://tutorial-pembelajaran.blogspot.com }
uses crt;
procedure bin_asc(m,n:integer);
var i:integer;
begin
  if n>1 then bin_asc(m,n-1);
  for i:=1 to n do begin
    gotoxy(m+1+n-2*i,n+1);
    write('* ');
  end;
  writeln;
end;
procedure bin_desc(m,n:integer);
var i: integer;
begin
  for i:=1 to n do begin
    gotoxy(m-1+i*2-n,m*2+2-n);
    write('* ');
  end;
  writeln;
  if n>1 then bin_desc(m,n-1);
end;
var n:integer;
begin clrscr;
  write('Masukan tinggi : ');readln(n);
  writeln;
  bin_asc(n,n);
  bin_desc(n,n);
  readln();
end.

Sekain dan semoga bermanfaat Happy