VPF::[Delphi 7] Перемешивание букв в тексте

n01r

Дата 7.6.2009, 19:54 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 5
Регистрация: 11.6.2008

Репутация: нет
Всего: нет

Дан в поле memo любой текст, необходимо буквы в тексте перемешать и потом вернуть все буквы на свои места

Код


Например вот такие хаотично набранные буквы

в
 
Намрипер вот катие хаиточно набарнные кубыв

kami

Дата 7.6.2009, 20:09 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1806
Регистрация: 25.8.2007
Где: Санкт-Петербург

Репутация: 22
Всего: 72

Цитата(n01r @ 7.6.2009, 19:54

)

и потом вернуть все буквы на свои места

это как?
Запоминать последовательность перемешивания что ли?
Проще запомнить исходный текст.

И - буквы должны мешаться только в пределах своего слова?

n01r

Дата 7.6.2009, 20:29 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 5
Регистрация: 11.6.2008

Репутация: нет
Всего: нет

Цитата(kami @ 7.6.2009, 20:09)

Цитата(n01r @ 7.6.2009, 19:54

)

и потом вернуть все буквы на свои места

Да, лучше просто вернуть исходный текст=)
Буквы должны мешаться только в пределах своего слова

n01r

Дата 7.6.2009, 21:44 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 5
Регистрация: 11.6.2008

Репутация: нет
Всего: нет

как преобразить этот код

Код


procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
i,j,len:integer;
x:char;
begin
  randomize;
  len := length(memo1.text);
  setlength(s,len);
  s := memo1.text;
  for i := 1 to len-1 do
    for j := i+1 to len do
      if random(31337) mod 7 = 0 then begin
        x := s[i];
        s[i] := s[j];
        s[j] := x;
        end;
    Memo1.Text := s;
    end;

Вместо текста какая абракадабра появляеться, буквы которые не были в тексте

kami

Дата 7.6.2009, 22:13 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1806
Регистрация: 25.8.2007
Где: Санкт-Петербург

Репутация: 22
Всего: 72

Задача разбивается на следующие под-задачи:
1. Найти слово.
2. Перемешать в нем буквы.
3. Добавить перемешанное слово к результату.

подзадача 1 легко решается изменением кода нахождения предложения. Всего-то нужно заменить в нем (коде) точку на пробел.
подзадача 2: код приведен вами. На первый взгляд - проблем в нем нет.
подзадача 3: в качестве приемника результата просто использовать другой TMemo.

Добавлено через 1 минуту и 1 секунду
Только насчет подзадачи 2 - нужно, естественно, не использовать полный текст, а задействовать в нем найденное в подзадаче 1 слово.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »