Como faço para criar um loop, que gera palavras.

[ratocuiara]

Boa galera vamos lá.

Tenho o abcdário: a b c d e f g h i j l .... Gostaria de saber como faço uma função loop para que ele fique criando palavras até 3 caracteres, todas as combinações possiveis.

Grato

[raphael_suporte]

o valor de cada letra é formado através da tabela ACSII, você tem que fazer um loop com o valor da tabela e ir encrementando.. quando chegar ao z você tem que ir aumento e assim sucessivamente..

tipo você quer de a até zzz.

correto?!

o valor de ASCII de a = 97 e o de z = 122, o valor das maiúsculas é diferente das minúsculas..

[ratocuiara]

entendi, porem minha duvida é em relação so loop, como ficaria a função para criar as palavras desde (a) a (zzz)

[raphael_suporte]

vou fazer em algoritmo mais ou menos como deveria ficar..

A = 97 ' primeira letra
B = 97 ' segunda letra
C = 97 ' terceira letra.



enquanto A <= 122 faça
     Variavel := ASC("& A &")
     Mostra Variavel
     enquanto B <= 122 faça       
             Variavel := ACS(" & A &")" & ACS("& B &")"    ' Concatena o Valor de A com o B
             Mostra Variavel
             enquanto C <= 122 faça
                           Variavel := ACS(" & A &" )" & ACS(" & B &" )" & ASC(" & C & ")" Concatena o Valor de AB com C
                           Mostra Variavel
                           C := C + 1
             loop
      B := B+1
      loop
A:= A +1
loop

você terá que adaptar isso para a linguagem especifica, porem isso deve te ajudar.

[ratocuiara]

valeu!!! entendi vou faze aki. posto despois o resultado de deu certo. abraços

[ratocuiara]

fiz o código porem está dando erro:

Objeto Response erro 'ASP 0251 : 80004005'

Limite do Buffer de Resposta Ultrapassado

<%

Dim Var

A=97

B=97

C=97

Do while A<=122

var = chr(&A&)

Do while B <= 122

var = chr(&A&)&chr(&B&)

Do while C <= 122

var = chr(&A&)&chr(&B&)&chr(&C&)

C = C + 1

loop

B = B+1

loop

A = A +1

loop

while(C1<>"zzz")

response.write(var)

wend

%>

Editado Janeiro 5, 2009 por ratocuiara

[Rafael Spilki]

to de férias... não consegui testar seu codigo... mas tenta dar um

response.flush()

e veja se resove?!?

[raphael_suporte]

isso já erro com o asp, não conheço linguagem então infelizmente não posso te ajudar, porem uma coisa que percebi é que você só testa no final, ou seja, sepre o valor a ser testar é zzz, o que tinha entendido é que você queria testar tudo de "a" à "zzz".

outra observação está certo a forma de concatenar chr(&A&)& chr(&B&), você não tem que separar a variável por aspas ou algo do tipo?

[ratocuiara]

A logica é por ai mesmo, porem to tendo ploblemas na impressão do dados, ou seja quando © chega em 122 ele para e não continua a fazer as combinações possiveis o mesmo acontece com o (B) veja como está ficando:

a
aa
aaa
aab
aac
aad
aae
aaf
aag
aah
aai
aaj
aak
aal
aam
aan
aao
aap
aaq
aar
aas
aat
aau
aav
aaw
aax
aay
aaz
ab
ac
ad
ae
af
ag
ah
ai
aj
ak
al
am
an
ao
ap
aq
ar
as
at
au
av
aw
ax
ay
az
b
c
d
e
f
g
h
i
j
k
l
m
n
o
p
q
r
s
t
u
v
w
x
y
z

O código está assim:

<%
Dim Var
A=97
B=97
C=97

    Do while A<=122
     var = chr(A)
    response.Write(var&"<BR>")
          Do while B <= 122    
            var = chr(A)&chr(B)
            response.Write(var&"<BR>")
                   Do while C <= 122
                      var  = chr(A)&chr(B)&chr(C)
                      response.Write(var&"<BR>")
                      C = C + 1
                                            
             loop
      B = B+1
     loop
  A= A+1
loop
%>

[raphael_suporte]

Claro...

vai essa seguinte mudança no seu codigo...

<%
Dim Var
A=97



    Do while A<=122
     var = chr(A)
     B=97
    response.Write(var&"<BR>")
          Do while B <= 122    
           C=97
            var = chr(A)&chr(B)
            response.Write(var&"<BR>")
                   Do while C <= 122
                      var  = chr(A)&chr(B)&chr(C)
                      response.Write(var&"<BR>")
                      C = C + 1
                                            
             loop
      B = B+1
     loop
  A= A+1
loop
%>

para que ele possa zerar a variável