Zufallszahlen Programm

[PSP_GIGA]

moin leute ich sitz gerade in der schule und brauch für delphi paar tipps zu einem programm das zufallszahlen ausgibt

also
ich muss einen zahlen bereich eingeben z.B. 10 -100 und dann berechnet er eine zufallszahl

danach gebe ich eine zahl ein und das programm sagt dann höher, niedriger oder richtige zahl

könnt ihr mir weiter helfen?

[ghosty]

Google mal nach "Randomize".

Geht z.B. so:

Var 
  Int: Integer;
Begin

Randomize;
Int := Random(101);

Er gibt dann eine Zufallszahl zwischen 0 und 100 aus.

[PSP_GIGA]

ich hab das jetzt auch schon etwas hin bekommen

nur wenn ich zahlenbereich1 z.B. 10 und zahlenbereich2 z.B. 100 einlesen will muss er ja dann von 10 - 100 zufallszahlen berechnen

das ist mein code bis jetzt

zahlenbereich1 := StrToInt (edt_eingabe.Text);
zahlenbereich2 := StrToInt (edt_eingabe2.Text);
eingabe:= strtoint(edit1.Text);

randomize;

zahl:= random(zahlenbereich1);
zahl2 := random (zahlenbereich2);

label1.caption:=inttostr(zahl);
ergebnis:= zahl*zahl;
if eingabe = ergebnis then showmessage('richtige Zahl')
else showmessage('FALSCH');

[ghosty]

Weiß nicht ob du das so meintest aber:

procedure TForm1.Button1Click(Sender: TObject);
Var
Zahl1, Zahl2, Eingabe, Ergebnis, ZufallsZahl: Integer;
begin
Zahl1 := StrToInt(txtZahl1.Text);
Zahl2 := StrToInt(txtZahl2.Text);

Eingabe := StrToInt(txtEingabe.Text);

Randomize;
ZufallsZahl := Random(Zahl2 + 1);

while not(Zufallszahl > Zahl1) do
begin
ZufallsZahl := Random(Zahl2 + 1);
end;

if ZufallsZahl < Eingabe then
Begin
  ShowMessage('Zahl ' + IntToStr(ZufallsZahl) + ' ist kleiner als die Angegebene!');
End;

if ZufallsZahl > Eingabe then
Begin
  ShowMessage('Zahl ' + IntToStr(ZufallsZahl) + ' ist größer als die Angegebene!');
End;

if ZufallsZahl = Eingabe then
Begin
  ShowMessage('Zahl ' + IntToStr(ZufallsZahl) + ' ist so groß wie die Angegebene!');
End;

Edit: http://www.file-upload.net/download-...sZahl.rar.html

[EBFE]

Deswegen bin ich auch immer strickt gegen GUIs bei Programmieranfängern. Da sie sich dann nicht auf das Wesentliche konzentrieren
die Dokumentation zum Random sagt Folgendes:
Random - Paswiki Turbo Pascal

Der Befehl Random erzeugt eine Zufallszahl. Wird der Bereich angegeben, ist der Rückgabewert ein Word im Bereich 0 <= x < Bereich, sonst ein Real-Wert im Bereich 0 <= x < 1.

Das heißt also, wenn man Zahlen im Bereich von 2 bis 50 haben möchte, bestimmt man die Intervallänge:

untere_grenze := 2
obere_grenze := 50
bereich := obere_grenze - untere_grenze (= 48)

Generiert nun eine zufällige Zahl:
zahl:=random(breich + 1)
+1 ist hier wegen der Aussage in der Dokumentation, das die generierte Zahl
0 <= x < Bereich ist (also wird in dem Fall z.B niemals 48 generiert, sondern nur Zahlen darunter)
nun addiert man einfach die untere Grenze dazu:
ergebnis := zahl + untere_grenze

die logische Überlegung ergibt: alle generierten Zahlen liegen erstemal zwischen 0 und 48 (oder mathematisch hingeschrieben: [0, 48]
wenn man nun die untere Grenze = 2 dazu addiert, ist das Ergebnis größter gleich 2 und kleiner gleich 50 (2<=Zahl <=50)

PS: es reicht aus, Randomize einmalig beim Programmstart aufzurufen.

[scholl3ss]

randomize bitte nie in prozeduren schreiben, die in regelmäßigen abständen aufgerufen werden, sonst hast du immer die gleichen zahlen. (zahlenkombinationen)
wenn dann, direkt beim programm start initialisieren