zwei random zahlen maximal 50?

[PhöniX]

Hi,
kann man irgendwie zwei zufallszahlen bestimmen, die zusammen maximal 50 ergeben??
ich meine jetzt nicht:

Delphi-Quellcode:

random(25);
random(25);

Eine Zahl kann auch 40 sein und die andere 7...
aber nicht über 50 hinaus..

[Chris1986]

Müsste doch so ganz leicht gehen:

Delphi-Quellcode:

var Zahl1,
    Zahl2: integer
begin
  Zahl1 := 50 - random(51);
  Zahl2 := random(51 - Zahl1);
end;

Wenn ich keinen Denkfehler habe sind die Zahlen zusammen <= 50
MfG
Christian

[Mirilin]

:hi:

:gruebel: irgendwie so

Delphi-Quellcode:

var
  r1, r2 : Byte;
const
  rng = 51;
begin
  r1 := Random(rng);
  r2 := Random(rng-r1);
end;

mfg Tobias

[BungeeBug]

Hi,

versuch mal sowas wie

Delphi-Quellcode:

function myran(max : integer):integer;
 var
  i, j : integer;
 begin
  Result := 0;
  i := 0;
  j := 0;
 repeat
  randomize;
  i := Random(max);
  j := Random(max);
 Result := i + j;
 until (result < 50);
end;

Ist warscheinlich nicht ganz elegant aber ist ne Möglichkeit :)

[MrKnogge]

Is aber nicht das was er wollte !

Du nimmst zwei Zufallszahlen, zählst diese Zusammen und gibst sie zurück - erwill aber 2 !