Random-Frage

[Airblader]

Zitat von Waldteufel:

wird wahrscheinlich selten vorkommen, aber wenn's wirklich Zufallszahlen sind kann das passieren).

Unendlich oft hintereinander? Wir hatten noch keine Wahrscheinlichkeitsrechnungen, aber irgendwann muss doch was anderes kommen

Ist es eig. Zufall, dass du als Beispiel die Zahl 42 nimmst?

[cruso]

Zitat von Airblader:

Ist es eig. Zufall, dass du als Beispiel die Zahl 42 nimmst?

Wenn es die "23" wäre, dann wäre es bedenklicher!*


*Falls ihr den Film kennt

[cruso]

Zitat von turboPASCAL:

Wie gesagt, selber machen. Speichere die letzte Zahl und beim nächsten Random prüfst du ob die Zahl beim letzten mal schon dabei war.

Ja gut, das dachte ich auch nur hab' ich es jetzt mal versucht und komischerweise klappt es nicht. Ich habe schon mehrere Möglichkeiten ausprobiert. Könnt ihr mir helfen?

[Nils_13]

Ich habe mir das bisher so gedacht (ist noch nicht ganz fertig, will es euch aber nicht vorenthalten):

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var i, letztezahl: Integer;
begin
  i := random(100);
  letztezahl := kA, wie du die letzte Zahl kriegst, da brauch ich auch noch Hilfe
  if i = letztezahl then
    random(100);
  ShowMessage(IntToStr(i));
end;

[Mavarik]

Zitat von Nils_13:

Ich habe mir das bisher so gedacht (ist noch nicht ganz fertig, will es euch aber nicht vorenthalten):

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var i, letztezahl: Integer;
begin
  i := random(100);
  letztezahl := kA, wie du die letzte Zahl kriegst, da brauch ich auch noch Hilfe
  if i = letztezahl then
    random(100);
  ShowMessage(IntToStr(i));
end;

Ujiii und wenn der 2. Random auch wieder die gleiche Zahl bringt?

Delphi-Quellcode:

var letztezahl : integer;
procedure TForm1.Button1Click(Sender: TObject);
var i : Integer;
{$IFDEF GANZSICHER}
   Count : integer;
{$ENDIF}
begin
  {$IFDEF GANZSICHER}
  Count := 0;
  {$ENDIF}
  repeat
    i := random(100);
    {$IFDEF GANZSICHER}
    inc(Count);
    {$ENDIF}

  Until (i <> letztezahl) {$IFDEF GANZSICHER} and (count < 1000) {$ENDIF};
  
  letztezahl := i;

  ShowMessage(IntToStr(i));
end;

begin
  letztezahl := 0;
end.

Frank

[turboPASCAL]

Mal meine Lösung, so in der Pause aus dem Kopf....

Auf die Form muss ein Button, Timer, Memo.

Delphi-Quellcode:

implementation

{$R *.dfm}

var RandomZahlAlt: Word;

function RandomForMe(MaxRange: Word): Word;
begin
  repeat
    Result := Random(MaxRange+1);
  until RandomZahlAlt <> Result;
  RandomZahlAlt := Result;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Randomize;
  Timer1.Interval := 150;
  Timer1.Enabled := False;
  Button1.Caption := 'Off';
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Memo1.Lines.Append(InttoStr(RandomForMe(100)));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Timer1.Enabled := not Timer1.Enabled;

  if Timer1.Enabled then Button1.Caption := 'On'
    else Button1.Caption := 'Off'
end;

end.

[Grishnak]

Noch eine kleine Änderung:

Zitat von Mavarik:

Delphi-Quellcode:

var letztezahl : integer;
procedure TForm1.Button1Click(Sender: TObject);
var i : Integer;
{$IFDEF GANZSICHER}
   Count : integer;
{$ENDIF}
begin
  {$IFDEF GANZSICHER}
  Count := 0;
  {$ENDIF}
  repeat
    i := random(100);
    {$IFDEF GANZSICHER}
    inc(Count);
    {$ENDIF}

  Until (i <> letztezahl) {$IFDEF GANZSICHER} and (count < 1000) {$ENDIF};
  
  letztezahl := i;

  ShowMessage(IntToStr(i));
end;

begin
  randomize; // Zufallszahl-Generator initialisieren
  letztezahl := random(100); // nicht immer 0 als erste Zahl
end.

Frank

[turboPASCAL]

Bist du sicher das man die letztezahl initialisieren muss ? Ist doch egal was da drinne steht.

[Mavarik]

Zitat von turboPASCAL:

Bist du sicher das man die letztezahl initialisieren muss ? Ist doch egal was da drinne steht.

Muss nicht, ist aber ein besserer Stiel!

Frank

[turboPASCAL]

Zitat von Mavarik:

Muss nicht, ist aber ein besserer Stiel!

Frank

Ich habe mal gelernt das Programierer schreibfaul sind. Desshalb gibt es ja auch C.

Besserer Stiel ? Eleganterer Stiel ?!