Delphi Schulaufgaben

[ridom]

Hallo Leute hoffe erstmal das ich in der richtigen Kategorie bin

Ich habe Delphi in der Schule und folgendes Problem als Aufgabe haben wir :


Versuchen Sie mit Hilfe einer geschachtelten For Anweisung ein Tannenbaum auf den Bildschirm zu Zeichen die aus vielen
gleichen frei wählbaren Zeichen besteht

Als Rechteck bekommen ich das ganze hin aber als Baum keine ahnung kann mir jmd helfen

soll also so aussehen:

------x
-----xxx
----xxxxx
---xxxxxxx
------x

[mkinzler]

Ist so ähnlich wie ein Rechteck, nur das die innere Schleife 3 mit variablen Grenzen sind

[Prototypjack]

Moin,

Soweit ich das sehe, sind es pro Zeile 2 Zeichen mehr. Das heißt, du zählst bei der inneren Schleife, bis auf das letzte mal, immer bis zum Index der äußeren Schleife + 2.

Hilft dir das schon?

Edit: Das ist so gesehen jetzt natürlich nicht mehr ganz so sinnvoll / richtig, da der Baum jetzt anders aussieht ;) Ist aber trotzdem kein Problem, da die Leerräume pro Zeile um 1 wachsen -> Schleife-Grenze ;)

Grüße,
Max

[ridom]

ehm iwie weiss ich grad nicht was du meinst so sieht mein Rechteck aus

Code:

procedure TForm2.Button2Click(Sender: TObject);
var i,j: integer;
    ergebniss, zeichen: string[100];
begin
  zeichen:= edit1.text;
  for i:= 0 to 6 do
    begin
      ergebniss:=' ';
        for j:= 0 to 12  do
          begin
            ergebniss:= ergebniss + zeichen;
          end;
      memo1.Lines.Add(ergebniss);
    end;
end;

[mkinzler]

Wie gesagt, musst du die innere anpassen
-Leerzeichen (weniger werdend)
-Xe (mehr werdend)

[Namenloser]

Tipp: Du kannst als Start- und Endwerte von Schleifen auch Variablen angeben. Also z.B:

Delphi-Quellcode:

for i := variable_x to variable_y do ...

[ridom]

:wall: checks grad ehrlich gesagt nicht

[mkinzler]

Code:

   
   x
  xxx
 xxxxx
xxxxxxx
   x
   x

3 leer; 1 x
2 leer; 3 x
1 leer; 5 x
0 leer; 7 x
...

[XHelp]

Vllt ist es sich so einfacher vorzustellen:
Wenn die Baumkrone 4 Zeilen hoch sein muss, dann ist die längste Zeile 2*(4-1) + 1=7 Zeichen lang.
1 Zeile: 3 leer, 1 x, 3 leer
2 Zeile: 2 leer, 3 x, 2 leer
3 Zeile: 1 leer, 5 x, 1 leer
4 Zeile: 0 leer, 7 x, 0 leer
Leerzeichen immer -1 und x immer +2

[ridom]

Ja aber wie mache ich das den so wie ich es versuche funktioniert es definitiv nicht stehe aber auch ehrlich gesagt immoment voll aufem schlauch
da ich schon seit mehreen stunden darüber nachdenke

Code:

  for i:= 0 to 7 do
    begin
      ergebniss:='       ';
      ergebniss:= ergebniss - ergebniss ;

:pale: glaube das ist immoment völlig falsch was ich versuche da ich immer noch ein rechteck habe und nichtmal annähernd einen Baum