Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.10.10;
Скачать: CL | DM;

Вниз

Рэндом число из массива   Найти похожие ветки 

 
sexy   (2004-09-27 21:24) [0]

Имеется массив целых, некоторые элементы = 0. Подскажите алг, как взять случайный элемент массива, чтоб не трогать эти нули. т.е. любой но чтоб не был  = 0.


 
Vit@ly ©   (2004-09-27 21:34) [1]

Randomize
If X[Random(N)] <> 0 then
begin
  ...
end
                    else;


 
tormoz   (2004-09-27 21:37) [2]

function TForm1.get():integer; //a:array[] of integer объявлен заранее
var i,j: integer;
   b: array of integer;
begin
j:=1;
for i:=1 to length(a) do
 begin
  if a[i]<>0 then
   begin
    b[j]:=i;
    j:=j+1;
   end;
 end;
result:=a[b[random(j)+1]];
end;



Страницы: 1 вся ветка

Текущий архив: 2004.10.10;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.048 c
14-1095670956
}|{yk
2004-09-20 13:02
2004.10.10
Агония правительства Януковича,или что стоит за поднятием пенсий


14-1095779829
}|{yk
2004-09-21 19:17
2004.10.10
Ура! Справедливое решение УЕФА


14-1095827979
borrris
2004-09-22 08:39
2004.10.10
Замучал сосед


14-1095672297
icebeerg
2004-09-20 13:24
2004.10.10
Краткое продолжение Вечная жизнь (BiN 20.09.04 12:44)


4-1094650844
Новишок
2004-09-08 17:40
2004.10.10
Закрыть программку, нажав на кнопу в сыоей проге