Sternchenmuster erstellen

[Phantom1]

Hier ist noch eine möglichkeit von mir:

Delphi-Quellcode:

program dreieck_links;

{$APPTYPE CONSOLE}

uses SysUtils;

var
  max: Byte;

procedure DrawStars(anz: Byte);
var Stars: String;
begin
  Stars:=StringOfChar(' ', (max-anz) div 2) + StringOfChar('*', anz);
  WriteLn(Stars);
  if anz>1 then begin
    DrawStars(anz-2);
    WriteLn(Stars);
  end;
end;

begin
  Write('Wieviel Sterne: ');
  ReadLn(max);
  // Wir brauchen eine ungerade Anzahl, dass wir in der Mitte einen Stern bekommen
  if max mod 2 = 0 then Inc(max, 1);
  DrawStars(Max);
  ReadLn;
end.