Buchempfehlung
MySQL kurz & gut
MySQL kurz & gut
Das preiswerte Taschen- buch stellt MySQL-rele- vante Inhalte systematisch und knapp dar, sodass es sich optimal zum Nach- schlagen beim Pro- grammieren eignet. [Mehr Infos...]
FreeBASIC-Chat
Es sind Benutzer im FreeBASIC-Chat online.
(Stand:  )
FreeBASIC bei Twitter
Twitter FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!

fb:porticula NoPaste

Info
Info / Hilfe Liste
Übersicht / Liste Neu
Datei hochladen Suche
Quellcode suchen Download
Dateidownload

Array-Beispiel: Fibonacci-Folge iterativ mit Feld

Uploader:AdministratorSebastian
Datum/Zeit:21.03.2010 14:52:36

#define Anzahl 30

Dim Fibo(1 To Anzahl) As ULongInt 'Datentyp fuer grosse vorzeichenlose Ganzzahlen
Dim i As Integer, Eingabe As Integer

' // ARRAY vorbereiten //
Fibo(0) = 0
Fibo(1) = 1

For i = 2 To Anzahl
    Fibo(i) = Fibo(i-2)+Fibo(i-1)
Next i

Do
    Cls
    Print "Welches Folgenglied (0 - " & Anzahl & " verfuegbar) der Fibonacci-Folge ausgeben?"
    Print "Die Eingabe einer negativen Zahl beendet das Programm."
    Print
    Input "  Eingabe: ", Eingabe
    If Eingabe < 0 Then
        End
    Else 'Nicht-negative Zahl eingegeben.
        Print
        If Eingabe <= Anzahl Then 'Das Folgenglied steht zur Verfuegung.
            'Das Folgenglied muss nur ausgegeben werden. Keine Berechnung mehr noetig.
            PRINT "  f" & Eingabe & " = " & Fibo(Eingabe)
        Else
            Print "  Zahl zu gross!"
        End If
        Sleep
    End If
    ' Tastaturpuffer leeren:
    Do: Loop Until Inkey = ""
Loop