Turbo pascal- 6 aus 49 < Algorithmen < Schule < Informatik < Vorhilfe
|
| Status: |
(Frage) beantwortet  | | Datum: | 18:24 Fr 30.11.2007 | | Autor: | Bayer04 |
| Aufgabe | | programmieren Sie ein programm dass 6 Zahlen aus 49 möglichen ausgibt ohne dass die 6 zahlen doppelt vorkommen dürfen (Lottoziehung)! |
hi,
ich habe dieses jahr angefangen mit informatik..habe es als grundfach am gymmi
bisher haben wir "einfachere" programme gemacht aber diese soll ich alleine als zusatzaufgabe machen und nächste stunde allen präsentiern..
mein problem ist, dass ich bisher keine ansätze hab wie ich an die lösung rangehn könnte
hoffe ihr könnt mir da helfen...
bin für jeden ansatz dankbar =)
mfG bayer04
|
|
| |
|
Hallo Bayer04,
> programmieren Sie ein programm dass 6 Zahlen aus 49
> möglichen ausgibt ohne dass die 6 zahlen doppelt vorkommen
> dürfen (Lottoziehung)!
> mein problem ist, dass ich bisher keine ansätze hab wie
> ich an die lösung rangehn könnte
> hoffe ihr könnt mir da helfen...
> bin für jeden ansatz dankbar =)
Ich habe schon ziemlich lange nichts mehr mit Turbo Pascal gemacht. Ein möglicher Ansatz wäre dir mittels der random()-Funktion von Pascal Zahlen von 0 bis 7, 8 bis 15, .... 40 bis 48 generieren zu lassen. Ich bin mir nicht mehr sicher welche Parameter random entgegennahm. Aber wenn es keine Bereiche wie 8 bis 15 zuläßt, kannst du die Funktion in etwas so aufrufen: random(8) + 40, um eine Zufallszahl aus 40 bis 48 zu bekommen. Ein 6-maliger Aufruf von random liefert dir dann deine Zahlen (ist zwar nicht wirklich zufällig aber das ist random ja sowieso nicht  ).
Ein anderer Ansatz wäre ein Boolesches Array mit 49 Variablen. Mittels random(49) (oder war's random(48)? schau auf jeden Fall nochmal in die Doku) kannst du auf eine Zelle des Feldes zugreifen und diese z.B. auf True setzen. Alle Zellen, die auf True sind, sind Zufallszahlen, die du schon gewählt hast. Also sowas wie:
if(ArrayGewaehlteZahl[random(49)] = true then blablabla
Na ja, das sind so die Basisideen. Die Details mit random & Co. stehen ja in der Dokumentation von Turbo Pascal.
Viele Grüße
Karl
|
|
|
|
