Also irgendwie bin ich einfach nur ein bisschen zu grau um mitzubekommen warum das irgendwie nicht geht
Habe jetzt folgendes:
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 //Funktion für oberen Teil
begin
for y := 0 to z - 1 do
Write('*');
x := x + 1;
z := z - 2;
if z >= 0 then
begin
WriteLn;
for y := 0 to x - 1 do
Write(' ');
end;
end;
for i := 0 to s do //Funktion für unteren Teil
begin
for y := 0 to z - 1 do
Write('*');
x := x - 1;
z := z + 2;
if z <= s then
begin
WriteLn;
for y := 0 to x - 1 do
Write(' ');
end;
end;
ReadLn;
end.
Also wie gesagt, der obere Teil funktioniert einwandfrei, nur beim unteren Teil kommen irgendwie Leerzeilen dazu (keine Ahnung warum) und es wird nicht ganz das gemacht was ich will (es wird die eine Zeile doppelt ausgegeben).
Hat vielleicht irgendjemand eine Ahnung warum? Es ärgert mich zwar selber, aber ich probiere das jetzt schon seit fast einer Stunde und ich komme nur in kleinen Abständen vorran und jetzt kein bisschen mehr...
Danke UC