✔ for-schleife

[HarryXVI]

for i := 0 to 2 do begin
    Rectangle(100+i*100, 200, 200+i*100, 100);
    Rectangle(100+i*100, 300, 200+i*100, 200);
    Rectangle(100+i*100, 400, 200+i*100, 300);
    end;

Diese Schleife zeichnet einen 2D-Würfel mit 3 Quadraten. Wenn ich i um 1 erhöhe, zeichnet Delphi an der Seite 1 Reihe Quadrate mehr. Aber nach unten soll auch eine Reihe Quadrate entstehen. Hab probiert, die y-Werte (200,300,400) um i*100 zu erhöhen, aber das schlug fehl. Wie drücke ich das aus?

 

[Matthias Reitinger]

Diese Schleife zeichnet einen 2D-Würfel mit 3 Quadraten.

Ähm, was ist denn ein 2D-Würfel? Wie sieht denn das Bild aus, das rauskommt? Und was sollte rauskommen?

 

[HarryXVI]

da sollen nun rechts und unten weiterer Quadratreihen drankommen. ich möchte eine Zahl eingeben (z.B.4) die dann einen Würfel mit Kantenlänge 4 Quadrate zeichnet. Um den allgemeinen kümmere ich mich. Wie kriege ich unten weitere Quadrate dran? An der Seite funktionierts.

 

[Matthias Reitinger]

Hallo,

das ist aber trotzdem kein Würfel Egal, das Problem könnte man vermutlich so lösen (keine Garantie, da ich mit Delphi nichts am Hut habe):

for i := 0 to n-1 do begin
    for j := 0 to n-1 do begin
      Rectangle(100+i*100, 200+j*100, 200+i*100, 100+j*100);
    end;
end;

n soll dabei die eingegebene Zahl sein.

Grüße,
Matthias

 

[HarryXVI]

funktioniert, danke für deine hilfe.