Форум: "Основная";
Текущий архив: 2003.11.13;
Скачать: [xml.tar.bz2];

Вниз

Алгоритм   Найти похожие ветки 

← →
Balepa   (2003-10-26 01:37) [0]

Излагаю задачу. Надо чтобы в массиве из 15 эл-ов были цифры 1..15
в разброс (с использованием Random или чего типа того если ето того есть).

---

← →
Ihor Osov'yak   (2003-10-26 01:55) [1]

procedure TForm1.Button2Click(Sender: TObject);
const
MaxDim = 15;
var
arrA: array[1..MaxDim] of integer;
i: integer;
tmp: integer;
idx: integer;
s: string;
begin
for i := 1 to MaxDim do
arrA[i] := i;
for i := 2 to MaxDim - 1 do
begin
tmp := arrA[i - 1];
idx := i + Random(MaxDim - i + 1);
arrA[i - 1] := arrA[idx];
arrA[idx] := tmp;
arrA[i] := i;
end;
s := "";
for i := 1 to MaxDim do
s := s + " " + IntToStr(arrA[i]);
ShowMessage(s);
end;

initialization
Randomize;
finalization

end.

Это навскидку.. А вот насколько "качественное" это решение - влом думать..
Посмотри Кнута - там наверника что-то хорошее есть..

---

← →
Balepa   (2003-10-26 02:01) [2]

Забыл дописать надо что бы они не повторялись в это массиве
Если вы это имели ввиду сорри еще не разобрался с кодом времени нет.

---

← →
default   (2003-10-26 05:08) [3]


procedure TForm1.Button1Click(Sender: TObject);
var
Mas: Array[1..15] of Byte;
Mn: Set of 1..15;
i: Byte;
S: String;
begin

FillChar(Mas, SizeOf(Mas), 0);
Randomize;
Mn := [];
for i := 1 to 15 do begin
repeat
Mas[i] := Random(15) + 1;
until not (Mas[i] in Mn);
Mn := Mn + [Mas[i]];
end;
for i := 1 to 15 do S := S + " " + IntToStr(Mas[i]);
ShowMessage(S)

end;


---

← →
default   (2003-10-26 05:10) [4]

FillChar(Mas, SizeOf(Mas), 0); - это не нужно

---

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

Форум: "Основная";
Текущий архив: 2003.11.13;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.037 c