gwiazdki rekurencyjnie

0

Możecie mi podpowiedzieć co muszę zmienić, żeby poniższy program robił gwiazdki w odwrotnej kolejności?
np. dla 5

 
*
**
***
****
*****
 program Lista2_Zad2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

procedure rzadek(ile: integer; znak: char);
begin
  if ile>0 then
  begin
    rzadek(ile-1, znak);
    write(znak)
  end
end;
procedure trojkat(ileRz: integer; znak: char);
begin
  if ileRz>0 then
  begin
    rzadek(ileRz, znak);
    writeln;
    trojkat(ileRz-1, znak)
  end
end;

var
  n:integer;

begin
  writeln('Podaj N:');
  readln(n);
  trojkat(n, '*');

  readln
end.

0

Jeżeli nie jesteś w stanie tego "rozkminić" samodzielnie to nie powinieneś zaliczyć przedmiotu.
Głupota jest najdroższą rzeczą na świecie, za nią się płaci wielokrotnie przez całe życie, zastanów się czy cię na nią stać.
Jeżeli stać to zacznij ćwiczyć płacenie - napisz w dziale ogłoszenia drobne.
Jeżeli nie stać to bierz się za naukę.

0

Po 5-godzinnej dedukcji stwierdzam, że wystarczy jak zamienisz minusy na plusy.

1 użytkowników online, w tym zalogowanych: 0, gości: 1