Problem in Pascal!

[Sofa5000]

Ich habe diesen Pascal Code:

Delphi-Quellcode:

var i,j:integer;
    zahl:array[1..n,1..n]of integer;
begin
     randomize;
     for i:=1 to n do
         for j:=1 to n do
             zahl[i,j]:=random(9)+1;

Jetzt werden Zufallszahlen in diesen Zweidimensionalen Array geschrieben. Aber es sollen keine zahlen doppelt vorkommen. Wie kann ich es machen dass immer verschieden Zahlen in diesem Array stehen?

Danke!

[Chewie]

Du musst prüfen, ob diese spezifische Zahl bereits erstellt wurde.

Da du nur 9 mögliche Zahlen hast, bietet sich an, ein Array[1..10] of Boolean zu benutzen, in dem du für jede Zahl angibst, ob sie bereits erzeugt wurde oder nicht.

[MikeS]

Delphi-Quellcode:

procedure TForm6.code_erzeugen;
var zahl: array [1..4] of integer;
    i, iZahl, iCount  : integer;
    fExists : boolean;

begin
        randomize;
        for i := 1 to 4 do  zahl[i] := 0;
        iCount := 4;
        while iCount > 0 do begin
          iZahl   := Random(6)+11;
          fExists := false;
          for i := 1 to 4 do begin
            if zahl[i] = iZahl then begin
              fExists := true;
              break;
            end;
          end;
          if not fExists then begin
            zahl[iCount] := iZahl;
            dec(iCount);
          end;
        end;
end;

versuche es mal damit! ist ein vorschlag von Christian Seehase soweit ich mich erinnere!

[Neg]

Delphi-Quellcode:

var
  i, j, rnd: integer;
  Zahl: Array[1..n, 1..n] of integer;
  SchonVerwendet: Set of integer;

begin
  SchonVerwendet:=[];

  for i:=1 to n do
    for j:=1 to n do
    begin
      repeat
        rnd:=Random(9)+1;
      until not (rnd in SchonVerwendet);

      Include(SchonVerwendet, rnd);
      Zahl[i,j]:=rnd;
    end;
end;

Pass aber auf, dass n*n <= 9, sonst hängt der Algorithmus in einer endlosen Schleife. Logisch.

[negaH]

Vielleicht hilft dir dieses http://www.delphipraxis.com/topic109...lotto&start=50

Gruß Hagen

[choose]

Hallo Neg,

so elegant der Weg mit dem Mengen-Konstrukt auch scheint, so wenig lässt sich in der von Delphi vorgenommenen Implementierung die Deklaration

Delphi-Quellcode:

var
  SchonVerwendet: Set of integer;

compilieren.

Hintergrund: Bei einem Set wird für jedes mögliche Element genau ein Bit gehalten, so dass bei einem set of Byte insgesamt 256 Bits abgelegt werden müssen. Im gegensatz zu ausgerichteten Feldern wir einem Array oder einem Record setzt der Delphi-Compilier die Struktur jedoch gepackt um, so dass für jeweils 8 Bits genau ein Byte verwendet werden kann, die Gesamtstrukur belegt daher für n mögliche Elemente den Speicherplatz

Code:

s = (n+7) div 8

(das +7, um gauß'sche Klammern zu sparen) oder in mit dem Exponenten q zur Basis 2 ausgedrückt mit

Code:

q = ln2(n)

gilt daher

Code:

s=2^(ln2(n)-3)

Das bedeutete für den Speicherverbrauch s eines set of Integer mit q=32 folglich

Code:

s = 2^29 = 536870912

was also in dem Platzverbrauch von 512MB auf dem Stack entspräche...

[Neg]

Oha. Wusste ich noch gar nicht, dass Sets so implementiert sind. Dann kann das natürlich nicht klappen, stimmt.