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.
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