Buchempfehlung
Mikrocomputertechnik mit Controllern der Atmel AVR-RISC-Familie
Mikrocomputertechnik mit Controllern der Atmel AVR-RISC-Familie
Umfassend, aber leicht verständlich führt dieses Buch in die Programmierung von ATMEL AVR Mikrocontrollern ein. [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