Delphi Schulaufgaben

[ridom]

So habe mal ganz lange nachgedacht und bin zum Entschluss gekommen brauche nur eine Schleife

Code:

var i, hoehe: integer;
    Leerzeichen, Zeile, zeichen: string[100];
begin
  zeichen:= edit1.Text;
  hoehe:= 7;
  for i:=hoehe downto 1 do
    begin
        Leerzeichen := stringofchar (' ', i-1);
        zeile := zeile + zeichen;
        memo1.Lines.Add(Leerzeichen + zeile)
    end;
end;

und Bums es hat funktioniert nur den Baumstamm habe ich nicht hinbekommen also der Baum sieht immoment so aus

Code:

   x
  xxx
 xxxxx
xxxxxxx

ok eher eine Pyramide aber ist denk ich mal Grundsätzlich richtig

Vielen Dank nochmal für eure Hilfe =)

[Luckie]

Zitat von ridom:

nur den Baumstamm habe ich nicht hinbekommen

Was hindert dich daran den Stamm außerhalb der Schleife zu zeichnen?

[ridom]

Stimmt O.o ach man manchmal siet man den Wald vor lauter Bäumen nicht xD


Edit: ehm kann ich das thema iwie selbst schließen falls nicht könnte das ein Mod für mich tun =) und danke noch einmal für eure hilfe