Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi array mit zahlen (https://www.delphipraxis.net/56960-array-mit-zahlen.html)

Tigermoon 14. Nov 2005 09:57


array mit zahlen
 
Hallo

Ich habe ein array mit zahlen
wie kann ich die durcheinander würfeln?

hat da einer von euch ne idee?

kuss Tigermoon

storm1988 14. Nov 2005 10:01

Re: array mit zahlen
 
Ich würd einfach mit Randomize Zufallszahlen erstellen und diese dann mit deinem Zahlenarray vergleichen und das solang bis alle Zahlen im Array verglichen sind (Die verglichen Zahlen müssen dann natürlich neu abgespeichert werden).

marabu 14. Nov 2005 11:03

Re: array mit zahlen
 
Hallo Stephanie.

Wenn deine Zahlen schon feststehen, dann willst du sie vielleicht nur noch mischen:

Delphi-Quellcode:
procedure Shuffle(var a: array of integer);
var
  i, j, temp: integer;
begin
  for i := 1 to High(a) do
  begin
    j := Pred(i + Random(Length(a) - i));
    temp := a[Pred(i)];
    a[Pred(i)] := a[j];
    a[j] := temp;
  end;
end;
Grüße vom marabu

Der_Unwissende 14. Nov 2005 19:51

Re: array mit zahlen
 
Hi,
gibt sonst noch den Perfect-Shuffle (der allerdings recht langweilig regelmässig ist).
Dazu trennst du das Feld in zwei Hälften und fügst es dann abwechselnd zusammen, also z.B.
[1,2,3,4,5,6] -> [1,2,3] & [4,5,6] -> [1,4,2,5,3,6]
Halt wie das perfekte Mischen beim Kartenspiel. Und wenn du das ein paar mal machst...

Gruß Der Unwissende


Alle Zeitangaben in WEZ +1. Es ist jetzt 19:50 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz