Вывод треугольника Паскаля

[ЛюдMila]

задание: вывести треугольник паскаля с заданным количеством строк. массив для треугольника расситан. но вот как его вывести - возникает проблема. максимум что придумала - такой код
//Вывод результата
for I:= 1 to N do
 begin
 S:='';
for J:= 1 to I do
s:=' '+s+ ' '+ floattostr(a[I, J])+' ';
memo1.Lines.add(s);

в memo отображается (пробелы сохранены):
  1
   1  1
    1  2  1
     1  3  3  1
      1  4  6  4  1
       1  5  10  10  5  1

как изменить код чтобы числа выводились в виде треугольника (чтобы число отступов уменьшалось сверху-вниз)?

[Sla]

Для этого тебе надо знать ширину основания

т.е. строишь треугольник
он получается у тебя прямоуголный
затем определяешь длину основания и от него пляшешь

или попытаться построить треугольник не с вершины, а с основания

[Sla]

а если сделать так?

Код:

for I:= 1 to N do
 begin
 S:='';
for J:= 1 to I do
s:=+s+ ' '+ floattostr(a[I, J])+' ';
memo1.Lines.add(s);

[Sla]

или

Код:

or I:= 1 to N do
 begin
 S:='';
for J:= N downto I do
s:=' '+s+ ' '+ floattostr(a[I, J])+' ';
memo1.Lines.add(s);

зы код не проверял
но судя по всему что треугольник уже находится в массиве, то получится перевернутый треуголник

[ЛюдMila]

а если сделать так?
Код:

for I:= 1 to N do
 begin
 S:='';
for J:= 1 to I do
s:=' '+s+ ' '+ floattostr(a[I, J])+' ';
memo1.Lines.add(s);'

выводит
  1
   1  1
    1  2  1
     1  3  3  1
      1  4  6  4  1
а если

or I:= 1 to N do
 begin
 S:='';
for J:= N downto I do
s:=' '+s+ ' '+ floattostr(a[I, J])+' ';
memo1.Lines.add(s);

то получается
      0  0  0  0  1
     0  0  0  1
    0  0  1
   0  1
  1

как бы перед первым элементом (1)указать количество пробелов (отступов) равно кол-ву строк т.е. =I, которое задается непосредственно при выполнении программы (расчет треугольника паскаля) но s – это строковый тип, нельзя изначально задать  i*s (при s=’ ‘)…как же поступить?...

[zubr]

2 варианта:
1.

Код:

function ProbelCounter(const prNumber: Integer): string;
var
  i: Integer;
begin
  Result := '';
  for i := 1 to prNumber do
  Result := Result + ' ';
end;

2.

Код:

function ProbelCounter(const prNumber: Integer): string;
var
  s: string;
begin
  SetLength(s, prNumber);
  FillChar(s[1], prNumber, 32);
  Result := s;
end;

Затем применительно к твоей задаче:

Код:

var
  k: Integer;
k := N - 1;
for I:= 1 to N do
begin
  S:=ProbelCounter(k);
  for J:= 1 to N do
  s:= s+  floattostr(a[I, J]);
  memo1.Lines.add(s);
  Dec(k);
end;

2-й вариант функции ProbelCounter будет работать быстрее, хотя возможно для данной задачи это не актуально...

[ЛюдMila]

Спасибо большое, вопросов больше нет.