Заполнения массива случаными неповторяющимися значениями
Автор: Дедок Василий
Огромное Вам спасибо за сбор и систематизацию советов по Delphi. Предлагаю Вам интересное решение заполнения массива случаными неповторяющимися значениями. Думаю этот алгоритм небесполезен.
type
arr = array[1..255] of integer;
procedure FillArray(var A: arr; n: integer);
var
i: integer;
s: string;
q: byte;
begin
randomize;
s := '';
for i := 1 to n do
begin
q := random(i);
insert(chr(i), s, q);
end;
for i := 1 to n do
begin
A[i] := ord(s[i]);
end;
end;
|
|
|
|
|
лампы для роста растений гидропоника . Lineage 2 freya сервер x. Lineage 2 Freya сервер x1000. . Портал Автомобили и Цены - пермь прокат автомобилей. Автомобиль, прокат. . Детские машины и велосипеды - электромобили peg perego. . |
