Форум: "Основная";
Текущий архив: 2002.04.15;
Скачать: [xml.tar.bz2];
ВнизГенератор случайных числе Найти похожие ветки
← →
Alx2 (2002-04-01 14:10) [15]>reonid © (01.04.02 13:56)
Или так: :)
Type TIntegerArray = array [0..MaxSize-1] of integer;
Function GetVal(Var myArray: TIntegerArray; var CurrentSize: Integer): Integer;
Var
idx: Integer;
Begin
idx := random(CurrentSize);
Result := myArray[idx];
myArray[idx] := myArray[CurrentSize - 1];
dec(CurrentSize);
End;
Чтобы особо не загромождать, следить за выполнением CurrentSize>0 можно еще где-нибудь..
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.04.15;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.015 c