Pyramide zeichnen

[me2u]

Aaaah, jetzt hab ichs geschnallt Danke !

Nur das Doofe daran ist jetzt, dass in der ersten Zeile 3 Sterne stehen.

Delphi-Quellcode:

for i := 0 to 30 do 
  Memo1.Lines.Add(StringOfChar(' ', 30 - i) + StringOfChar('*', 1 + i * 2));

Habe es jetzt so gelöst:

Delphi-Quellcode:

for i := 0 to 30 do 
  Memo1.Lines.Add(StringOfChar(' ', 30 - i) + StringOfChar('*', -1 + i * 2));

Ich weiß ehrlich gesagt nicht genau WIESO das jetzt so funktioniert, aber es sieht gut aus

http://www.directupload.net/images/070315/QK9tjzRp.jpg

Danke, ihr seid die Geilsten !


[edit] Vergesst es Hab i falsch gehabt, fing an mit for i := 1 und nicht 0. Deshalb war die Rechnung falsch. Stimmt also alles, DANKE [/edit]