Algoritimo De Armstrong

[Guest - bruno -]

alguém pode me ajudar a fazer esse algoritimo de Armstrong no Vb???

Porfavorrr

floo

[Graymalkin]

Você tem alguma referência para este algorítmo?

Abraços,

Graymalkin

[brunotricolor]

eu sei que é assim por exemplo 153 são tres numeros então ele somaria todos os digitos ou seja 153 tem tres numeros então ele fikaria elevado a terceira se tivesse 5 digitos ele fkaria elevado a 5 e assim por diante, ex. elevado a terceira fkaria

1³+ 5³ +3³ ou , ou 20 fikcaria 2² +3² mais ou menso assimm!!

entendeu??

[kuroi]

facil, use len pra saber quantos nºs são, ou seja, qual vai ser o expoente e use o mid pra ler nº por nº, elevar e somar.

[brunotricolor]

é eu nunca vi essa funçao len como ela funciona?? Pode me da um exemplo??

flo

[kuroi]

ela vê o tamanho da string. exemplo:

x = "aaa"
msgbox len(x)[/code]

vai mostrar 3

[code]x = "aaabb"
msgbox len(x)

vai mostrar 5

[brunotricolor]

da pra você me mostra como vai fkar o codigo com o len eo mid , se puder me dar o codigo tdo

por favor

[kuroi]

cara, é so pensar um poco!!!

me fala, você está afim de aprender visual basic o de tirar nota na escola??

se você não tem intencao de ganhar conhecimento, está fazendo curso porque??

[brunotricolor]

ehh como eleva o numero ??

[kuroi]

para fazer dois ao quadrado faca 2^2. para fazer 4 ao cubo faca 4^3, etc.

[brunotricolor]

ehh que que está errado no meu codigo

Private Sub cmdconfirma_Click()

Dim numero As Integer

Dim algoritimo As Integer

Dim i As Integer

If IsNumeric(txtnumero.Text) Then

numero = txtnumero.Text

Else

MsgBox "ovalor digitado não e numrico!", vbCritical, "erro"

Exit Sub

End If

algoritimo = numero

'For i = 1 To Len(numero)

'i = i & Mid(algoritimo, i, 1)

'If Mid(algoritimo, i, 1) Then

' numero = Mid(algoritimo, i + 1, 5)

' Exit For

' End If

' Next i

txtfinal = numero

End Sub

[Graymalkin]

Seria que ele está comentado na parte mais importante? :rolleyes: De qualquer maneira, a parte mais importante ali também estaria errada. Não adianta você ficar tentando "chutar" a solução, mas sim analisar exatamente o que você quer fazer e transcrever em código, linha por linha.

Abraços,

Graymalkin

[punk'D]

eu acabei de resolver o problema aqui

mais o meu código ficou bem diferrente do seu

o seu código está faltando muitas coisas

primeiro: você não precisa declarar variavel dim

você pode declarar a variável dentro do sub (opicional)

segundo: você está esquecendo de aplicar a regra do armstrong

dica: apaga td e pense no q v fez

pra resolver você vai usar

2 laço for

1 bloco if

a função len

e a função mid

nada mais que isso

e a solução pode variar dependendo da forma q você quer vizualizar o resultado

não fika chutando porque assim você não vai consegui

tente ver uma certa logica siga uma linha de raaciocino

porque isso é bem facil