Forum: Object-Pascal / Delphi-Language
Delphi
by Walgo,
2. Mär 2008
Juhu, ich habs geschafft :P
Bin jetzt endlich fertig, falls es interessieren sollte hier nochmal der entgültige Code:
for i := 0 to 5 do
begin
zw2:= 49 - i; //Jede "runde" gibt es eine Möglichkeit weniger, deshalb "-i"
zw:= Random (zw2); //hier wird nicht der wert, sondern nur der Index
//(des "Werte-Arrays") einer Zahl gezogen
zufall:=...
Forum: Object-Pascal / Delphi-Language
Delphi
by Walgo,
2. Mär 2008
Also ich bin schonmal einen Schritt weitergekommen.
Ich wollte aber nochmal bei Arrays bleiben - zumindest für heute ^^
marabu - das Problem bei deiner Prozedur ist, dass die Funktion
"RandomFrom()" nur einen Array annimt, etwas wie "(Gesamt - i)" funktioniert leider nicht :-(
So sieht mein "Werte"-Array aus:
SetLength(werte,49);
for i:= 0 to 48 do werte:=i+1;
Nach meiner...
Forum: Object-Pascal / Delphi-Language
Delphi
by Walgo,
2. Mär 2008
Alles klar,
ich glaube jetzt hab ichs ^^,
danke für die schnelle Antwort :P
gruß walgo
Forum: Object-Pascal / Delphi-Language
Delphi
by Walgo,
2. Mär 2008
Guten Morgen :P
Vielen vielen Dank für die zahlreichen Antworten!
(und Entschuldigung für die ganzen Leerzeilen in meinem Post ^^)
Ich werde mir die alternativen zu der Array Version mal genauer ansehen, die scheinen für diesen Fall hier ja um einiges besser geeignet zu sein.
Letzte Frage noch, hat jemand denn eine Idee wo genau der Wurm bei meiner Array Version ist?
Also warum er...
Forum: Object-Pascal / Delphi-Language
Delphi
by Walgo,
1. Mär 2008
Guten Abend,
ich mache momentan Delphi in Informatik und habe nebenher angefangen ein-zwei eigene Programme zu schreiben.
Darunter war auch die Idee ein "Lotto-Programm" zu schreiben - also 6 aus 49 Möglichkeiten.
Ich habe einen Array "werte" von 0 bis 48 mit den Werten 1-49 Gefüllt.
Nun soll nach jeder Ziehung die gezogene Zahl aus diesem Array entfernt werden, damit sie nicht wieder...