Trójkąty z gwiazdek rekurencyjnie.

Możecie mnie naprowadzić jakoś ja rekurencyjnie zrobić z gwiazdek poniższy wzór?
Przykład dla n=5:

*****
****
***
**
*

 
program zs;

{$APPTYPE CONSOLE}

uses
  SysUtils;
function gwiazdki(n:integer):integer;
  var
  i:integer;
  begin
    if (n<>1) then result:=gwiazdki(n-1);
    write('*');
  end;
var
  n:integer;
begin
  writeln('Podaj N:');
  readln(n);
  gwiazdki(n);
  readln;
end.

procedure gwiazdki(n:integer);
var i:integer;
begin
    if n>0 then
    begin
      for i=1 to n Write('*');
      WriteLn;
      gwiazdki(n-1);
    end;
end;

Zapomniałem dodać jeszcze, że w programie nie można użyć pętli

Więc potrzebujesz dodać jeszcze jeden parametr.

procedure StarsLine(ALength: Integer);
begin
  if ALength > 0 then
  begin
    WriteLn(StringOfChar('*', ALength));
    StarsLine(ALength - 1);
  end;
end;

@morodis - nie ma pętli; A jeśli jej poszukać, to StringOfChar także jej nie posiada, dopiero użyty w niej FillChar gdzieś tam na najniższym poziomie ją posiada;

Przykład bez pętli i funkcji je maskujących:

procedure StarsLine(ALength, AStarIdx: Integer);
begin
  if ALength = 0 then Exit();

  if AStarIdx > ALength then
  begin
    WriteLn();
    StarsLine(ALength - 1, 1);
  end
  else
  begin
    Write('*');
    StarsLine(ALength, AStarIdx + 1);
  end;
end;

Gdyby posłużyć się funkcją IfThen z modułu StrUtils, kod skróci się do poniższej postaci:

uses
  StrUtils;

  procedure StarsLine(ALength, AStarIdx: Integer);
  begin
    if ALength = 0 then Exit();

    Write(IfThen(AStarIdx > ALength, #10, '*'));

    if AStarIdx > ALength then
      StarsLine(ALength - 1, 1)
    else
      StarsLine(ALength, AStarIdx + 1);
  end;

Można też użyć stałej tablicy znaków, indeksowanej typem Boolean, jednak to redundantne; Szkoda, że w Delphi czy Free Pascalu nie wymyślili jeszcze operatora trójargumentowego...

Dorzućmy jeszcze jeden parametr i IfThen z modułu Math, a wyjdzie jeszcze krócej:

uses
  StrUtils, Math;

  procedure StarsLine(ALength, AStarIdx: Integer; AEoL: Boolean);
  begin
    if ALength = 0 then Exit();

    Write(IfThen(AEoL, #10, '*'));
    StarsLine(IfThen(AEoL, ALength - 1, ALength), IfThen(AEoL, 1, AStarIdx + 1), AStarIdx = ALength);
  end;

Nie no żartuję - wyszedł potwór.