Delphi Schulaufgaben

[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: for i := variable_x to variable_y do ...

[ridom]

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 ;

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

[mkinzler]

Verwende 2 innere Schleifen

Delphi-Quellcode:

Äussere Schleife
    Innere Schleife Leerzeichen
       Ausgabe Leerzeichen
    Innere Schleife Ende
    Innere Schleife x
       Ausgabe x
    Innere Schleife Ende
Äussere Schleife Ende

[himitsu]

Tipp: Entweder über Copy oder Delete die Leerzeichen je durchgang entfernen und über + die 'xx' hinzufügen

oder DupeString und etwas Mathematik

[edit]
OK, oder über zusätzliche Schleifen das machen, was DupeString für einen machen würde, ala mkinzlers Vorschlag