Řešení úloh s vypisováním hvězdiček, které jsme dělali na cvičení

Vypsání n hvězdiček na jeden řádek

var n, i : integer;
BEGIN
FOR i:=1 TO n DO WRITE('*');
END.

Vypsání hvězdiček do tvaru čtverce o straně n

var n, i, j : integer;
BEGIN
FOR i:=1 TO n DO
BEGIN
   FOR j:=1 TO n DO WRITE('*');
   WRITELN();
END
END.

Výsledek dopadne schematicky zhruba takle: (pro n=12)

Vypsání hvězdiček do tvaru rovnoramenného trojuhelniku o straně n zarovnaného vlevo dolů

var n, i, j : integer;
BEGIN
FOR i:=1 TO n DO
BEGIN
   FOR j:=1 TO i DO WRITE('*');
   WRITELN();
END
END.

Výsledek dopadne schematicky zhruba takle: (pro n=12)

Vypsání hvězdiček do tvaru rovnoramenného trojuhelniku o straně n zarovnaného vpravo dolů

var n, i, j : integer;
BEGIN
FOR i:=1 TO n DO
BEGIN
   FOR j:=1 TO n-i DO WRITE(' ');
   FOR j:=1 TO i DO WRITE('*');
   WRITELN();
END
END.

Výsledek dopadne schematicky zhruba takle: (pro n=12)