zufall, mit eingeschränkten werten ?

[fadz]

hi,
ich hab folgendes problem,ich woltle ein zufallsscript basteln,
nur ich hab ein problem, als bedingung für dieses script dürfen nur zahlen aus dieser reihe hier gelten:
112
113
114
122
123
124
132
133
134
142
143
144
...
443

wie kann ich soetwas realisieren ?
wäre dankbar für vorschläge

ich hätte es z.b. irgendwie so realisiert:
zufallszahl zwishen 112 ... 443
und dann gucken ob sie nach meinen regeln ist,
ansonsten neu machen
nur ich weiss nicht ob es nicht einen einfacherere art gibt

[mirage228]

Hi,

machs mal so

Delphi-Quellcode:

Randomize; // nur einmal aufrufen, am besten im FormCreate
Wert := Random(332) + 112;

mfG
mirage228

[Stanlay Hanks]

Alternativ bietet die Funktion RandomRange aus der Unit Math die selbe Möglichkeit.

Man liest sich, Stanlay

PS: Die Suche hätte dir geholfen

[fadz]

kk, atm hab ich es eifnachs o gemacht, lool:

Delphi-Quellcode:

var z,p1,p2:integer;
    p1a,p2a: string;
begin
repeat
z:=random(443);
if z>=111 then begin
p1a:= inttostr(z);
p2a:= inttostr(z);
delete(p1a,2,3);
delete(p2a,1,2);
p1:=strtoint(p1a);
p2:=strtoint(p2a);
end;
until (z>=111) and (pi <> p2);
memo1.Lines.Add(inttostr(z))

funktioniert prima und erfüllt den zweck

[sniper_w]

Zitat:

funktioniert prima und erfüllt den zweck

Dafür aber nicht optimal und damit nicht sinnvoll.
mirage228 hat dir in 2 Zielen alles gesagt.(keine REPEAT/UNTIL Abfrage)

[xineohp]

moin,

irgenwie hab ich das Gefühl ihr habt den Eingangspost nicht richtig gelesen!!

Zitat:

Wert := Random(332) + 112;

liefert auch z.B 116 was allerdings nicht in der gewünschten Menge liegt!

[4toms]

Hausaufgabe abgeschrieben / nicht selbst erstellt.

Setzen, schämen, sechs!

[jfheins]

Wie wäre es mit zahl := (random (4) * 100 + 100) + (random (4) * 10 + 10) + (random (3) + 2) Erzeugt
(1-4) > Hundert
(1-4) > zig / zehner
(2-4) > einer

[Binärbaum]

Nein, dann machs doch allgemein so:

Delphi-Quellcode:

var obereGrenze, untereGrenze, zufall: Integer;
...
Randomize;
zufall:= Random(obereGrenze-untereGrenze+1)+untereGrenze;

MfG
Binärbaum

[xineohp]

als Lösung des Problems würde ich empfehlen jede Ziffer einzeln zu generieren diese dann zusammen zusetzen:

Delphi-Quellcode:

var a,b,c,x: integer;
begin
  a := random(4)+1;
  b := random(8)+1;
  c := random(3)+2;
  x := 100*a + 10*b + c;
end;