Fibonacci

[Mr Digitalis]

Hallo,

Ik heb een opdracht in mijn boek staan waarbij ik een Fobonacci reeks op het scherm moet afdrukken. Het is de bedoeling dat de getallen naast elkaar komen te staan, met een spatie ertussen. De reeks moet ook < 100 zijn en moet dus stoppen op 89 als het goed is (denk ik).

Nu heb ik twee vragen:

1) Ik krijg het niet voor elkaar om spaties tussen de integers te krijgen, hoe doe je dat?

2) Waar stopt de loop niet bij 89, maar bij 144?

Hieronder ziet u mijn gebruikte code:

Module Module1

    Sub Main()
        Dim laatsteGetal As Integer = 1
        Dim eenNaLaatsteGetal As Integer = 1
        Dim volgendeGetal As Integer


        Console.Write(eenNaLaatsteGetal)

        Console.Write(laatsteGetal)

        Do While volgendeGetal < 100
            volgendeGetal = eenNaLaatsteGetal + laatsteGetal
            Console.Write(volgendeGetal)
            eenNaLaatsteGetal = laatsteGetal
            laatsteGetal = volgendeGetal
        Loop

        Console.ReadLine()


    End Sub

End Module

Vast bedankt voor een reaktie!

 

[That Guy]

Probeer

Console.Write(volgendeGetal & " ")

voor je spatie.

Het feit dat ie niet stopt bij 89 is omdat je deze code hebt:

        Do While volgendeGetal < 100

je checkt dus op volgendeGetal. Maar, stel dat volgendeGetal nou 99 is. Dan gaat ie dus weer een hele loop doen, waardoor je dus op *getal dat groter is dan 100* uitkomt, en dat alsnog print.

Je zult dus een ander getal moeten nemen. Als je dit niet wilt, kan je ook nog ergens een if-statement neerzetten (if volgendeGetal < 100 then console.write(...))


:thumb:

 

[evertVB]

Als je dit niet wilt, kan je ook nog ergens een if-statement neerzetten (if volgendeGetal < 100 then console.write(...))

Dan zou ik eerder dit aanraden:

       ...
       Do While eenNaLaatsteGetal + laatsteGetal < 100
            volgendeGetal = eenNaLaatsteGetal + laatsteGetal
       ...

uit het oogpunt van eenvoud van de code.

 

[Mr Digitalis]

Vegras en EvertVB bedankt voor jullie antwoorden! :thumb: