Perl :: Aufgabe #28
2 Lösungen
Ausgabe der Fibonacci-Folge
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
Hilfe von Wiki: Fibonacci-Folge
Konsolenausgabe:
Ausgabe der Fibonacci-Folge mit 10 Werten : 0,1,1,2,3,5,8,13,21,34
Lösungen:
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" ;
Hier werden die Zahlen nicht hinter einander sondern unter einander ausgegeben - aber das kommt ja auf´s Selbe raus denke ich!
Perl-Code
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";
}