Как поменять строчки текста в мемо

[BETONOMESHALKA]

Как поменять строчки любого текста в мемо случайным образом так чтобы массив (начального положения строк) остался без изменения

[AlDelta]

BETONOMESHALKA может я сегодня заработался, но не мог бы ты уточнить, что именно хочешь получить в результате.

[mihali4]

Если я правильно понял поставленную задачу, то:
1 - определяем число строк мемо NUMSTR
2 - создаем массив случайных (неповторяющихся) чисел, длиной NUMSTR
3 - создаем другой мемо (пустой) и начинаем:
1-ая строка его - это N-ая строка из старого мемо (индекс N - первый элемент массива случайных чисел)
2-ая строка его - это N+1-ая строка из старого мемо
и так далее.

[puporev]

Мне кажется если менять строки случайным образом, то в программе должен быть примерно такой цикл:

.........
repeat
for i:=1 to n do
a[i]:=random(n)+1;
until a[i]=i;
.......

[BETONOMESHALKA]

ALDeltA надо в произвольном тексте поменять строчки но так чтобы потом можно было проверить в правильном ли порядке юзер их расставил

[Alex21]

Сообщение от BETONOMESHALKA

ALDeltA надо в произвольном тексте поменять строчки но так чтобы потом можно было проверить в правильном ли порядке юзер их расставил

Перед рандомизацией запоминаете текущее состояние списка А, мешаете и работаете с другим списком Б. После - сравниваете списки А и Б.

[mihali4]

Сообщение от puporev

Мне кажется если менять строки случайным образом, то в программе должен быть примерно такой цикл:

.........
repeat
for i:=1 to n do
a[i]:=random(n)+1;
until a[i]=i;
.......

А где проверка на уникальность значения random(n)?

[GAGARIN-NEW]

ДА я вот тоже пару раз сталкивался с random(xxx); и забывал делать проверку и получалось многих значений небыло(Они совпали...)
Интересно посматреть как бы выглядела эта проверочка....

[mihali4]

Интересно посматреть как бы выглядела эта проверочка....

Да ничего интересного - поэлементное сравнение с уже заполненным массивом.

[Alex21]

Сообщение от GAGARIN-NEW

Интересно посматреть как бы выглядела эта проверочка....

Вот например:

const
N=9;
label lab;

var a:array[1..N] of integer;
    b:array[1..N,1..2]of integer;
    i,j,k:integer;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  Randomize;

  for i:=1 to N do
  begin
    a[i]:=i;
    b[i,2]:=0;
    Write(a[i],' ');
  end;
  writeln;
  for i:=1 to N do
  begin
lab:
    k:=Random(N)+1;
    if b[k,2]=0 then
    begin
      b[i,1]:=a[k];
      b[k,2]:=1;
    end
    else goto lab;
    write(b[i,1],' ');
  end;
  readln;
end.

Первый массив А - заполняем по порядку от 1 до N.
А новый двумерный массив Б во втором поле содержит индексы "0" или "1" т.е. если "0" то значение i-го элемента массива А еще не бралось, если "1" то уже использовано.