Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  Re: Pyramide zeichnen

    Delphi
    by himitsu, 15. Mär 2007
  damit es gleichmäßig wird, solltest du eher in ganzen Zeichen rechnen.
  
  du kannst ja mit schrittgröße und Schriftart experimentieren.
  
  z.B. Courier und
  for i := 0 to 30 do
  Memo1.Lines.Add(StringOfChar(' ', 30 - i) + StringOfChar('*', 1 + i * 2));
• Forum: Object-Pascal / Delphi-Language

  Re: Pyramide zeichnen

    Delphi
    by himitsu, 15. Mär 2007
  StringOfChar?
  
  i = 1 to zeilen
  
  i-mal für die Sterne
  und (zeilen - i)-mal für die Leerzeichen davor
  
  for i := 1 to 30 do
  Memo1.Lines.Add(StringOfChar(' ', 30 - i) + StringOfChar('*', i));