Wertebereich von -X bis +X erstellen ?

[turboPASCAL]

Hi,

Ich ein kleines Problem. Ich möchte gern einen Wertebereich so einfach wie möglich erstellen
der von Minimum -X bis maximum +X reicht. Das ist ja weiter nicht so schlimm:


X := (100 + random(100)) - (100 + random(100) ); Aber nichts im Bereich von -50 bis +50.


Ich komm gerade nicht darauf...

[RWarnecke]

ich würde das ganze so machen :

Delphi-Quellcode:

niedrigsterWert := random(50);
hoechsterWert := random(50);
niedrigsterWert := (niedrigsterWert * 2) - niedrigsterWert

Oder müssen es immer Paare sein z.B. -45 und +45 ?

[turboPASCAL]

Ja.

Nach deiner Lösung hätte ich mehr -X als +X.

[Helmi]

Zitat von RWarnecke:

niedrigsterWert := (niedrigsterWert * 2) - niedrigsterWert

Dann kannst gleich das schreiben:
niedrigsterWert := niedrigsterWert; Denn (umgeschrieben)
niedrigsterWert := (niedrigsterWert + niedrigsterWert) - niedrigsterWert ist identlisch mit:
niedrigsterWert := niedrigsterWert Oder diese Zeile einfach weglassen

[Fussball-Robby]

X := Random(101) - 50; Random(101) = 0..100, dann 50 abziehen -> -50..50. Ich hoffe ich hab das so richtig verstanden, dass du eine zufällige Zahl zwischen -50 und 50 haben wolltest?

[DeddyH]

Meinst Du sowas?

Delphi-Quellcode:

function MyRandom(iRange: Integer): Integer;
const iSigns: array[0..1] of Integer = (1,-1);
begin
  Result := Random(Succ(iRange)) * iSigns[Random(2)];
end;

[turboPASCAL]

In Etwa.
Nur bekomme ich dann eine lustige Gruppenbildung (siehe Anhang).

Delphi-Quellcode:

function MyRandom(minRange, maxRange: Integer): Integer;
const
  iSigns: array[0..1] of Integer = (1, -1);
begin
  Result := (minRange + Random(maxRange + 1)) * iSigns[Random(2)];
end;

// Edit:

Ich möchte. um es mal bildlich darzustellen eine hole Kugel deren Mantel aus Punkten besteht.
(eine Kugel oder ein Quader ist dabei egal)

[Fussball-Robby]

Kleiner Tipp: Dir Funktion RandomRange() aus der Unit Math, bevor hier noch weiter rumgebastelt wird

[jfheins]

Und wie kommst du von der Randow-Fuznktion zu den Punkten?

Weil ich glaube schon, dass die Randowm-Funktion richtig arbeitet

Ediit: nehme es zurück: Sie arbeitet falsch.

Wie man am Demo-Prog erkennen kann, wird die 0 überbewertet.

Da es +0 und -0 gibt

==> nur einmal randowm verwenden und auf den passendden Bereich mappen.

[turboPASCAL]

Die Funktion RandomRange() aus der Math-Unit habe ich nicht da ich die Unit Math.pas nicht in meinem Programm habe.
Diese importiere ich auch nicht da sie mir Units imliziert importiert die ich nicht imliziert importiert haben will.



Was zum ... ist ein "randowm" ? Was zu essen ?




Lösungsvorschlage ?