IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.

> Функция с рандомом выдает одни и те же числа((
сообщение
Сообщение #1


Пионер
**

Группа: Пользователи
Сообщений: 52

Репутация: -  0  +


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

Код
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 -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 25.10.2021 17:02
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name