Tutorial Pembelajaran dari seorang ToPu yang ingin berbagi ilmu yang telah didapatkan selama hidup secara perlahan tapi bermanfaat bagi seluruh umat manusia.
Dapatkan Update Status Terbaru dari ToPu. Follow my twitter @tatopu

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 bermanfaatHappy

Share/Bookmark

Ingin mendapatkan artikel seperti ini? Silahkan masukkan alamat email Anda untuk berlangganan.

Privacy guaranteed. We'll never share your info.

Artikel yang berhubungan :

Kritik dan saran silahkan sampaikan di sini atau di situ
Posting Selanjutnya Posting Sebelumnya Beranda

Kolom Komunitas