<![CDATA[Wechsel der Zufallszahlen dauert zu lange]]>Ich brauche in kurzer Zeit viele Zufallszahlen. Das Programmfragment, dass ihr unten findet, generiert die Zufallszahlen aber zu langsam, nur etwa jede Sekunde wird die Zufallszahl neu bestimmt.
Was muss ich ändern?

int zufallszahl_erzeugen()
{
    long sek;
    time (&sek);
    srand((unsigned)sek);
    int r = (rand() % 15 + 1); //r enthält jetzt eine Zufallszahl zwischen 1 und 15
    return r;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    for (int i = 0; i < 1000; i++)
    {
        int z = zufallszahl_erzeugen();
        Memo1->Lines->Add(IntToStr(z));
    }
}
//---------------------------------------------------------------------------
]]>https://www.c-plusplus.net/forum/topic/152584/wechsel-der-zufallszahlen-dauert-zu-langeRSS for NodeSun, 09 Aug 2026 04:34:27 GMTFri, 07 Jul 2006 14:27:02 GMT60<![CDATA[Reply to Wechsel der Zufallszahlen dauert zu lange on Fri, 07 Jul 2006 14:27:02 GMT]]>Ich brauche in kurzer Zeit viele Zufallszahlen. Das Programmfragment, dass ihr unten findet, generiert die Zufallszahlen aber zu langsam, nur etwa jede Sekunde wird die Zufallszahl neu bestimmt.
Was muss ich ändern?

int zufallszahl_erzeugen()
{
    long sek;
    time (&sek);
    srand((unsigned)sek);
    int r = (rand() % 15 + 1); //r enthält jetzt eine Zufallszahl zwischen 1 und 15
    return r;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    for (int i = 0; i < 1000; i++)
    {
        int z = zufallszahl_erzeugen();
        Memo1->Lines->Add(IntToStr(z));
    }
}
//---------------------------------------------------------------------------
]]>https://www.c-plusplus.net/forum/post/1093305https://www.c-plusplus.net/forum/post/1093305Fri, 07 Jul 2006 14:27:02 GMT<![CDATA[Reply to Wechsel der Zufallszahlen dauert zu lange on Fri, 07 Jul 2006 14:44:25 GMT]]>srand nur einmal aufrufen.

]]>https://www.c-plusplus.net/forum/post/1093323https://www.c-plusplus.net/forum/post/1093323Fri, 07 Jul 2006 14:44:25 GMT