pyramide zeichnen

[alzaimar]

Sollt ihr das vielleicht rekusriv lösen?

Delphi-Quellcode:

Procedure ZeichneRechtecke (Var Links : Integer; Oben,  Breite, Höhe, Anzahl, MaxAnzahl : Integer);
Var
  i : Integer;
Begin
  If Anzahl<MaxAnzahl Then
    ZeichneRechtecke (Links, Oben + Höhe, Breite, Höhe, Anzahl + , MaxAnzahl1) // Erstmal die Ebene unter 'mir' zeichnen. Die
// sagt mir auch, wo 'ich' mich hinzeichnen soll
  Else
    Links := 0; // Die unterste Reihe fängt bei 0 an
  For i:=0 to Anzahl - 1 do
    ZeichneRechteck (Links+i*Breite, Oben, Breite, Höhe);
  Links := Links + Breite/2;  // Wir müssen noch der aufrufenden Ebene sagen, wo sie sich zeichnen soll.
End;

Der Aufruf ginge dann mit

Delphi-Quellcode:

Var
  Links : Integer;

Begin
  ZeichneRechtecke (Links, 0, 40,20,1,5); // Zeichnet 5 Reihen. Jedes Rechteck ist 40x20 Pixel gross.
End;