kmz* online shared repository - Viewing Text File

1 program segitiga_pascal;
2 uses wincrt;
3 var input,i,j:word; isi:array[0..20,0..21] of word;
4 begin
5 writeln('Masukkan berapa tingkat segitiga pascal !');
6 readln(input);
7 isi[0,1]:=1;
8 for i:=1 to input do
9 begin
10 for j:=1 to i+1 do
11 begin
12 isi[i,j]:=isi[i-1,j]+isi[i-1,j-1];
13 write(isi[i,j],' ');
14 end;
15 writeln;
16 end;
17 end.

http://kamil.web.id/wp-content/uploads/2008/10/pascal-rekursi.pas