Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.01.08;
Скачать: [xml.tar.bz2];

Вниз

Скорее математический вопрос...   Найти похожие ветки 

 
Дмитрий Д.   (2001-12-17 13:28) [0]

Не подскажет ли кто алгоритм для получения всех возможных значений составленных из элементов массива(например 3х3):

q w e
a s d
z x c

то есть result может быть для первой строки:
qwe
qwd
qwc
qse
qsd
qsc

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

Заранее спасибо.


 
Виктор Щербаков   (2001-12-17 13:33) [1]

Три вложенных цикла. Один по первому столбцу, другой по второму, третий по третьему. Проблема то в чем?


 
Дмитрий Д.   (2001-12-17 13:42) [2]

это понятно
проблема в том у меня число и строк и столбцов может быть различным...
(3х3 я для примера взял)
поэтому и нужен алгоритм


 
Виктор Щербаков   (2001-12-17 13:46) [3]

Тогда рекурсивный перебор:
Функция вызывает сама себя, передавая в кач. параметра номер столбца массива. И так пока не дойдет до последнего столбца (или до первого). В самой функции получится цикл по одному столбцу.


 
Дмитрий Д.   (2001-12-17 13:59) [4]

а кусочек кода можно ?
про рекурсию я думал только никак чтото сообразить не могу


 
Виктор Щербаков   (2001-12-17 14:11) [5]

Че то типа этого (на скорую руку писал).
Массив сам заполнишь чем надо.

procedure TForm1.Button2Click(Sender: TObject);
var a: array[1..3, 1..3] of char;
CurLine: String;
procedure Proc1(Col: Integer);
var i: Integer;
begin
for i := 1 to 3 do
begin
if Col = 0 then
begin
Memo1.Lines.Add(CurLine);
exit;
end;
CurLine := CurLine + a[i, col];
proc1(Col - 1);
SetLength(CurLine, Length(CurLine) - 1);
end;
end;
begin
CurLine := "";
proc1(3);
end;





Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.01.08;
Скачать: [xml.tar.bz2];

Наверх









Память: 0.82 MB
Время: 0.034 c
1-22013
Curious
2001-12-17 12:53
2002.01.08
Запуск EXE из текущей программы.


1-22028
tovSuhov
2001-12-18 12:16
2002.01.08
Может кто знает...


6-22274
Polevi
2001-10-08 10:42
2002.01.08
А зачем нам сокеты???


1-22098
Alexander
2001-12-19 14:58
2002.01.08
Кто знает как вытащить виндовый редактор IP адреса или компонент какой?


1-22145
MARcoDEN
2001-12-15 17:42
2002.01.08
Нестандартная кнопка





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский