Zahlen 1-4 mischen

[Skyrunner2]

wie kann ich am besten die zahlen von 1 bis 4 mischen?

Delphi-Quellcode:

for i:=0 to 3 do
  liste[i]:=i+1;
  
randomize;
i:=random(3);
j:=random(3);
hlp:=liste[i];
liste[i]:=liste[j];
liste[j]:=hlp;

geht irgent wie nicht...

[tinibeenie]

Hallo Skyrunner2!
Damit du die Zahlen von 1-4 bekommst, musst du es so machen:

Delphi-Quellcode:

i:=random(4)+1;
j:=random(4)+1;

Sonst werden die Zahlen von 0-3 gemischt.

[Khabarakh]

Zitat von tinibeenie:

Hallo Skyrunner2!
Damit du die Zahlen von 1-4 bekommst, musst du es so machen:

Delphi-Quellcode:

i:=random(4)+1;
j:=random(4)+1;

Sonst werden die Zahlen von 0-3 gemischt.

Im Beispiel greift er aber nicht auf den Wert sondern den Index zu und der beginnt eben mit 0. Einst ist dennoch richtig: Random(x) ist von 0 bis x-1, also

Delphi-Quellcode:

i:=random(4);
j:=random(4);

Außerdem randomize nie mehrmals aufrufen!
Sonst kann ich mit

Zitat:

geht irgendwie nicht...

nicht viel anfangen.

[Skyrunner2]

ah danke, aber habe das problem schon ander gelöst und funktioniert perfekt...


wenn jemand eine funktion haben will um eine TQueue Aufzumischen und ein Zufälliges element auszspucken haben will:

Delphi-Quellcode:

function RandomListItem(Q:TQueue):Pointer;
var i:integer;
    BackupQ:TQueue;
begin
LogForm.APPEND('########Tmaze.PrimGenerator.RandomListItem########');
   BackupQ:=TQueue.Create;
   randomize;
   for i:=0 to random(Q.Count) do
        BackupQ.Push(Q.Pop);
   LogForm.APPEND('.RandomListItem ## 1st loop');
   for i:=0 to BackupQ.Count-1 do
        Q.Push(BackupQ.pop);
   Backupq.Free;
   RandomListItem:=Q.Pop;
end;

hehe ohne Backupq.Free;geht memory nutzung ganz ganz schnell hoch!