Zufallsgenerator

[p80286]

Zitat von Neutral General:

Da hättest du auch auf die Idee kommen können mal nachzuzählen

Nee, Du sitzt da und fragst Dich was das soll, weil Du hast doch 32 Einträge.
Daß Du 33 durch 0..32 definiert hast, daran denkst du nicht.

Gruß
K-H

[Neutral General]

Zitat von p80286:

Nee, Du sitzt da und fragst Dich was das soll, weil Du hast doch 32 Einträge.
Daß Du 33 durch 0..32 definiert hast, daran denkst du nicht.

Daran musst du nicht mal denken weil die Fehlermeldung dir explizit sagt, dass du mehr oder weniger Elemente im Array hast als definiert.
Und wenn dir die Fehlermeldung das schon so sagt, dann lohnt es sich wahrscheinlich nochmal nachzuzählen Also keinen Grund für 2 Tage Ratlosigkeit

[himitsu]

Zitat von Neutral General:

Daran musst du nicht mal denken weil die Fehlermeldung dir explizit sagt, dass du mehr oder weniger Elemente im Array hast als definiert.

Kommt drauf an.
Tut Lazaru/FreePascal das auch?
Und ich glaube mich zu erinnern, daß ältere Delphis früher auch nicht die Anzahl genannt hatten.

[Neutral General]

Ja ich glaube früher wurde die Anzahl nicht genannt aber auch ohne Anzahl weiß man ja dann was kaputt ist.
Dann muss man halt selbst nachzählen. Aber grundlegend gilt trotzdem dass man weiß wo das Problem liegt.

[kwhk]

Ich habe die Frage so verstanden:
1.) Es liegt eine Folge von Zufallszahlen vor, die mit Delphi-Random generiert wurden
2.) Welcher Wert wurde dazu RandSeed zugewiesen.

Code:

RandSeed=123
1: 5
2: 1
3: 5
4: 5
5: 2
-------------
RandSeed=627
1: 4
2: 2
3: 1
4: 2
5: 2
-------------
RandSeed=123
1: 5
2: 1
3: 5
4: 5
5: 2
-------------
RandSeed=627
1: 4
2: 2
3: 1
4: 2
5: 2
-------------

In diesem Beispiel müsste also ermittelt werden, dass zu der Folge {5,1,5,5,2} RandSeed=123 gehört.
Und zu {4,2,1,2,2} gehört RandSeed=627.

Vielleicht brauchte man mehr als 5 Zahlen, um das zu ermitteln.
Ich habe auch nicht getestet, ob bei C++ das gleiche Ergebnis herauskommt.

Das ist die Aufgabe, die der TE lösen möchte.
Hier das kleine Testprogramm

Code:

program Zufall;

{$APPTYPE CONSOLE}

uses
  SysUtils;

Var
  Eingabe : String;
Procedure Zahlen(pSeed, pAnzahl : Integer);
  Var
    i : Integer;

  Begin
    RandSeed := pSeed;
    Writeln('RandSeed=',pSeed);
    for i := 1 to pAnzahl do
      Begin
        Writeln(i,': ',Random(pAnzahl)+1);
      End;
    Writeln('-------------');
  End;
begin
  { TODO -oUser -cConsole Main : Hier Code einfügen }
  Zahlen(123,5);
  Zahlen(627,5);
  Zahlen(123,5);
  Zahlen(627,5);
  Readln(Eingabe);
end.