Buchempfehlung
Windows-Programmierung. Das Entwicklerhandbuch zur WIN32-API
Windows-Programmierung. Das Entwicklerhandbuch zur WIN32-API
"Der" Petzold, das über 1000 Seiten starke Standardwerk zum Win32-API - besonders nützlich u. a. bei der GUI-Programmierung in FreeBASIC! [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!

Code-Beispiel

Code-Beispiele » Mathematik

Fakultät rekursiv oder interativ berechnen

Lizenz:Erster Autor:Letzte Bearbeitung:
k. A.AdministratorSebastian 16.01.2008

Es kommt vor, dass in einer Anwendung die Fakultät einer Zahl berechnet werden soll. FreeBasic bietet keine integrierte Funktion zur Berechnung der Fakultät, mit wenig Aufwand lässt sich jedoch eine eigene Funktion dazu schreiben.

Die Berechnung einer Fakultät ist ein Paradebeispiel für den Einsatz einer rekursiven Funktion .

FUNCTION FakultaetRekursiv (ByVal n As Unsigned Integer) As ULongInt
IF n = 0 THEN
  RETURN 1 '0! = 1
ELSE
  RETURN (n * FakultaetRekursiv(n - 1))
END IF
END FUNCTION

Aber auch ein interativer Lösungsansatz ist möglich:

Function FakultaetIterativ (ByVal n As Unsigned Integer) As ULongInt
Dim fak As ULongInt = 1
Dim i As Unsigned Integer
For i =1 To n
  fak *= i
Next
RETURN fak
End Function

Zusätzliche Informationen und Funktionen
  • Das Code-Beispiel wurde am 10.01.2008 von AdministratorSebastian angelegt.
  • Die aktuellste Version wurde am 16.01.2008 von AdministratorSebastian gespeichert.
  Bearbeiten Bearbeiten  

  Versionen Versionen