Ausgabe der Fibonacci-Folge

2 Lösungen

#28

Anfänger - Perl von Dome - 29.12.2012 um 00:58 Uhr

Schreiben Sie ein Programm, welches die Fibonacci-Folge ausgibt. Zuvor wird abgefragt, wie viele Werte ausgegeben sollen.

Hilfe von Wiki: Fibonacci-Folge

Konsolenausgabe:

Ausgabe der Fibonacci-Folge mit 10 Werten : 0,1,1,2,3,5,8,13,21,34

Bitte melden Sie sich an um zur Aufgabenbeschreibung eine Frage zu stellen.

Frage stellen

Bitte melden Sie sich an um eine Lösung einzureichen.

Lösung einreichen

von RivalofSilen (620 Punkte) - 19.03.2014 um 08:39 Uhr

Hier werden die Zahlen nicht hinter einander sondern unter einander ausgegeben - aber das kommt ja auf´s Selbe raus denke ich!

Perl-Code

@fibonacci = (1,1);
$durchlauf = <STDIN>;
$durchlauf -= 2;
system("cls");

print "@fibonacci[0]\n@fibonacci[1]\n";
for($i=0;$i<$durchlauf;$i++){

	$temp = @fibonacci[1];
	@fibonacci[1] = @fibonacci[0] + @fibonacci[1];
	@fibonacci[0] = $temp;
	print @fibonacci[1],"\n";
	
}