Wednesday, May 23, 2012

Segitiga Pascal

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

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



program bintang;

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

Post a Comment

Followers

  © Blogger template 'A Click Apart' by Ourblogtemplates.com 2008

Back to TOP