Форум: "Начинающим";
Текущий архив: 2011.04.17;
Скачать: [xml.tar.bz2];
Вниз
Вопросы новичка про цикл и неповторяющиеся числа в массиве. Найти похожие ветки
← →
Ega23 © (2011-01-17 12:21) [40]Удалено модератором
← →
Dennis I. Komarov © (2011-01-17 12:52) [41]
> RWolf © (17.01.11 12:12) [39]
Ну я [35] и написал, и смайлики еще расовал...
← →
Anatoly Podgoretsky © (2011-01-17 13:49) [42]
> Гм.. На D2010 и вправду сработало. Раньше, помнится, одинаковые
> числа с некоторой периодичностью выдавались. Типа
А ты разве не видишь повторы, по три штуки в ряд. К тебя просто компьютер стал быстрее, только на три штуки и хватает.
← →
Ega23 © (2011-01-17 13:54) [43]
> А ты разве не видишь повторы, по три штуки в ряд.
Да я пример просто привёл.
← →
KSergey © (2011-01-17 14:01) [44]> Dennis I. Komarov © (17.01.11 11:57) [37]
> > Боюсь, что элемент случайности потеряется напрочь.
> Это еще, вдруг, с какого?
Из природы генераторов псевдослучайных последовательностей, которыми все эти random и являются.
← →
Inovet © (2011-01-17 17:10) [45]> [42] Anatoly Podgoretsky © (17.01.11 13:49)
> К тебя просто компьютер стал быстрее, только на три штуки и хватает.
Так чем быстрее, тем больше повторов должно быть.
← →
Sha © (2011-01-17 21:02) [46]Процедуры, приведенные в [28], можно немного изменить, чтобы подчеркнуть их общность:
procedure Shuffle(var a: TIntegerArray);
var
i, r, tmp: integer;
begin;
for i:=1 to Length(a)-1 do begin;
r:=Random(i+1);
tmp:=a[i]; a[i]:=a[r]; a[r]:=tmp;
end;
end;
function GetShuffled(n: integer): TIntegerArray;
var
i, r: integer;
begin;
SetLength(Result,n);
for i:=0 to n-1 do begin;
r:=Random(i+1);
Result[i]:=Result[r]; Result[r]:=i;
end;
end;
Страницы: 1 2 вся ветка
Форум: "Начинающим";
Текущий архив: 2011.04.17;
Скачать: [xml.tar.bz2];
Память: 0.53 MB
Время: 0.005 c
