Programski jezik Pascal
Slučajan broj /RANDOM/ - funkcija RND

Računar generiše slučajne vrijednosti od 0 do 1 [0,1).
Interval [0,1) Interval  [0,max) Interval  [min,max)
y = x - linearna funkcija y = kx - linearna funkcija y = kx + l - linearna funkcija
  max = k*1
k = max		 min = k*0 + l
min = l
l = min  - početna vrijednost

max = k*1 + l
max = k + min
k = max - min - koeficijent
y = x
y = RND		 y = kx
y = max * RND		 y = kx + l
y = (max - min) * RND + min
     
 
Slika 1. Vrijednost = max * rnd
Slika 3. Vrijednost = (max-min) * rnd + min
     
 
Slika 2. Vrijednost = max * rnd
Slika 4. Vrijednost = (max-min) * rnd + min

 

Opis
Primjer ispisa naredbe

Za izračunavanje slučajnog broja u programskom jeziku Pascal koristi se matematička funkcija
random
Opseg rezultata je od 0 do 1 (bez vrijednosti 1).
Randomize obezbjeđuje generisanje novog slučajnog broja pri svakom startanju programa

random() // za vrijednosti od 0 do 1 - realni brojeve uključujući o bez 1 tj [0, 1).
Ako želim da opseg vridnosti od 0 do izabranog broja pišemo:
Izabrani_broj * random
Opseg rezultata je od 0 do Izabranog broja(bez vrijednosti izabranog broja).
 3 * random // za vrijednosti od 0 do 3.
Ako želim da opseg cjelobrojnih vrijednosti od 0 do izabranog broja pišemo:
trunk(random) * Izabrani_broj)
- (trunc) daje cio dio vrijednosti.
Opseg rezultata je od 0 do Izabranog broja (bez vrijednosti izabranog broja).
 trunc(3 * random ) // za cjelobrojne vrijednosti 0, 1 i 2
Ispisati 10 slučajnih brojeva 
Program sl_broj;
Var
  sl_br : Real;
  i : Integer;

Begin
  Randomize;
  FOR i := 1 TO 10 DO
    begin
      Writeln ('slijacajan broj', random);
    end;
  readln;
End.

Program P073_01;     { Slucajna vrijednost broja }
Var
  oc : Integer;
  komentar : String;
BEGIN
  Randomize;
  oc := trunc(3-1);    { Rezultat je 0, 1, ili 2. }
  CASE oc OF
    1 : komentar := ' Bez bodova';
    2 : komentar := ' Jedan bod';
    3 : komentar := ' Dva boda';
  END;
  Writeln (oc, komentar);
  READLN;
END.

Ispis ekrana:
2 Jedan bod

Index