Losowanie liczb

0

Mam problem z Delphi 2.0:

Potrzebuje instrukcji do losowania liczb z pośród przedziału: 0-49

Próbowałem
Random(49)
ale wychodzą cały czas te same liczby (0, 3, 86 itd)

Pomożcie {hello} --Pozdrawiam
Pik

[email protected]

0

sproboj
Randomize;
a potem
Random(49) :)---=-=[ Delphi 3, 6 ]=-=-
-=-=-==[ LKS ]==-=-=-
-=[ [email protected] ]=-

0

LKS ma racje - bez zainicjowania procesora w tryb losowania używanie random jest bez celowe.

0

Dobrze zrozumiałem, tak ma być:

Radomize;
Random(49);
//coś tam
--Pozdrawiam
Pik

[email protected]

0

var
i : Integer;
begin
Randomize;
i := Random(49);
{
cos tam np.:
if i = 10 then
ShowMessage('Wylosowalem 10');
}

end;---=-=[ Delphi 3, 6 ]=-=-
-=-=-==[ LKS ]==-=-=-
-=[ [email protected] ]=-

0

WIELKIE DZIĘKI LKS--Pozdrawiam
Pik

[email protected]

0

wszytko powyzej jest ok tylko ze Random(49) wylosuje liczbe od 0 do 48 wiec jesli chcesz by wylosowana liczba byla z zakresu 1-49 musisz dodawac jedynke. Tak wiec

*cos tam
Randomize
wylosowana_liczba:=Random(49)+1;

*cos tam cos tam

Pozdrawiam--&lt.&gtDiCz&lt.&gt

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0