Losowanie liczb spośród danego przedziału

0

Siemacie, mam taki problem.
możecie podpowiedzieć jak zrobić by system losował liczby spośród tego przedziału?:
500000000 - 538000000
600000000 - 608000000
660000000 - 668000000
691000000 - 698000000
721000000 - 727000000
781000000 - 798000000
882000000 - 888000000

Tylko bardzo was proszę, od wczoraj w tym siedzę więc jak najprościej.

Pozdrawiam, dumny użytkownik Delphi 7.

1

Na początku kodu użyć Randomize; Następnie można użyć funkcji RandomRange (należy dodać moduł Math do sekcji uses). Lub jeżeli nie chcesz dodawać dodatkowych modułów aby exek nie "puchnął" zastosuj kod ten funkcji:

function RandomRange(const AFrom, ATo : integer) : integer;
begin
  if AFrom > ATo then
    Result := Random(AFrom - ATo) + ATo
  else
    Result := Random(ATo - AFrom) + AFrom;
end;

Dodam - choć to wynika z opisu samej funkcji Random i jest wtedy oczywiste, ze losowanie następuje DO drugiej liczby. Czyli nie jest ona włącznie. Obrazowo: jest tak, jak na przykłąd z godzinami otwarcia jakiegoś sklepu czy firmy. A temat przenoszę do Newbie, bo dotyczy banalnych podstaw i tam takie pytania zadawaj tagując wątek nazwą środowiska.

0

Dziękuje Ci, bardzo mi pomogłeś.

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