Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

перестановка символов


ksenia ©   (2006-05-29 17:27:00) 

Здрасти Всем!!
Товарищи помогите решить задачу!!!
Есть N-ое кол-во символов, например  ABCD, нужно переставить их местами, в любом порядке, например CADB....

Не представляю как это можно сделать  ...Если у кого есть какие-нибудь примеры реализации подобных задач, или какой-нибудь простенький алгоритм........ скиньте....плиз!
За любое пояснение и разъяснение буду благодарна!!!!


novill   (2006-05-30 11:06:00) [1]

...
var str:string; Ch:char; x:integer;
...
randomize;
for i:=1 to length(str) do
begin
 x:=random(length(str))+1;
 ch:=str[i];
 str[i]:=str[x];
 str[x]:=ch;
end;


SergP   (2006-05-30 08:32:00) [2]


> За любое пояснение и разъяснение буду благодарна!!!!


Все зависит от размера и формы выражения благодарности.


MBo   (2006-05-29 17:43:00) [3]

Сделать это можно и нужно самостоятельно, поскольку это задача рассчитана на то, чтобы человек немного поразмыслил, и научился использовать стандартные программные конструкции - циклы, рекурсию, примитивную работу со строками.
А уж когда что-то свое получится, заработает, тогда можно сходить, например, на algolist.manual.ru, чтобы посмотреть эффективные методы.


Наверх

Титульная страница Поиск, карта сайта Написать письмо