Random-Frage

[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