Скачать: CL | DM;

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

← →
cfytr   (2004-11-13 18:01) [0]

Нужно заполнить массив размерности, ни допустим, 15 СЛУЧАЙНЫМИ (от 0 до 50), НЕПОВТОРЯЮЩИМИСЯ числами. Как?

---

← →
YurikGL ©   (2004-11-13 18:04) [1]

Точно так же, как и одномерный массив

---

← →
Mihey_temporary ©   (2004-11-13 18:23) [2]

Одномерный массив:


procedure FillArray(var A: array of Integer);
var
I, S, R: Integer;
begin
for I := 0 to High(A) do A[I] := I;
for i := High(A) downto 0 do begin
R := Random(I);
S := A[R]; A[R] := A[I]; A[I] := S;
end;
end;


Копай оттуда.

---

← →
cfytr   (2004-11-13 19:35) [3]

Mihey_temporary ©
не твоя программа выдает сегда одно и тоже

---

← →
Anatoly Podgoretsky ©   (2004-11-13 19:49) [4]

Заполни StringList строками от 0 до 50 и выбирай с удалением в цикле от 1 до 15.

---

← →
cfytr   (2004-11-13 19:56) [5]

Mihey_temporary © нет всегда разные просто randomize не поставил
Anatoly Podgoretsky © строками нельзя

дан массив,
a :array[1..5] of integer;
(это и называется размерность 5)
надо его заполнить случайными, неповторяющимися числами,
чтобы на выходе было, например так:

a[1] = 15    или так:  a[1] = 8
a[2] = 22              a[2] = 5
a[3] = 1               a[3] = 9
a[4] = 43              a[4] = 0
a[5] = 16              a[5] = 11

ps: НЕ надо описывать то место алгоритма, где это все выводится на экран, только заполнение

---

← →
cfytr   (2004-11-13 20:00) [6]

Anatoly Podgoretsky © ну это мысль, спасибо

---

← →
cfytr   (2004-11-13 20:00) [7]

Anatoly Podgoretsky ©  это мысль, спасибо

---

← →
begin...end ©   (2004-11-13 20:34) [8]

Mihey_temporary ©   (13.11.04 18:23) [2]

Перед использованием Random желательно вызывать Randomize.

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.021 c