Free pascal a generator nahodnych cisiel

Sekcia: Programovanie 13.12.2007 | 00:08
Dizie   Návštevník
Neviete pls ci sa da ( ked ano tak ako) pouzit vo free pascale linuxovy generator nahodnych cisiel? Potrebujem to pre priradovanie do premennej a random v pascale nie je dost nahodny.
    • Re: Free pascal a generator nahodnych cisiel 13.12.2007 | 00:41
      Avatar Frantisek Klabzuba Debian  Používateľ
      program pokus;
      
      var f : file of integer;
          a : integer;
          
      begin 
        assign(f,'/dev/random');
        reset(f);
        read(f,a);
        close(f);
        writeln(a);
      end.

      Inak asi toto:
      begin
        randomize;
        writeln(random(1000));
      end;
      • Re: Free pascal a generator nahodnych cisiel 13.12.2007 | 10:51
        Avatar uid0 Debian  Používateľ
        ako sa asi bude tvarit ked sa mu raz jeho program "zasekne" :D
        Debian. apt-get into it…