Náhodné číslo – Pascal – Fórum – Programujte.com

Jde udělat v t-pascalu získání náhodného čísla ? (něco na princip y := getrandom)

V jednotke System mas funkciu Random, ktora vracia hodnotu (X) typu real v rozsahu 0 <= X < 1. Ked zadas rozsah do funkcie - Random(10), tak funkcia vracia hodnotu typu word v rozsahu 0 <= X < 10.
A pred pouzitim tejto funkcie musis inicializovat generator s procedurou Randomize

To OndreJ:
A bylo by možné zadat nějak omezení toho příkazu v intervalu ?

Myslis zadanie minimalnej a maximalnej hodnoty toho intervalu? Mam pocit, ze to funkcia Random neumoznuje. Ale ved jednoducho ten rozsah mozes zadat, priklad ked chces rozsah od 10 do 20:

Randomize;

a := 10 + Random(10);

Funkce Random a Randomize nejsou z jednotky System, ale z jednotky Crt.
Na začátku programu proto musí být "uses Crt;"

Ne, jsou ze Systemu. Aspoň teda v TP.
Random používám každou chvíli a CRT vůbec, takže jsem si docela jistý.

Dík všem :D

To OndreJ: Tohle a := 10 + Random(10); by generovalo v intervalu <10, 19>
jestli to má generovat v <10, 20> tak to má být takhle: a := 10 + Random(11);

Zdravim, sem jsem se s nemylou veci. Chci generovat hod kostkou. ale random pocitani mi na zacatku programu generuje porad stale stejne cislo, co s tim mam udelat,abych pokazde dostal cislo jine?
procedure hod; begin a:=1+random(6); end;
Tato procedury sice dava nahodne hodnoty,ale pokaze stejne... ze zacatku... co s tim? Dik moc.

To Khalashnikovf : od toho je jiz zminene Randomize ...

To KIIV : nj,tak prave takto to zase udela jiny nesmysl.
udam presny problem:
mam udat cislo, ktere bude velike 6 + hod kostkou, dalsi je 12 + dva hodu kostkou. Treti je jako prvni.

Pokud zapisu: procedure hod; begin randomize; X:=1+random(6); end;
pricemz pro kazdy urceni cisla vyvolavam znovu proceduru hod; nakonec dostanu nepochopitelne cisla jako napr 12,24,12 ... 7,14,7 ... nevim proc :(

a jak predavas hodnoty?



mimochodem randomize staci jen na zacatku programu...

To KIIV :
Aha, tak ono staci napsat hned za begin programu to randomize;
a uz to jede, super, uz to dela co ma :) Dik moc.
Jinak sem tvoril toto:

procedure hod; {urcuje hod kostkou}
begin n:=b+random(100); for i:=1 to n do a:=(1+random(6)); end;

begin
randomize;
hod; UBH1:=6+a;
hod; SH1:=12+a; hod; SH1:=SH1+a;
hod; LcH1:=6+a;
end.
zjednodusene. Dik moc jeste jednou.