SEQUENCIA FIBONACCI

USUARIO.EXCLUIDOS 28/08/2007 10:47:33
#233035
Bom dia Peesoal

Programo em C++ e tem VB como diciplina na Faculdade, alguem pode me ajudar ou corrigir no que esta de errado nesta sequencia do Fibonacci que não funciona . Vou deixar oq o problema esta pedindo
Agradeço a ajuda de todos desde ja.
Abraço

1)Baseado no número digitado pelo usuário, apresente a seqüência de Fibonacci na
Label inferior com uma quantidade de iterações correspondente ao número digitado.

Private Sub CMDCALC_Click()

Dim valor1 As Integer

Dim valor2 As Integer

Dim aux As Integer

Dim Contador As Integer

Contador = 0


valor1 = 0
valor2 = 1
aux = 0


valor1 = Val(Text1.Text)

valor2 = Val(Text2.Text)

For Contador = 1 To 100

       aux = valor2

       valor2 = valor1

       valor1 = aux + valor2

       valor2 = Val(Text2.Text)
       
       MsgBox Finobacci

Next

End Sub
USUARIO.EXCLUIDOS 28/08/2007 11:02:14
#233039
Achei esse exemplo, com recursividade em C/C++ e fiz uma adaptação para VB, ver se ajuda.

Programa Série de Fibonacci

Adaptação para VB
=================

Public Function Fibonacci(ByVal x As Integer) As Integer
    If x = 0 Or x = 1 Then
       Fibonacci = x
    Else
       Fibonacci = Fibonacci(x - 1) + Fibonacci(x - 2)
    End If
End Function


Private Sub Command1_Click()
    MsgBox "Valor de 3 na Seria Fibonacci é: " & Fibonacci(3)
End Sub
USUARIO.EXCLUIDOS 28/08/2007 11:12:16
#233040
Calma... deixa eu ver se entendi...

Vc tem que mostrar uma sequência de FIBONACCI com uma quantidade de termos igual a digitada pelo usuário??

é isto?
USUARIO.EXCLUIDOS 28/08/2007 11:27:11
#233044
mostra o valor1 ou outra coisa e nao a palavra fibonacci
vc nao ta usando ela pra nada

MsgBox valor1
USUARIO.EXCLUIDOS 28/08/2007 11:43:48
#233049
Olha Alexandre
Pegueia sequncia em C++, mas não tinha uma noção em como fazer em VB, pensei que vc tinha que mandar imprimir tbem algo em VB no final como em C++, a ideia deste programa vc digitando um numero e lhe da uma sequencia como digita 5
ele mostra

1
1
2
3
5

Tou usando de um modo diferente agora usando Function

Dim n as Long

Private Function solve(n As Long) As Long
    
    If (n < 3) Then
        solve = 1
    Else
        solve = solve(n - 1) + solve(n - 2)
    End If
    
    
End Function


Achei um exemplo em Vb.Net e passei pra VB
USUARIO.EXCLUIDOS 28/08/2007 11:46:33
#233051
Valew Piolho
Brigadão pela ajuda
Por ter postado usando a Fucntion
foi justamente que achei também, vou tentar montar agora
essa sequencia eliminando esse laço for agora
USUARIO.EXCLUIDOS 28/08/2007 13:06:42
#233084
Elibispo, ontem na minha aula de JavaScrip, utilizei o exemplo de Fibonacci em sala de aula, vou postar aqui pra vc, a lógica será a mesma em C#, vc só tem que mudar a sintase...

<script language="JAVASCRIPT">
  numero = eval(prompt("Entre Com um Número","DIGITE O NÃÅ¡MERO AQUI"))
  var fib1=1;
  var fib2=1;
  var soma;
  for(i=3;i<=numero;i++)
  {
    soma = fib1 + fib2;
    fib1 = fib2;
    fib2 = soma;
  }  
  document.write("<strong>A Soma da Sequencia de Fibonaci " + numero + " é</strong> "+fib2)
  document.bgColor="YELLOW"
</script>


Falow!
USUARIO.EXCLUIDOS 28/08/2007 16:37:49
#233128
Blz Cel
Agradeço a ajuda pelo postado ai
Foi mais ou menos que fiz, vou tentar postar em VB como ficou a sequencia em Fibonacci, foi meu estranho fazer em VB mas funcionou e esta no requisito que o problema pedia.

Valew Galera pela força

Abraço
Tópico encerrado , respostas não são mais permitidas
Voltar