Delphi Schulaufgaben

[blackfin]

Lies mal, was dir geraten wurde, du brauchst zwei innere Schleifen.

Zitat:

auch wenn den Compiler die Rechtschreibung nicht interessiert

DAS wäre doch mal ein Killerfeature für Delphi XE2!
Dann liesse sich allerdings kein einziges Programm mehr kompilieren...(Compiler error. unknown language: 'TMyKunde')

[mkinzler]

Es fehlt auch die 1. innere Schleife (Leerzeichen)

[Namenloser]

Die Schleife for i:= 0 to 0 do wird eh nur einmal durchlaufen (von 0 bis 0), also kannst du sie auch weglassen.

Wie gesagt, mit jeder Zeile werden es 2 X mehr. Ergo muss die Obergrenze für die innere Schleife mit jedem Durchgang um 2 erhöht werden. Überlege dir die Abhängigkeit zwischen der Baumbreite und dem Zeilenindex. Du kannst Variablen als Schleifen-Begrenzungen verwenden.

Das sind eigentlich alle Tipps, die ich dir geben kann, ohne die Lösung vorwegzunehmen, was wir hier im Forum selbstverständlich nicht machen. Ich bin aber sicher, dass du mit etwas Nachdenken die Lösung auch selbst herausfindest... und wenn nicht, schlaf mal eine Nacht drüber und probier es morgen noch mal.

[ridom]

-.- Joa probier es ja zu beherzigen aber iwie bin ich immer noch auf dem falschen Dampfer

Also habe mir das jetzt so gedacht an dem Bsp von mkinzler

Code:

Äußere Schleife sagt wie oft die inneren durchlaufen sollen
     1.Innere Schleife sagt wie oft das Leerzeichen gezählt wird
      >>> Leerzeichen wird ausgegeben
     1.Innere schleife ende
     
     2.Innere Anzahl wie oft das Zeichen gezählt wird
      >>> Zeichen wird ausgegeben
     2.Schleife ende
Äußere Schleife Ende

Hoffe das ich das jetzt wenigstens verstanden habe

Und danke schonmal das ihr soviel Geduld aufbringt hatte leider eine lange Pause im programmieren

[mkinzler]

Ja. Wobei die Anzahlen ja in Beziehung stehen

[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