Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.11.28;
Скачать: 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 вся ветка

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

Наверх




Память: 0.48 MB
Время: 0.045 c
3-1099323102
ceval
2004-11-01 18:31
2004.11.28
Подскажите как организовать фильтрацию при помоци Halcyon 6


1-1100255656
46_55_41_44
2004-11-12 13:34
2004.11.28
Как узнать количество PixelsPerInch?


1-1100540170
jenbond
2004-11-15 20:36
2004.11.28
Help, очень нужно!


3-1099428289
Александр--
2004-11-02 23:44
2004.11.28
Доля выполнения запроса ADO?


6-1095405871
RagE
2004-09-17 11:24
2004.11.28
Сокеты и потоки