Delphi Problem

Question

2

Delphi Problem

Frage von

rajaxxrajaxx 29.07.2009 - 20:36

ich möchte die Zahlen von 1-26 (jede einmal) in zufälliger reihenfolge in ein array speichern und habe dafür eine repeat until schleife geschrieben:

                         repeat
                          rnd:=random(25)+1;//zufallszahlerzeugen
                          if  (pos(IntToStr(rnd),s)=0) // f&uuml;gt zufallszahl dem array hinzu, falls diese zufallszahl bis jetzt noch nicht verwendet wurde
                          then begin
                                a[counter]:=rnd;
                                writeln(counter,&#039;: &#039;,rnd);
                                s:=s+IntToStr(rnd)+&#039; &#039;; // zufallszahl in einem string abspeichern, damit sie nicht nochmal ins array geschrieben wird
                                counter:=counter+1; // wenn neue zufallszahl dem array hinzugef&uuml;gt wurde, wird der z&auml;hler erh&ouml;ht
                               end
                          until (counter=26);

allerdings schafft es die schleife nicht bis über 17-21 zufallszahlen. woran kann das liegen? oder dauert es nur unheimlich lange, bis die restlichen, noch nicht eingefügten zufallszahlen berechnet wurden?

Fragen zu gleichen Themen finden: programmieren; Informatik,; Programmierung; Delphi; Informatik, + Programmierung

Answer 1

Deine Antwort

Hallo!

Bitte beachte, dass Deine Antwort ein wirklich hilfreicher Rat für den Fragesteller ist.
Einer Antwort kann nur maximal ein Link beigefügt werden.
Antworten mit mehreren Links werden als Spam interpretiert und nicht veröffentlicht.

Vielen Dank, auch im Namen des Fragestellers,
Dein gutefrage.net-Team

answer

Answer 2 · 2009-07-30T12:38:26

1

Antwort von

jairohmsfordjairohmsford 30.07.2009 - 12:38

Nein, random und randomize arbeiten in Delphi einwandfrei. Dein Programm würde prinzipiell seine Aufgabe erfüllen.
Dein Problem ist, dass du die ermittelten Zufallszahlen in einem String abspeicherst und diesen String auf das Vorhandensein einer Zahl absuchst.
Ich weiß nicht genau, welches Zeichen du zum Trennen benutzt (&#039), aber der Fehler liegt wohl einfach darin, dass mit jeder zweistelligen Zahl ja auch bis zu zwei einstellige Zahlen in deinem String gespeichert werden.
Nimm einmal an, random liefert dir die Zahl 25. Dann wird deine Suche über pos auch dann fündig, wenn du beim nächsten Mal eine 2 oder eine 5 erhältst, obwohl diese beiden Zahlen noch gar nicht im String enthalten sind.
Eine Lösung wäre es z.B., die Zahlen grundsätzlich 2stellig (mit evtl. führender Null) abzuspeichern und natürlich auch abzufragen.
Einfacher scheint es mir aber zu sein, wenn du statt eines Strings eine Menge (set) benutzt. Dann brauchst du auch keinen Trenner mehr.

Kommentar von

rajaxxrajaxx 31.07.2009 - 20:54

vielen dank für die antwort! ich glaube, ich suche lieber im string nach "<leerzeichen>zahl" statt nach "zahl"!

Answer 3 · 2009-07-30T12:38:26

1

Antwort von

jairohmsfordjairohmsford 30.07.2009 - 12:38

Nein, random und randomize arbeiten in Delphi einwandfrei. Dein Programm würde prinzipiell seine Aufgabe erfüllen.
Dein Problem ist, dass du die ermittelten Zufallszahlen in einem String abspeicherst und diesen String auf das Vorhandensein einer Zahl absuchst.
Ich weiß nicht genau, welches Zeichen du zum Trennen benutzt (&#039), aber der Fehler liegt wohl einfach darin, dass mit jeder zweistelligen Zahl ja auch bis zu zwei einstellige Zahlen in deinem String gespeichert werden.
Nimm einmal an, random liefert dir die Zahl 25. Dann wird deine Suche über pos auch dann fündig, wenn du beim nächsten Mal eine 2 oder eine 5 erhältst, obwohl diese beiden Zahlen noch gar nicht im String enthalten sind.
Eine Lösung wäre es z.B., die Zahlen grundsätzlich 2stellig (mit evtl. führender Null) abzuspeichern und natürlich auch abzufragen.
Einfacher scheint es mir aber zu sein, wenn du statt eines Strings eine Menge (set) benutzt. Dann brauchst du auch keinen Trenner mehr.

Kommentar von

rajaxxrajaxx 31.07.2009 - 20:54

vielen dank für die antwort! ich glaube, ich suche lieber im string nach "<leerzeichen>zahl" statt nach "zahl"!

Answer 4 · 2009-07-30T10:53:34

0

Antwort von

saarlodri 30.07.2009 - 10:53

Ich denke mal es wird daran liegen, dass die Randomizefunktion oft gleiche Zahlen liefert, d.h. wenn du 21 Zahlen schon hast, d.h. nur noch 5 überhaupt den Programmfluss beeinflussen, dann kann dies unter Umständen lange dauern, da die Randomizefunktion immer wieder schon vorhandene Zahlen ausspuckt.

Hoffe diese Erklärung hilft dir. Es liegt also mit großer Wahrscheinlichkeit an der Random-Funktion.

Answer 5 · 2009-07-30T10:53:34

0

Antwort von

saarlodri 30.07.2009 - 10:53

Ich denke mal es wird daran liegen, dass die Randomizefunktion oft gleiche Zahlen liefert, d.h. wenn du 21 Zahlen schon hast, d.h. nur noch 5 überhaupt den Programmfluss beeinflussen, dann kann dies unter Umständen lange dauern, da die Randomizefunktion immer wieder schon vorhandene Zahlen ausspuckt.

Hoffe diese Erklärung hilft dir. Es liegt also mit großer Wahrscheinlichkeit an der Random-Funktion.

Answer 6 · 2009-07-29T20:41:02

0

Antwort von

Dory1Dory1 29.07.2009 - 20:41

die randomize funktion von delphi is einfach nur fürn ar*ch.. aber nicht nur die. das is auch in anderen programmiersprachen assig gelöst

Answer 7 · 2009-07-29T20:41:02

0

Antwort von

Dory1Dory1 29.07.2009 - 20:41

die randomize funktion von delphi is einfach nur fürn ar*ch.. aber nicht nur die. das is auch in anderen programmiersprachen assig gelöst

Delphi Problem

Antworten (3)

Verwandte Fragen

Noch nicht den richtigen Rat gefunden?

Diese Frage teilen

Ähnliche Fragen

Verwandte Bilder