Labyrinth

**Saminem**

Moin Leute
stelle mal seit langem wieder mal ne Frage.
HAben dies mal in Informatik die Aufgabe bekommen ein Labyrinth zu zeichnen
und dieses Labyrinth soll dann autonom gelöst werden.
Hier zu hat uns unser Lehrer erklärt wie wir einen stack programmieren.
Bei mir gibt es aber schon beim zeichnen eines Labyrinthes ein Problem hier mal der quellecode.

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm1.Button1Click(Sender: TObject);

var n,hoehe,breite,hoehe1,breite1 :integer;

begin

  hoehe1:= trunc(image1.height / (strtoint(edit1.Text)));

  breite1:= trunc(image1.width / strtoint(edit1.Text));

  hoehe:= trunc(image1.height / (strtoint(edit1.Text)));

  breite:= trunc(image1.width / strtoint(edit1.Text));

  For n:=0 to strtoint(edit1.Text) do

  begin

  image1.Canvas.Rectangle(breite,hoehe,(image1.width - breite),(image1.height - hoehe));

  breite:=breite1 +  breite;

  hoehe:=hoehe1 + hoehe;

  end;

end;

Das Problem ist einfach das er nicht zeichnet liegt es villeicht an der for schleife und wäre hier eine repeat schleife besser
Danke schon mal im vorraus

Labyrinth

Labyrinth

Forumregeln