Anonymous user
Pascal's triangle: Difference between revisions
Added DWScript
(Added DWScript) |
|||
Line 451:
* _ * _ * _ * _ * _ * _ * _ *
* * * * * * * * * * * * * * * *</pre>
=={{header|DWScript}}==
Doesn't print anything for negative or null values.
<lang delphi>procedure Pascal(r : Integer);
var
i, c, k : Integer;
begin
for i:=0 to r-1 do begin
c:=1;
for k:=0 to i do begin
Print(Format('%4d', [c]));
c:=(c*(i-k)) div (k+1);
end;
PrintLn('');
end;
end;
Pascal(9);</lang>
Output:<pre> 1
1 1
1 2 1
1 3 3 1
1 4 6 4 1
1 5 10 10 5 1
1 6 15 20 15 6 1
1 7 21 35 35 21 7 1
1 8 28 56 70 56 28 8 1</pre>
=={{header|E}}==
| |||