Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Multimedia (https://www.delphipraxis.net/16-multimedia/)
-   -   Delphi Zufallslabyrinth (https://www.delphipraxis.net/10594-zufallslabyrinth.html)

Matze 21. Okt 2003 19:34


Zufallslabyrinth
 
Hi!

Ich habe im Informatikunterricht so ein Labyrinth geproggt, wo der PC berechnen, auf welchen Wegen ein Quadrat aus dem Laby herauskommt.

Das Laby besteht aus einem 2-dimensionen Array.
(Buchstabe "W" für Wand und "F" für freie Fläche)

Es hat auf jeder Seite einen Ausgang (also insgesamt 4 :mrgreen: )

Gibt es die Möglichkeit, das Laby per Zuffal sinnvoll zu generieren?

Ich wäre über ein paar Ansätze dankbar. :thumb:

Mirilin 21. Okt 2003 19:47

Re: Zufallslabyrinth
 
:hi: Matze

Klick


[Edit]Willst du, dass es immer einen Weg gibt?

Matze 21. Okt 2003 19:52

Re: Zufallslabyrinth
 
Danke für den Link!
nein, es dürfen ruhig mehrere Wege sein!

Matze 21. Okt 2003 19:55

Re: Zufallslabyrinth
 
Das Programm von dem Link löst das aber auf eine andere Weise. :gruebel:

Mirilin 21. Okt 2003 19:56

Re: Zufallslabyrinth
 
Also ich meinte, es MUSS einen Weg geben. Also, lösbar sein.

Anzahl der Wege >= 1

Matze 21. Okt 2003 19:58

Re: Zufallslabyrinth
 
Ja, es sollte mindestens eine Lösung geben!

Am besten wäre es, wenn es auf jeder Seite einen Ausgang hätte und es so mind. 4 Wege gibt.

Matze 22. Okt 2003 16:37

Re: Zufallslabyrinth
 
Also, vielleicht versteht ihr es so besser. Mein Laby-Array programiere ich so:
Delphi-Quellcode:
Laby : array [1..Zeilen, 1..Spalten] of char =
  ((W,W,W,W,W,W,W,W,W,W,W,W,F,W,W),
   (W,W,F,F,F,F,F,F,F,F,F,F,F,F,W),
   (W,W,W,F,W,W,F,W,W,W,W,F,W,W,W),
   (W,W,W,F,F,F,F,W,W,W,W,W,W,W,W),
   (W,W,W,W,F,W,F,F,F,F,F,F,F,F,W),
   (W,W,W,F,F,W,W,W,W,F,W,W,W,F,W),
   (F,F,F,F,W,W,F,F,F,F,W,W,F,F,F),
   (W,W,W,F,W,W,F,W,W,F,F,W,W,W,W),
   (W,W,W,F,F,W,F,F,F,W,F,W,W,W,W),
   (W,W,W,W,W,W,F,W,W,W,W,W,W,W,W));
Nun ist F der Weg und W die Mauer. Dann sollte per Zuffalsgenerator ein sinnvolles Laby entstehen. :coder:


Alle Zeitangaben in WEZ +1. Es ist jetzt 15:47 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz