Randomzahl -1 und 1

[turboPASCAL]

Hi,

ich breuchte mal einen kleinen Tip wie ich eine Zufallszahl hin bekomme im Bereich von -1 und 1 ohne die verflixte 0 und while oder repeat.
Ich komme nicht darauf....

[idontwantaname]

so vielleicht ? :?

Delphi-Quellcode:

function GetRandomNumber: Double;
begin
  if Random > 0.5 then
    Result := 0.0001 + Random
  else
    Result := - Random - 0.0001;
end;

[marabu]

Hallo Matti,

gefällt dir das?

Delphi-Quellcode:

function RandomSign: Integer;
begin
  if Odd(Random(1))
    then Result := 1
    else REsult := -1;
end;

Grüße vom marabu

[turboPASCAL]

Code:

if [b]Odd[/b](Random(2))

Dass habe ich gesucht. :wall:


Thx, euch beiden.

@marabu, Random(2) ;)