PROBLEM: Mit der Funktion Randomize und random() werden die Zufallszahlen erzeugt.
Aber auch gleiche Zufallszahlen kommen vor.
BEISPIEL:
Die durch Randomize erzeugten Zufallszahlen:
4 5 2 2 1 4 3 ' 4 gleiche Zufallszahlen (4 und 2)
Eigentlich sollte es so aussehen:
4 5 6 1 3 2 7 ' keine gleiche Zufallszahlen kommen vor
5 7 2 3 4 6 1 ' keine gleiche Zufallszahlen kommen vor
LÖSUNG:
-----------------------------------------------------------------------------------------
PROGRAM Zufallszahl;
USES crt;
CONST max = 8;
TYPE TFeld = array [1..max] of byte;
VAR feld : TFeld;
i,j,merk,index : byte;
gleich : boolean;
BEGIN
textattr := 30; {gelbe Schriften, blauer Hintergrund}
clrscr; {Bildschirm löschen = ClearScreen}
Randomize; {erzeugt Zufallszahlen}
For i := 1 To max Do
begin
feld[i] := random(max)+1; {erzeugt Zufallszahlen von 1 bis max=8}
write (' ', feld[i]);
end;
merk := 0;
index := 0;
Repeat
gleich := false;
For i := 1 To max Do {äußere Schleife}
begin
merk := feld[i];
feld[i] := 0;
For j := 1 To max Do {innere Schleife}
If (merk = feld[j]) Then
begin
gleich := true;
index := j;
feld[j] := random(max)+1;
end;
feld[i] := merk;
merk := 0;
end;
Until gleich = false;
WriteLn;
For i := 1 To max Do write (' ', feld[i]);
ReadLn;
END.
-----------------------------------------------------------------------------------------