Функция с рандомом выдает одни и те же числа(( Опции

[reill]

Народ помогите функция глючит... выдает каждый раз одни и те же числа...
фот сама:

Код

function shot: longint;
var i,p:integer;
   t,tmp,uron:real;
   s,a,b,c:^integer;
 begin
 a:=0;
 b:=0;
 c:=0;
 p:=0;
 getmem(s,100);
 getmem(a,2);
 getmem(b,2);
 getmem(c,2);
   for i:= 1 to 40 do
     begin
     p:=random(3);
     case p of
       1: a^:=a^+random(10);
       2: b^:=b^+random(30);
       3: c^:=c^+random(15);
     end;
     s^:=3*a^+2*b^+c^;
     shot:=trunc(0.7*s^);
     p:=0;
 end;
 freemem(s,100);
 freemem(a,2);
 freemem(b,2);
 freemem(c,2);
end;

???

Сообщение отредактировано: volvo - 5.01.2005 12:33