Random
Random
Moduł: System
Losuje liczbę z przedziału określonego parametrem Range, dokładniej: 0 <= X < Range.
Przed skorzystaniem z tej funkcji, należy wywołać funkcję Randomize, która uruchamia generator losowania.
Ponieważ rezultatem działania tej funkcji może być zero, warto do wyników dodać cyfrę 1
program Foo;
{$APPTYPE CONSOLE}
var
I : Integer;
begin
Randomize;
for I := 0 to 10 do
Writeln('Wylosowałem: ', Random(1000));
Readln;
end.
{$APPTYPE CONSOLE}
var
I : Integer;
begin
Randomize;
for I := 0 to 10 do
Writeln('Wylosowałem: ', Random(1000));
Readln;
end.
Można uzyskać wynik więksszy od 0 przez użycie warunku Repeat...Until. Na przykładzie symulatora rzutu kościami wielościennymi (a:= ilość kostek):
Zobacz też:
djmentos dnia 04-12-2007 22:10
ostatnio chciałem użyć random i wszystko ok, gdyby nie to że pluje sie na niego pełno antywirusów.
