Fibonacci
Obliczanie n–tego wyrazu ciągu Fibonacciego:
program ciagFib;
uses crt;
var
liczba: integer;
function fib(n:integer):integer;
begin
if (n=1) or (n=0) then
fib:=n
else
if n>1 then
fib:=fib(n-1)+fib(n-2);
end;
begin
writeln('Podaj n: ');
readln(liczba);
writeln('Wynik: ', fib(liczba));
repeat until keypressed;
end.
Podobne strony
Podobne Strony • Szyfr Cezara • Hello World • Sortowanie Przez Kopcowanie • Sortowanie Babelkowe • Rok Przestepny • Wieża hanoi • wyswietlanie liczby calkowitej metodą odejmowania poteg • Parzysta Nieparzysta • Ruchoma Gwiazdka • Sortowanie Przez Wstawianie • Sortowanie Przez Wybieranie • QuickSort • Nww • Metoda Babelkowa • Silnia • Miejsca Zerowe Funkcji Kwadratowej
wersja strony: 4, ostatnia edycja: 27 Apr 2009 17:15