for-schleife

HarryXVI

Erfahrenes Mitglied
Code:
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?
 
7k6o-b.jpg


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.
 
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):
Code:
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
 

Neue Beiträge

Zurück