28 lines
642 B
ObjectPascal
28 lines
642 B
ObjectPascal
procedure Pascal(r: Integer);
|
|
var
|
|
triangle: array of array of Integer; // Зубчатый массив
|
|
|
|
begin
|
|
SetLength(triangle, r);
|
|
for var i := 0 to r - 1 do
|
|
begin
|
|
SetLength(triangle[i], i + 1);
|
|
triangle[i][0] := 1;
|
|
triangle[i][i] := 1;
|
|
|
|
if i > 1 then
|
|
for var j := 1 to i - 1 do
|
|
triangle[i][j] := triangle[i - 1][j - 1] + triangle[i - 1][j];
|
|
end;
|
|
|
|
for var i := 0 to r - 1 do
|
|
begin
|
|
write(StringOfChar(' ', (r - i) * 2));
|
|
for var j := 0 to i do
|
|
write(triangle[i][j]:4);
|
|
writeln;
|
|
end;
|
|
end;
|
|
begin
|
|
Pascal(13); // Генерация треугольника Паскаля
|
|
end.
|