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 progdoc (2220 Punkte) - 31.12.2012 um 09:52 Uhr

Perl-Code

#!/usr/bin/perl
use strict ;
use warnings ;

print "Wieviele Fibonacci-Zahlen sollen ausgegeben werden?\n" ;
my $antwort = <STDIN> ;
chomp $antwort ;
my @fibonacci = ( 0 , 1 ) ;
for ( 1.. $antwort - 2 ) {
   push @fibonacci , $fibonacci[ - 1 ] + $fibonacci[ -2 ] ;
}
print "Ausgabe der Fibonacci-Folge mit $antwort Werten: @fibonacci\n" ;