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.