Головна сторінка
Top.Mail.Ru Яндекс.Метрика
Форум: "Основна";
Поточний архів: 2002.01.08;
Завантажити: [xml.tar.bz2];

Вниз

Швидше математичний питання ... Знайти схожі гілки


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

Чи не підкаже хто алгоритм для отримання всіх можливих значень складених з елементів масиву (наприклад 3х3):

qwe
asd
zxc

тобто 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.56 MB
Час: 0.042 c
14-22362
MIFI
2001-11-04 02:34
2002.01.08
як знайти людину


1-22180
Нафаня
2001-12-21 11:07
2002.01.08
Проблемка!


4-22493
mangoost
2001-11-05 12:06
2002.01.08
Як обійти Access violation при спробі запису (+)


14-22368
Їжачок
2001-11-08 09:52
2002.01.08
інтернет


1-22035
smuggler
2001-12-18 14:02
2002.01.08
текстовий редактор2





африкаанс албанський арабська вірменин азербайджанець баскський білоруський болгарська каталонський Китайська (спрощене письмо) Китайський традиційний) хорватський чеська данську мову нідерландський Ukranian естонець Філіппінська фінську мову французький
галісійська грузинський німецький грецький гаїтянський креольський давньоєврейську хінді угорський ісландський індонезієць ірландський італійський японський корейський латиська литовець македонець малайський мальтійський норвежець
перс полірування португальська румунський російська сербський словацький словенський іспанська суахілі шведську мову тайський турецька український урду в'єтнамський валлійський ідиш бенгальський боснійський
кебуано есперанто гуджараті хауса хмонг ігбо яванський каннада кхмерская Лао латинь маорі маратхі монгольський непальська панджабі сомалійський тамільська телугу йоруба
зулуський
Англійська Французький Німецький Італійський Португальська Русский Іспанська