Guten Tag liebe Programier WWWler !!!
Ich soll ein Lotto programm (6 aus 49) schreiben das mir erst den Lottoschein zeigt, ich dann 6 Zahlen tippen kann und dann sollen 6 Zufallszahlen aus 49 zahlen erscheinen. Es dürfen keine Zahlen doppelt erscheinen und wenn möglich soll es mit dem dreieckstausch,randomize oder mit hilfe von for-schleifen gelöst werden. Könntet ihr mir denn Programmcode scchreiben oder sagen wo ich so etwas finden kann?
Danke!!
Hallo…
Ist jetzt einfach nur so daher geschrieben, kann also kleinen Fehler haben (bin müde!!!) 
var
Zahlen : Array[1..6] of Byte;
procedure ZieheZahlen;
var
i : Integer;
zahl : byte;
begin
for i := 1 to 6 do
Zahlen[i] := 0;
randomize;
for i := 1 to 6 do
begin
repeat
zahl := random(48) + 1;
until not (zahl in Zahlen);
Zahlen[i] := zahl;
end;
end;
Gruß
Stage
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Ebenfalls einen wunderschönen guten Tag, Andre,
Ich soll ein Lotto programm (6 aus 49) schreiben
aha
Könntet ihr mir denn Programmcode scchreiben
können könnte ich das zweifellos, die Frage ist nur, ob ich das auch will.
oder sagen wo ich so etwas finden kann?
mhh, was mir nicht klar geworden ist: warum schreibst Du das Programm nicht einfach selbst?
Gruß
Martin
Danke du hast mir sehr geholfen und was ich sagen wollte das Programm ist für Pascal !!!
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]