1. Pascal / Говнокод #2779

    +99.3

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    procedure setrandomdoubleprecision(value:byte);
begin
precision:=10*value;
end;
function rangerandomdouble(minrandomdouble,maxrandomdouble:double):double;
begin
result:=randomdouble(maxrandomdouble+(-minrandomdouble))+minrandomdouble
end;
function randomdouble(maxdouble:double):double;
var
l1,l2:integer;
begin
l1:=random(trunc(maxdouble));
l2:=random(trunc(frac(maxdouble)*precision));
result:=l1+(l2/precision)
end;

    Рандом с заданной точностью. O_o

    Запостил: Говногость, 13 Марта 2010

    Комментарии (2) RSS

    • ava guest 15.03.2010 18:37 # 0

      >Рандом с заданной точностью.
      Это как? Вообще какие результаты будет генерить функция?
      Ответить

    • ava guest 15.03.2010 18:40 # −4.2

      Где здесь С++?
      Ответить

    Добавить комментарий