| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Генерирование строки [D7, WinXP]
bat00n © (2005-07-29 16:08:00)Здравствуйте! Есть задача - нужно генерировать строку. Незнаю, как написать правильно, но вот пример что должно выводится в цикле. Интересует сам алгоритм. В примере возьмем только символы с 97 по 122.
'a'
'b'
'c'
...
'z'
'aa'
'ab'
'ac'
'ad'
..
'az'
'ba'
'bb'
и так далее.
bat00n (2005-07-29 16:54:00) [1]2Pearled
спасибо! Мне подходит этот код!
bat00n (2005-07-29 16:51:00) [2]под словом алгоритм я подрузомевал код! Простите, что неправильно задал вопрос. Мне нужен код.
Defunct (2005-07-29 16:37:00) [3]> bat00n (29.07.05 16:20) [2]
В чем вопрос?
Вы спрашиваете что вам нужен алгоритм, и далее приводите его. Потом еще и растолковываете смысл сего алгоритма. Не ходите вокруг да около (алгоритм туп и прозрачен), скажите "прямо мне нужен код".
Jeer (2005-07-29 16:35:00) [4]bat00n (29.07.05 16:20) [2]
Поздравляю, это и есть алгоритм.
Pearled (2005-07-29 16:32:00) [5]Например, можно так (правда будет выводиться немного в другом порядке):
procedure GetStr(const s: string; st,fin: char; maxlen: integer);
var
i: char;
begin
for i:= st to fin do
begin
Form1.ListBox1.Items.Add(s + i);
if (length(s)+1)<maxlen then
GetStr(s+i,st,fin,maxlen);
end;
end;
.....
GetStr('','a','d',6)
bat00n (2005-07-29 16:20:00) [6]смысл алгоритма заключается в том, чтобы перебрать все символы по порядку.
Fay (2005-07-29 16:18:00) [7]2 bat00n (29.07.05 16:08)
Скорость роста факториала Вам известна?
| |
