Zufallszahlen Programm

[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');