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.

Pre pridávanie komentárov sa musíte prihlásiť.

    • 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…
LinuxOS.sk © 2004-2024 | LinuxOS.sk - Team | ISSN 1337-7639 | Osobné údaje | Odber noviniek
Hosting sponzorovaný vpsFree.cz o.s.