Форум: "Основная";
Текущий архив: 2004.11.28;
Скачать: [xml.tar.bz2];
Вниз
Алгоритм заполнения массива Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.033 c
