Casa
Top.Mail.Ru Yandeks.Metrika
Fórum: "Principal";
Arquivo atual: 2002.01.08;
Download: [xml.tar.bz2];

Para baixo

Pelo contrário, uma questão matemática ... Encontre agências semelhantes


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

Alguém me diz o algoritmo para obter todos os valores possíveis compostos de elementos de matriz (por exemplo, 3x3):

qwe
asd
zxc

isto é, o resultado pode ser para a primeira linha:
Qwe
qwd
qwc
qse
qsd
qsc

e assim por diante ...
O algoritmo em si é importante, porque os valores da matriz podem ser letras ou palavras inteiras

Agradecemos antecipadamente.



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

Três loops aninhados. Um na primeira coluna, outro no segundo, terceiro no terceiro. Qual é o problema?



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

está claro
o problema é que eu tenho um número de ambas as linhas e colunas podem ser diferentes ...
(Tomei 3x3 por exemplo)
portanto, precisamos de um algoritmo



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

Então iteração recursiva:
A função chama a si mesma, passando em qualidade. número da coluna do parâmetro da matriz. E assim por diante até atingir a última coluna (ou a primeira). Na própria função, obtemos um único loop de coluna.



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

e um pedaço de código é possível?
Eu pensei em recursão, mas eu simplesmente não consigo descobrir



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

Algo parecido com isso (chicoteado).
O array em si é preenchido com o que você precisa.

procedimento TForm1.Button2Click (Sender: TObject); var a: matriz [1..3, 1..3] de char; CurLine: String; procedimento Proc1 (Col: Integer); var i: Integer; começar para i: = 1 para 3 do começar se Col = 0 então começar Memo1.Lines.Add (CurLine); saída fim; CurLine: = CurLine + a [i, col]; proc1 (Col-1); SetLength (CurLine, Length (CurLine) - 1); fim; fim; começar CurLine: = ""; proc1 (3); fim;




Страницы: 1 filial inteira

Fórum: "Principal";
Arquivo atual: 2002.01.08;
Download: [xml.tar.bz2];

em cima









Memória: 0.57 MB
Hora: 0.036 c
14-22375
Nemeis
2001-11-07 14:08
2002.01.08
E mais uma vez sobre Lamer;)


1-22180
Nathan
2001-12-21 11:07
2002.01.08
O problema!


4-22500
Yus
2001-11-06 20:32
2002.01.08
Coordenadas de ícone da área de trabalho


1-22030
Andrey Senchenko
2001-12-18 12:49
2002.01.08
Form.OnCloseQuery - Como lidar?


6-22271
vencedor
2001-10-04 20:15
2002.01.08
em uma conexão a conexão remota não apareceu ????





afrikaans albanês Arabic armênio azerbaijano basco belarusian Bulgarian catalão Chinês simplificado) Chinês tradicional) croata checo dinamarquês Dutch Inglês estoniano filipino Finnish French
Galego georgiano German grego crioulo haitiano hebraico hindi húngaro islandês Indonesian irlandês Italian Japanese Korean letão lituano macedónio Malay maltês Norwegian
persa polonês Portuguese romeno Russa sérvio Slovak esloveno espanhol swahili sueco tailandês turco ucraniano urdu vietnamita galês ídiche bengali bósnio
cebuano esperanto gujarati hausa hmong igbo javanês kannada khmer lao latino maori marata mongol Nepali punjabi somali tâmil telugu yoruba
zulu
Английский francês Alemão Italiano Португальский russo Espanhol