program segitiga_pascal;
uses wincrt;
type pas=array [1..20,1..20] of longint;
var pascal : pas;
i,j,n : integer;
begin
pascal[1,1]:=1;
write('Banyak Level :');readln(n);{:=10;}
for i:=2 to n do
begin
pascal[i,1]:=1;
Pascal[i,i]:=1;
for j:=2 to i-1 do
pascal[i,j]:=pascal[i-1,j-1]+pascal[i-1,j];
end;
{write(pascal[2,1],'');
writeln; }
for i:=1 to n do
begin
for j:=1 to i do
write(pascal[i,j]);
writeln;
end;
end.
Jika program diatas Kita RUN maka akan menghasilkan output seperti dibawah ini :
sumber : http://www.pascalsourcecode.co.cc/2009/05/segitiga-pascal.html
Categories:
Bahasa Pemrograman