Also soweit bin ich schon, nur weiter komm ich nicht, wie kann ich das in die andere richtung machen?
Delphi-Quellcode:
program dreieck_links;
{$APPTYPE CONSOLE}
uses SysUtils;
var
s, i, x, y, z: Integer;
begin
Write('Wieviel Sterne: ');
ReadLn(s);
WriteLn;
x := 0;
z := s;
for i := 0 to s - 1 do
begin
for y := 0 to z - 1 do
Write('*');
x := x + 1;
z := z - 2;
WriteLn;
for y := 0 to x - 1 do
Write(' ');
end;
ReadLn;
end.
Danke UC