Graphics 800,600,0,2

Local i

Print "Die beiden Funktionen der 1. Aufgabe werden mit Werten von 0 bis 15 gefüttert"
Print "und das Ergebnis ausgegeben." 
For i = 0 To 15 
	Print i + " func1_rekursiv: " + func1_rekursiv(i) + " func1_iterativ: " + func1_iterativ(i) 
Next 

Print "Die beiden Funktionen der 2. Aufgabe werden mit Werten von 0 bis 15 gefüttert"
Print "und das Ergebnis ausgegeben." 
For i = 0 To 15 
	Print i + " fib_rekursiv: " + fib_rekursiv(i) + " fib_iterativ: " + fib_iterativ(i) 
Next 

WaitKey()

;Beispielfunktionen 
Function bsp_rekursiv(n) 
	If n <= 0 Return 0 
	Return 1 + bsp_rekursiv(n - 1) 
End Function 

Function bsp_iterativ(n) 
	Local a,i
	For i = 1 To n 
		a=a+1 
	Next 
	Return a 
End Function 

;Funktionen der 1. Aufgabe 
Function func1_rekursiv(n) 
	If n = 0 Return n 
	Return n + func1_rekursiv(n - 1) 
End Function 

Function func1_iterativ(n) 
	Local a, i 
	For i = 1 To n 
		a=a+i 
	Next 
	Return a 
End Function 

;Funktionen der 2. Aufgabe 
Function fib_rekursiv(x) 
	If x = 0 Return 0
	If x = 1 Return 1
	Return fib_rekursiv(x - 1) + fib_rekursiv(x - 2) 
End Function 

Function fib_iterativ(n) 
	Local a# = ((1 + Sqr(5)) / 2) ^ n 
	Local b# = ((1 - Sqr(5)) / 2) ^ n 
	Return (1 / Sqr(5)) * (a - b) 
End Function

Function fib_iterativ(n)
	Local tmp
	
	Local a = 1
	Local b = 1
	
	For i = 1 To n -1
		tmp = a
		a = a + b
		b = tmp
	Next
	
	Return a
End Function