Springen naar inhoud


- - - - -
Solved

Opdracht 025



  • Log in a.u.b. om te beantwoorden
Er zijn 1 reacties in dit onderwerp

#1 RedThread

RedThread

    Beheerder VBIB

  • Beheerder
  • 3590 berichten
    Laatst bezocht 14 jul 2018 15:51
  • LocatieTongeren,Belgium.
Inzender

Geplaatst op 14 oktober 2010 - 12:09

Citeren

The Fibonacci sequence is defined by the recurrence relation: Fn = Fn1 + Fn2, where F1 = 1 and F2 = 1.
Hence the first 12 terms will be: F1 = 1
F2 = 1
F3 = 2
F4 = 3
F5 = 5
F6 = 8
F7 = 13
F8 = 21
F9 = 34
F10 = 55
F11 = 89
F12 = 144 The 12th term, F12, is the first term to contain three digits.
What is the first term in the Fibonacci sequence to contain 1000 digits?


#2 RedThread

RedThread

    Beheerder VBIB

  • Beheerder
  • 3590 berichten
    Laatst bezocht 14 jul 2018 15:51
  • LocatieTongeren,Belgium.
Inzender

Geplaatst op 14 oktober 2010 - 12:10

Vergeet niet een reference naar systems.numerics + een imports te doen ervan, anders kun je biginteger niet gebruiken. (thx voor de tip Chrissie1)

greetzzzz
RedThread


Visual Basic Code:
Imports System.Numerics

Public Class Form1

	Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
		Dim thousand_digits_not_reached As Boolean = True
		Dim Fn_minus_one As biginteger = 0  '// seed value
		Dim Fn_minus_two As BigInteger = 1  '// seed value
		Dim Fn As Integer = 1

		While thousand_digits_not_reached
			Dim result As BigInteger = Fn_minus_one + Fn_minus_two
			Fn_minus_two = Fn_minus_one
			Fn_minus_one = result
			If (result.ToString.Length) = 1000 Then thousand_digits_not_reached = False Else Fn += 1
		End While

		MessageBox.Show("First Fibonacci sequence which contains 1000 digits is " & Fn.ToString)
	End Sub

End Class






Ook met taq Solved voorzien

0 gebruiker(s) lezen dit onderwerp

0 lid(leden), 0 bezoeker(s), 0 anonieme gebruikers

Inloggen


[Solved] Untitled 1

Met dank aan Jürgen voor de jarenlange inzet van visualbasic.be (anno dec 2000)
Met dank aan Mike en Ronneke voor de jarenlange inzet van vbib.be (anno dec 2010)
Met dank aan PascalBianca voor de jarenlange inzet van vbib.be (anno dec 2016)