Random zwischen zwei Zahlen

[MrKnogge]

die hast du schon !
(einfach math in die uses klausel hinzufügen)

aber die hat noch ncht so viele funktionen wie bei D6 oder D7.

[Stanlay Hanks]

Hi Choose! Danke für die Korrektur. Mir war nicht bekannt, dass es da diese Funktion noch gibt, weil ich selber Delphi 7 verwende.

Man liest sich, Stanlay

[Haegar]

gibt aber noch ne lösung, die man normal mit random machen kann!zz:=random(51)+50; heißt soviel wie ziehe eine zahl zwischen 0 und 50, und addiere 50 dazu! somit wäre die frage ebenfalls beantwortet

ciao

[Matze]

Zitat von neolithos:

a := Random(51)+ 50; // für zw. 50..100

was das selbe wär.

[Haegar]

lol, verdammt hab ich überlesen

passiert halt

[Matze]

Brauchst dich doch nicht zu verstecken.

Ich hab vorher auch erst Mist gepostet, aber es dann noch verbessert.

[APP]

Hallo Choose,

Zitat von choose:

...In der Math-Unit von D5 (Enterprise) konnte ich die Funktion nicht finden, über D6 kann ich keine Aussage treffen. In D7 (Architekt) ist sie aber vorhanden.

in meinem D5 Pro zu Hause gibt es die Funktion:

Delphi-Quellcode:

{ RandG produces random numbers with Gaussian distribution about the mean.
  Useful for simulating data with sampling errors. }
function RandG(Mean, StdDev: Extended): Extended;

ist das vielleicht die Gesuchte?

[Pseudemys Nelsoni]

ich wusste nichtmal das delphi ne eigene funktion hat....ich hatte sie mir damals so geschrieben:

Delphi-Quellcode:

function Rand(RandFrom, RandTo: integer): integer;
begin
  if RandTo > RandFrom then
  begin
    Randomize;
    Repeat
      Result := Random(RandTo);
    until Result > RandFrom-1;
  end
  else Result := 0;
end;

[Treffnix]

da würdest du dir aber auch mit
Result := Random( RandTo ) + RandFrom - 1 einige sinnlose Schleifendurchläufe ( und auch Zeilen ) ersparen.

[himitsu]

Zitat von Treffnix:

da würdest du dir aber auch mit
Result := Random( RandTo ) + RandFrom - 1 einige sinnlose Schleifendurchläufe ( und auch Zeilen ) ersparen.

Also wenn schon, dann so:

Delphi-Quellcode:

If RandTo > RandFrom Then
  Result := RandFrom + Random(RandTo - RandFrom + 1)
Else 
  Result := 0;

Dein's gibt einen Zufallswert in einem anderen Bereich zurück:

Delphi-Quellcode:

RandFrom - 1 <= Result < RandTo + RandFrom - 1

Result = (RandFrom - 1) .. (RandTo + RandFrom - 2)

so sollte es doch ausseh'n:

Delphi-Quellcode:

RandFrom <= Result <= RandTo

Result = RandFrom .. RandTo