RANDOM - Vraća slučajnu vrijednost broja.
Sintaksa: FUNCTION RANDOM(vrijednost:<BYTE>): <INTEGER ili REAL>;

Tabela d.21. RANDOM - funkcija

Listing programa

Opis

PROGRAM Slucajan;

Naslov

VAR

 

  i: INTEGER;

String

BEGIN

Početak

  RANDOMIZE;

 

  WRITELN('INTEGER     REAL');

 

  FOR i := 1 TO 10 DO

 

    WRITELN(RANDOM(65535):5, RANDOM:15:5);

 

END.

Kraj programa

Primjer prebrojavanja pojavljivanja slučajnih brojeva u opsegu od 0 do 100 po deset.  Svaki opseg (0-9, 10-19, 20-29, itd) ima svoj brojač (X[0], X[1], X[2])

Tabela d.22. RANDOM - funkcija

Listing programa

Opis

PROGRAM Slucaj;

Naslov

VAR

 

  i,  indeks: INTEGER;

String

  X: ARRAY[0..10] OF INTEGER;

 

BEGIN

 

  RANDOMIZE;

Za novi broj

  FOR i := 0 TO 10 DO

Brojač za nulu

    X[i] := 0;

 

  FOR i := 1 TO 10 DO

 

    BEGIN

 

     indeks :=  RANDOM(100) DIV 10 ;

slučajan broj, indeks

     X[indeks] := X[indeks] + 1;

Uvaćaj brojač

  END;

 

  FOR i := 0 TO 10 DO

Ispis stanja brojača

    WRITELN(i,X[i]:6);

 

END.

Kraj programa

Ispis na ekran poslije izvo|enja programa:
0       0
1       2
2       1
3       2
4       1
5       0
6       2
7       2
8       0
9       0
10      0

Listing programa:

PROGRAM pRANDOM;
USES
  WinCrt;
VAR
  i,  indeks: INTEGER;
  X: ARRAY[0..10] OF INTEGER;
BEGIN
  RANDOMIZE;
  FOR i := 0 TO 10 DO
    X[i] := 0;
  FOR i := 1 TO 10 DO
    BEGIN
     indeks :=  RANDOM(100) DIV 10 ;
     X[indeks] := X[indeks] + 1;
  END;
  FOR i := 0 TO 10 DO
    WRITELN(i,X[i]:6);
END.

Drugi program:

PROGRAM Slucaj;
USES
  WinCrt;
VAR
  i,  indeks: INTEGER;
  X: ARRAY[0..10] OF INTEGER;
BEGIN
  RANDOMIZE;
  FOR i := 0 TO 10 DO
    X[i] := 0;
  FOR i := 1 TO 10 DO
    BEGIN
     indeks :=  RANDOM(100) DIV 10 ;
     X[indeks] := X[indeks] + 1;
  END;
  FOR i := 0 TO 10 DO
    WRITELN(i,X[i]:6);
END.

Index