Zablokowane Random

[zolty77]

napisze wężyka i sie przerzucę na C++ , z tym round czy floor też nie zaokrągla :/

[gnysek]

Widocznie źle coś napisałeś.

[zolty77]

function Losuj(Min,Max,Exponent: integer): integer;
     begin
     randomize;
     result := floor((Min+Random(Max-Min))/(intPower(10,Exponent))*(intPower(10,Exponent)));
     end;

[PsichiX]

function Losuj(Min,Max,Exponent: integer): integer;
     begin
     randomize;
     result := floor((Min+Random(Max-Min))/floor(intPower(10,Exponent))*floor(intPower(10,Exponent)));
     end;

o tak :)

[zolty77]

hmm tak też nie, nic sie nie zaokrągla

[PsichiX]

hmm, z logicznego punktu widzenia.. olej Delphi, zostań ninja :)

a tak serio, to jest nader dziwne :0

 

BTW. tak patrze na Twoj profil, raz masz 23 a raz 21 lat.. cos niezdecydowany jestes ;p Sorki - to u gnyska widzialem 21, jeszcze raz przepraszam za pomylke ;p

[zolty77]

a to dziwne bo cały czas mam 23 lata, cóż dzięki za pomoc, jeszcze się pomęczę.

[Will]

Nie ma możliwości aby to nie działało. O ile zwracasz typ całkowity liczba musi być przycinana lub zaokrąglana. Stawiał bym na to, że nie zaokrągla tak jakbyś chciał po prostu.

[gnysek]

Wracając do pierwszego postu:

 

function Losuj(liczba: integer): integer;
begin
     randomize;
     result := Random( round(liczba / 10) + 1 )*10;
end;

 

dla 270 losuje 0,10,20,...,260,270 :)

 

Edit: tu kolejna wada, bo C,C++ czy Java zaokrągli w dół Inta gdy wyjdzie ułamek.

[zolty77]

No ba, a to działa :) tyle że bez przedziału.

 

mi to teraz bez różnicy czy w górę czy w dół :)

[PsichiX]

pomysl logicznie, dostosuj do tego co opisalismy wczesniej w niedzialajacym (min+random(max-min)).

facet 23 lata masz, na pewno to wykombinujesz ;) do tego doktorat z wyzszej matmy nie potrzebny, jedynie logiczne myslenie :P

[gnysek]

ojej, jak chcesz 30 - 400 to piszesz:

 

zmienna := 30 + Losuj(370);

 

jak chcesz 100 - 150 to piszesz:

 

zmienna := 100 + Losuj(50);

[zolty77]

No racja to już wszystko wiem, Temat zamknięty