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:

markieren

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**

irgendwie so

markieren

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

zusammenfalten · markieren

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 !

zwei random zahlen maximal 50?

zwei random zahlen maximal 50?

Re: zwei random zahlen maximal 50?

Re: zwei random zahlen maximal 50?

Re: zwei random zahlen maximal 50?

Re: zwei random zahlen maximal 50?

Forumregeln

PhöniX Registriert seit: 24. Jan 2004 Ort: Marienfeld 149 Beiträge Delphi 5 Professional	#1 zwei random zahlen maximal 50? 11. Feb 2004, 18:18 Hi, kann man irgendwie zwei zufallszahlen bestimmen, die zusammen maximal 50 ergeben?? ich meine jetzt nicht: markieren Delphi-Quellcode: random(25); random(25); Eine Zahl kann auch 40 sein und die andere 7... aber nicht über 50 hinaus.. cya PhöniX besucht www.lycoweb.de
	Zitat

Mirilin Registriert seit: 21. Dez 2002 Ort: Lenzburg 861 Beiträge Delphi 6 Professional	#3 Re: zwei random zahlen maximal 50? 11. Feb 2004, 18:24 irgendwie so markieren Delphi-Quellcode: var r1, r2 : Byte; const rng = 51; begin r1 := Random(rng); r2 := Random(rng-r1); end; mfg Tobias Tobias Die Physik ist für die Physiker eigentlich viel zu schwer.
	Zitat

MrKnogge Registriert seit: 9. Jun 2003 Ort: Pforzheim 2.458 Beiträge Delphi 2007 Professional	#5 Re: zwei random zahlen maximal 50? 11. Feb 2004, 18:42 Is aber nicht das was er wollte ! Du nimmst zwei Zufallszahlen, zählst diese Zusammen und gibst sie zurück - erwill aber 2 ! Christian Bootz Einstein ist tot, Newton ist tot, und mir ist auch schon ganz schlecht...
	Zitat